¬∅=→∅∈ : {n : Level} → { x : OD {suc n} } → ¬ ( x == od∅ {suc n} ) → x ∋ od∅ {suc n} ¬∅=→∅∈ {n} {x} ne = def-subst (lemma (od→ord x) (subst (λ k → ¬ (k == od∅ {suc n} )) (sym oiso) ne )) oiso refl where lemma : (ox : Ordinal {suc n}) → ¬ (ord→od ox == od∅ {suc n} ) → ord→od ox ∋ od∅ {suc n} lemma ox = TransFinite {suc n} {λ ox → ¬ (ord→od ox == od∅ {suc n} ) → ord→od ox ∋ od∅ {suc n} } { }0 { }1 { }2 ox

264784731a67c6781c7aa95f24feabe5c38629ea current