Proof
fun n Hn m Hm H E H1 _ =>
H1 m n (eq_refl (opt nat) (some nat m)) (eq_refl (opt nat) (some nat n)) Hm
Hn H.

(* Specifications: *)
Lemma OMEGA_rt : forall n : nat, wf_nat n -> OMEGA (some nat n) (none nat).
Proof
fun n Hn E _ H2 =>
H2 n (eq_refl (opt nat) (none nat)) (eq_refl (opt nat) (some nat n)) Hn.