(******** big Intersection *********)

Definition IntersectionProp (F : Ens -> Ens) (X : Ens) :=
  forall Y : Ens, IN X (F Y).Definition Intersection_section1_1_Out : IN Z A := h EmptySet.Definition Intersection_section1_Out : Bounded (IntersectionProp F) :=
  Bounded_th2 (IntersectionProp F) A step2.Definition Intersection_Bounded :
  forall F : Ens -> Ens, Bounded (IntersectionProp F) :=
  Intersection_section1_Out.Definition Intersection (F : Ens -> Ens) : Ens :=
  REPLACEMENT (IntersectionProp F).

Theorem Intersection_pr1 : forall (F : Ens -> Ens) (X : Ens), IntersectionProp F X -> IN X (Intersection F).