Commit 4dcb456d authored by Guillaume Melquiond's avatar Guillaume Melquiond

Make the bench compatible with the changes to inductive types in Coq 8.5.

parent 493c3127
......@@ -254,15 +254,15 @@ Qed.
(* Polymorphic, Mutually inductive types *)
Inductive ptree (a:Set) : Set :=
| PLeaf : ptree a
| PNode : a -> pforest a -> ptree a
Inductive ptree {a:Set} : Set :=
| PLeaf : ptree
| PNode : a -> pforest -> ptree
with pforest (a:Set) : Set :=
| PNil : pforest a
| PCons : ptree a -> pforest a -> pforest a.
with pforest {a:Set} : Set :=
| PNil : pforest
| PCons : ptree -> pforest -> pforest.
Goal forall x : ptree Z, x=x.
Goal forall x : @ptree Z, x=x.
ae.
Qed.
......@@ -277,18 +277,18 @@ Goal bb=0.
ae.
Qed.
Fixpoint ptree_size (a:Set) (t:ptree a) : Z := match t with
Fixpoint ptree_size {a:Set} (t:@ptree a) : Z := match t with
| PLeaf => 0
| PNode _ f => 1 + pforest_size _ f end
with pforest_size (a:Set) (f:pforest a) : Z := match f with
| PNode _ f => 1 + pforest_size f end
with pforest_size {a:Set} (f:@pforest a) : Z := match f with
| PNil => 0
| PCons t f => ptree_size _ t + pforest_size _ f end.
| PCons t f => ptree_size t + pforest_size f end.
Goal ptree_size _ (@PLeaf Z) = 0.
Goal ptree_size (@PLeaf Z) = 0.
ae.
Qed.
Goal forall (a:Set), ptree_size a (PLeaf a) = 0.
Goal forall (a:Set), ptree_size (@PLeaf a) = 0.
intros.
ae.
Qed.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment