proposition: Lemma aleph_lec_le x y: ordinalp x -> ordinalp y -> \aleph x <=c \aleph y -> x <=o y.
proof: Proof. by move => ox oy le; apply: aleph_leo_le => //; apply:ocle. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)