proposition: Lemma not_countable_unbounded (X : Ensemble Ord): ~ Countable X -> Unbounded X.
proof: Proof. intros H; apply NNPP; intro H0. apply H, Not_Unbounded_countable;auto. Qed.
imports: Coq(Relations Classical Classical_sets) ZornsLemma(CountableTypes) hydras(Well_Orders Lub Countable)