diff options
| author | herbelin | 2003-01-15 20:34:57 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-15 20:34:57 +0000 |
| commit | 1d7133e6730a9ea8632870b36ac949211679b83a (patch) | |
| tree | 3f3219437ed7eee6018db6c074cbe1f98e3c4eb7 /test-suite | |
| parent | 2ae542f4f479c4dfa743df2880b4f8cdfa61a290 (diff) | |
Problème de désynchronisation des variables du type et du corps d'un point-fixe
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3504 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Cases.out | 4 | ||||
| -rw-r--r-- | test-suite/output/Cases.v | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/Cases.out b/test-suite/output/Cases.out new file mode 100644 index 0000000000..5f13caafc4 --- /dev/null +++ b/test-suite/output/Cases.out @@ -0,0 +1,4 @@ +t_rect = +[P:(t->Type); f:([x:=t](x0:x)(P x0)->(P (k x0)))] + Fix F{F [t:t] : (P t) := <P>Cases t of (k x x0) => (f x0 (F x0)) end} + : (P:(t->Type))([x:=t](x0:x)(P x0)->(P (k x0)))->(t:t)(P t) diff --git a/test-suite/output/Cases.v b/test-suite/output/Cases.v new file mode 100644 index 0000000000..7483e8c40d --- /dev/null +++ b/test-suite/output/Cases.v @@ -0,0 +1,5 @@ +(* Cases with let-in in constructors types *) + +Inductive t : Set := k : [x:=t]x -> x. + +Print t_rect. |