(* End of proof of lem_reunion_couple                                      *)

(* Definitions des projections par comprehension                           *)
Definition first (c : E) :=
  subset
    (fun x : E => exists a : E, (exists b : E, c = couple a b /\ In x a))
    (reunion (reunion c)).Definition second (c : E) :=
  subset
    (fun x : E => exists a : E, (exists b : E, c = couple a b /\ In x b))
    (reunion (reunion c)).

Lemma lem_first_propertie : forall a b : E, first (couple a b) = a.