intros.
red in |- *; intros x x_in_Set_Sum_D.
red in x_in_Set_Sum_D.
elim x_in_Set_Sum_D.
assumption.
Qed.

(* Specifications: *)
Lemma Set_Sum_is_minoring :
forall (D : Ensemble (Ensemble U)) (A : Ensemble U),
In (Ensemble U) D A -> Included U A (Set_Sum D).