diff options
| author | barras | 2004-03-24 18:12:52 +0000 |
|---|---|---|
| committer | barras | 2004-03-24 18:12:52 +0000 |
| commit | 5332a2c2b3e7d8d41dd40c75ff44496bb9c25c8f (patch) | |
| tree | ce468ed1104284a88591414f76d37ba8fec1085f /test-suite/success | |
| parent | 79e068b0c9a5d3259e3349a434058a6447568fc2 (diff) | |
bug de PP des fix (coqbugs #574)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5550 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/PPFix.v8 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/PPFix.v8 b/test-suite/success/PPFix.v8 new file mode 100644 index 0000000000..1ecbae3ab3 --- /dev/null +++ b/test-suite/success/PPFix.v8 @@ -0,0 +1,8 @@ + +(* To test PP of fixpoints *) +Require Import Arith. +Check fix a(n: nat): n<5 -> nat := + match n return n<5 -> nat with + | 0 => fun _ => 0 + | S n => fun h => S (a n (lt_S_n _ _ (lt_S _ _ h))) + end. |