diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2002-06-18 18:55:19 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2002-06-18 18:55:19 +0000 |
commit | 7e174ef98f3876fcfe51692fe3231b8bec66e1f8 (patch) | |
tree | 76971a949c2a6fc0e46abd5390e962d43ba83291 /etc/coq | |
parent | 2997c618372cca7b2d572b02dc393791d54fdb7c (diff) |
Add more declarations
Diffstat (limited to 'etc/coq')
-rw-r--r-- | etc/coq/nested.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/etc/coq/nested.v b/etc/coq/nested.v index 410b33ef..31d7c256 100644 --- a/etc/coq/nested.v +++ b/etc/coq/nested.v @@ -38,6 +38,8 @@ Require Logic. (* 1 This needs "Back 1" to be retracted *) Require List. (* 2 This needs "Back 1" to be retracted *) +Fixpoint f [n:nat] : nat := Cases n of O => O | (S m)=> (f m) end. (*7*) + Lemma t1: (n: nat ) {n=O} + {(EX y | n = (S y))}. (* 3 This needs "Restart" to be retracted if inside the proof, and "Reset t1. Back 4." if outside (after point 12). 3 because of the @@ -64,6 +66,7 @@ Require Omega. (* 7 This needs "Back 1" to be retracted. *) Save. Save. (* 8 "Back 1" or "Reset t2". *) Intros. (* 9 "Undo": example of retraction 9->6: Undo 2. Back 3. *) + Fixpoint f [n:nat] : nat := Cases n of O => O | (S m)=> (f m) end. (*7*) Lemma t3 : O=O. Auto. Save. (* 10 "Back 1" or "Reset t3" *) EAuto. (* 11 "Undo" *) Save. (* 12 *) |