proposition: Lemma infinite_power6_3: (\aleph omega0) ^c aleph1 = (\aleph omega0) ^c aleph0 *c \2c ^c aleph1.
proof: Proof. apply: infinite_power6_1. rewrite - aleph0E; apply: aleph_lt_lto; apply: olt_01. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)