Search for blocks/addresses/...

Proofgold Proof

pf
Let x0 of type ι be given.
Assume H0: SNo x0.
Claim L1: ordinal (SNoLev x0)
Apply SNoLev_ordinal with x0.
The subproof is completed by applying H0.
Apply PNoEq_tra_ with SNoLev x0, λ x1 . x1PSNo (ordsucc (SNoLev x0)) (λ x2 . and (x2x0) (x2 = SNoLev x0∀ x3 : ο . x3)), λ x1 . and (x1x0) (x1 = SNoLev x0∀ x2 : ο . x2), λ x1 . x1x0 leaving 2 subgoals.
Apply PNoEq_antimon_ with λ x1 . x1PSNo (ordsucc (SNoLev x0)) (λ x2 . and (x2x0) (x2 = SNoLev x0∀ x3 : ο . x3)), λ x1 . and (x1x0) (x1 = SNoLev x0∀ x2 : ο . x2), ordsucc (SNoLev x0), SNoLev x0 leaving 3 subgoals.
Apply ordinal_ordsucc with SNoLev x0.
The subproof is completed by applying L1.
The subproof is completed by applying ordsuccI2 with SNoLev x0.
Apply PNoEq_PSNo with ordsucc (SNoLev x0), λ x1 . and (x1x0) (x1 = SNoLev x0∀ x2 : ο . x2).
Apply ordinal_ordsucc with SNoLev x0.
The subproof is completed by applying L1.
Apply PNoEq_sym_ with SNoLev x0, λ x1 . x1x0, λ x1 . and (x1x0) (x1 = SNoLev x0∀ x2 : ο . x2).
The subproof is completed by applying PNo_extend0_eq with SNoLev x0, λ x1 . x1x0.