diff options
| -rw-r--r-- | test-suite/output/Fixpoint.out8 | 5 | ||||
| -rw-r--r-- | test-suite/output/Fixpoint.v8 | 11 |
2 files changed, 15 insertions, 1 deletions
diff --git a/test-suite/output/Fixpoint.out8 b/test-suite/output/Fixpoint.out8 index 4dca551a0f..5af28a5aff 100644 --- a/test-suite/output/Fixpoint.out8 +++ b/test-suite/output/Fixpoint.out8 @@ -4,3 +4,8 @@ list B := match l with | a :: l0 => f a :: F A B f l0 end : forall A B : Set, (A -> B) -> list A -> list B +let fix f (m : nat) : nat := match m with + | O => 0 + | S m' => f m' + end in f 0 + : nat diff --git a/test-suite/output/Fixpoint.v8 b/test-suite/output/Fixpoint.v8 index 09d5405fc8..ab1467a561 100644 --- a/test-suite/output/Fixpoint.v8 +++ b/test-suite/output/Fixpoint.v8 @@ -5,4 +5,13 @@ Check list B := match l with | nil => nil | a :: l => f a :: F _ _ f l - end).
\ No newline at end of file + end). + +(* V8 printing of this term used to failed in V8.0 and V8.0pl1 (cf bug #860) *) +Check + let fix f (m : nat) : nat := + match m with + | O => 0 + | S m' => f m' + end + in f 0. |