From 29c93767fd12ff1fd1172ce1aa7b2bc378f77aa6 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 6 Oct 1999 17:33:24 +0000 Subject: Test for Unnamed_thm. --- etc/coq/unnamed_thm.v | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 etc/coq/unnamed_thm.v (limited to 'etc/coq') diff --git a/etc/coq/unnamed_thm.v b/etc/coq/unnamed_thm.v new file mode 100644 index 00000000..2bd82b7b --- /dev/null +++ b/etc/coq/unnamed_thm.v @@ -0,0 +1,30 @@ +(* + Test for Unnamed_thm + + $Id$ +*) + +(* Coq calls this "Unamed_thm", so must forget it like any other *) + +(* test: do, undo, then check shell buffer to see "Reset Unnamed_thm" *) + +Goal (A,B:Prop)(and A B) -> (and B A). +Intros A B H. +Induction H. +Apply conj. +Assumption. +Assumption. +Save. + +(* Odd side effect: two unnamed theorems in a row are not possible! *) + +Goal (A,B:Prop)(and A B) -> (and B A). +Intros A B H. +Induction H. +Apply conj. +Assumption. +Assumption. +Save. + + + -- cgit v1.2.3