Let x be given.
Assume Hx: SNo x.
Set alpha to be the term SNoLev x.
Set p to be the term λdelta ⇒ delta x delta = alpha of type setprop.
We will prove alpha {betaordsucc alpha|p beta} {beta '|betaordsucc alpha, ¬ p beta}.
Apply binunionI1 to the current goal.
Apply SepI to the current goal.
We will prove alpha ordsucc alpha.
Apply ordsuccI2 to the current goal.
We will prove alpha x alpha = alpha.
Apply orIR to the current goal.
Use reflexivity.