diff options
author | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
commit | 870075f34dd9fa5792bfbf413afd3b96f17e76a0 (patch) | |
tree | 0c647056de1832cf1dba5ba58758b9121418e4be /test-suite/output/Fixpoint.out | |
parent | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (diff) |
Imported Upstream version 8.2~beta4+dfsgupstream/8.2.beta4+dfsg
Diffstat (limited to 'test-suite/output/Fixpoint.out')
-rw-r--r-- | test-suite/output/Fixpoint.out | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test-suite/output/Fixpoint.out b/test-suite/output/Fixpoint.out index f4270d3d..c69d31f4 100644 --- a/test-suite/output/Fixpoint.out +++ b/test-suite/output/Fixpoint.out @@ -1,6 +1,6 @@ fix F (A B : Set) (f : A -> B) (l : list A) {struct l} : list B := match l with - | nil => nil (A:=B) + | nil => nil | a :: l0 => f a :: F A B f l0 end : forall A B : Set, (A -> B) -> list A -> list B @@ -13,13 +13,13 @@ fix even_pos_odd_pos 2 with (odd_pos_even_pos (n:_) (H:odd n) {struct H} : n >= 1). intros. destruct H. - omega. + omega. - apply odd_pos_even_pos in H. - omega. + apply odd_pos_even_pos in H. + omega. intros. destruct H. - apply even_pos_odd_pos in H. - omega. + apply even_pos_odd_pos in H. + omega. |