etc/coq/multiple/b.v


1
2
3
4
5
6
7
8
9
10
11
12

(* Simple tests for multiple file handling *)

Require b1.

Goal forall (A B:Prop),(A /\ B) -> (B /\ A).
  intros A B H.
  elim H.
  intros.
  split.
  assumption.
  assumption.
Save and_comms_b.