Definition second_geq_2_a_Out : False := step1 stepa_1.Definition second_has_geq_2_elements_Out : has_geq_2_elements E :=
  distinct_Doubletons_have_geq_2_elements Zero sA step2.

(* Specifications: *)
Theorem Second_has_geq_2_elements : forall A : Ens, has_geq_2_elements (Second A).