From 40633ea048b65e7fcbc9ad0d9cfc4bd33a7470a3 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 18 Jun 2002 18:56:16 +0000 Subject: Fix --- etc/coq/nested.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'etc/coq') diff --git a/etc/coq/nested.v b/etc/coq/nested.v index 31d7c256..0ddff83c 100644 --- a/etc/coq/nested.v +++ b/etc/coq/nested.v @@ -66,7 +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*) + Fixpoint g [n:nat] : nat := Cases n of O => O | (S m)=> (g m) end. (*7*) Lemma t3 : O=O. Auto. Save. (* 10 "Back 1" or "Reset t3" *) EAuto. (* 11 "Undo" *) Save. (* 12 *) -- cgit v1.2.3