Skip to Content.
Sympa Menu

coq-club - [Coq-Club] How can I use [Program Fixpoint] for mutual fixpoints?

coq-club AT inria.fr

Subject: The Coq mailing list

List archive

[Coq-Club] How can I use [Program Fixpoint] for mutual fixpoints?


Chronological Thread 
  • From: Jason Gross <jasongross9 AT gmail.com>
  • To: coq-club <coq-club AT inria.fr>
  • Subject: [Coq-Club] How can I use [Program Fixpoint] for mutual fixpoints?
  • Date: Fri, 26 Dec 2014 16:41:55 -0500

I tried this in Coq 8.4pl4:

Require Import Program.

Inductive Even : nat -> Prop := 
| evenO : Even O
| evenS : forall n, Odd n -> Even (S n)
with Odd : nat -> Prop :=
| oddS : forall n, Even n -> Odd (S n).

Program Fixpoint doubleE {n} (e : Even n) : Even (2 * n)
  := _
with doubleO {n} (o : Odd n) : Odd (S (2 * n))
     := _.
Next Obligation. (* Error: More than one program with unsolved obligations *)

bug got "Error: More than one program with unsolved obligations".  Is there a way to fix this?  Is this a bug that should be reported?

Thanks,
Jason



Archive powered by MHonArc 2.6.18.

Top of Page