(* Proof                                                                   *)
Qed.
(* End of proof                                                            *)
(* Note : le /\ est associatif a droite en CoQ don pas de lemme symmetrique*)

Lemma lem_or_rew_l :
forall P Q1 Q2 : Prop, (Q1 <-> Q2) -> (Q1 \/ P <-> Q2 \/ P).