proposition: Lemma the_cnf_p6 a e: ordinalp e -> \0o <o a -> a <o (oopow e) -> odegree a <o e.
proof: Proof. move => oe ap lta. have lt2:= (ole_ltT (proj1 (the_cnf_p4 ap)) lta). have od:= (OS_degree (proj32_1 ap)). by rewrite (opow_Meqltr ole_2omega od oe). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)