(***************************************************************************)
(* Schema d'axiome de comprehension                                        *)
(***************************************************************************)
Parameter subset : (E -> Prop) -> E -> E.Axiom
  axs_comprehension :
    forall (F : E -> Prop) (a v0 : E), In v0 (subset F a) <-> In v0 a /\ F v0.

Lemma lem_comprehension_lr : forall (F : E -> Prop) (a v0 : E), In v0 (subset F a) -> In v0 a /\ F v0.