(*
    Example proof script for Lego Proof General.
 
    example.l,v 8.0 2004/04/17 23:40:00 da Exp
*)

Module example Import lib_logic;

Goal {A,B:Prop}(A /\ B) -> (B /\ A);
intros;
Refine H;
intros;
andI;
Immed;
Save and_comms;
