blob: 6e88c5c8cbd134dcfff0395d4996bb9328ed9092 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(*
Example proof script for Coq Proof General (Coq V8 syntax).
$Id$
*)
Goal forall (A B:Prop),(A /\ B) -> (B /\ A).
intros A B H.
elim H.
intros.
split.
assumption.
assumption.
Save and_comms.
|