blob: 535d5712839fa02cb419b572ba3a14760f48bc0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(*
Example proof script for Lego Proof General.
$Id$
*)
Module example Import lib_logic;
Goal {A,B:Prop}(A /\ B) -> (B /\ A);
intros;
Refine H;
intros;
andI;
Immed;
Save and_comms;
|