proposition: Lemma cpow_less_pr5b x y: infinite_c x -> \2c <=c y -> infinite_c (x ^<c y).
proof: Proof. move=> cx y2; apply: (cle_inf_inf cx (cpow_less_pr5a (proj1 cx) y2)). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)