Inductive Power_set (A : Ensemble U) : Ensemble (Ensemble U) :=
       Definition_of_Power_set :
         forall X : Ensemble U,
         Included U X A -> In (Ensemble U) (Power_set A) X.Inductive Power_set (A : Ensemble U) : Ensemble (Ensemble U) :=
       Definition_of_Power_set :
         forall X : Ensemble U,
         Included U X A -> In (Ensemble U) (Power_set A) X.

Theorem Intersection_is_Glb : forall a b : Ensemble U, Included U a A -> Included U b A -> Glb (Ensemble U) Power_set_PO (Couple (Ensemble U) a b) (Intersection U a b).