proposition: Lemma cardinals_unbounded: forall kappa:Type, gt_cardinal (Ensemble kappa) kappa.
proof: Proof. intros ?. split. - exists Singleton. red; intros. apply Powerset_facts.Singleton_injective. assumption. - intros [f Hf]. apply (cantor_diag2 _ f). apply Hf. Qed.
imports: Coq(ClassicalChoice) Coq(ProofIrrelevance) Coq(FunctionalExtensionality) Coq(Description) ZornsLemma(FunctionPropertiesEns) ZornsLemma(Relation_Definitions_Implicit) ZornsLemma(CSB) ZornsLemma(EnsemblesSpec) ZornsLemma(ZornsLemma) ZornsLemma(EnsemblesImplicit) ZornsLemma(CountableTypes) ZornsLemma(FiniteTypes) ZornsLemma(InfiniteTypes) Coq(RelationClasses)