(***************************************************************************)
(* Axiome des parties                                                      *)
(***************************************************************************)
Parameter parties : E -> E.Axiom
  axs_parties :
    forall v0 v2 : E,
    In v2 (parties v0) <-> (forall v3 : E, In v3 v2 -> In v3 v0).

Lemma lem_reunion_parties : forall x : E, reunion (parties x) = x.