(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(***************************************************************************)
(* File: useful.v                                                          *)
(* auteur: alex@sysal.ibp.fr                                               *)
(* date: 19/10/95                                                          *)
(***************************************************************************)
(***************************************************************************)
(* Many useful lemmas                                                      *)
(***************************************************************************)

(***************************************************************************)
(* Distributivity and factorisation of /\ and \/                           *)
(***************************************************************************)
Lemma lem_and_fact :
forall P0 P1 P2 : Prop, (P0 \/ P1) /\ P2 -> P0 /\ P2 \/ P1 /\ P2.