diff options
| -rw-r--r-- | etc/coq/naming.v | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/etc/coq/naming.v b/etc/coq/naming.v new file mode 100644 index 00000000..ee078a60 --- /dev/null +++ b/etc/coq/naming.v @@ -0,0 +1,49 @@ +(* Coq theorems, etc can be named at the top .... *) + +Theorem and_comms: (A,B:Prop)(A /\ B) -> (B /\ A). + Intros A B H. + Induction H. + Apply conj. + Assumption. + Assumption. +Qed. + +(* at the bottom... *) + +Goal (A,B:Prop)(A /\ B) -> (B /\ A). + Intros A B H. + Induction H. + Apply conj. + Assumption. + Assumption. +Save and_comms2. + +(* or not at all! *) +(* 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)(A /\ B) -> (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! *) + +(* TESTING: notice output window behaviour here with different settings: + exact output displayed also depends on how many steps are issued + at once. +*) + +Goal (A,B:Prop)(and A B) -> (and B A). +Intros A B H. +Induction H. +Apply conj. +Assumption. +Assumption. +Save. + + + |