proposition: Lemma OS_CNFp0 p n: CNFp_ax1 p n -> ord_below (cantor_pmon p) n.
proof: Proof. move => ax i lin; move:(ax i lin) => [_ /proj32_1 oa /proj1/OS_nat ob]. exact: (OS_succ ( OS_prod2 (OS_oopow oa) ob)). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)