proposition: Lemma ordinal_o_is r: worder r -> r \Is (ordinal_o (ordinal r)).
proof: Proof. move=> wor; move: (ordinal_isomorphism_exists wor) => h. by exists (ordinal_iso r). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)