(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(***************************************************************************)
(* File: useful.v                                                          *)
(* auteur: alex@sysal.ibp.fr                                               *)
(* date: 19/10/95                                                          *)
(***************************************************************************)
(***************************************************************************)
(* Many useful lemmas                                                      *)
(***************************************************************************)
(* Proof of lem_and_fact                                                   *)
intros; tauto.
Qed.
(* End of proof of lem_and_fact                                            *)
(* Proof of lem_and_dist                                                   *)
intros; tauto.
Qed.
(* End of proof of lem_and_dist                                            *)
(* Proof of lem_or_fact                                                    *)
intros; tauto.
Qed.
(* End of proof of lem_or_fact                                             *)
(* Proof of lem_or_dist                                                    *)
intros; tauto.
Qed.
(* End of proof of lem_or_dist                                             *)
(* Proof                                                                   *)
intros; tauto.
Qed.
(* End of proof                                                            *)

Lemma lem_or_and_conv_r :
forall a b c d : Prop,
(a \/ c) /\ (b \/ c) /\ (a \/ d) /\ (b \/ d) -> a /\ b \/ c /\ d.