Search for blocks/addresses/...

Proofgold Proof

pf
Let x0 of type ι be given.
Let x1 of type ι be given.
Assume H0: ordinal x0.
Assume H1: (λ x2 . SetAdjoin x2 (Sing 1)) x0 = (λ x2 . SetAdjoin x2 (Sing 1)) x1.
Let x2 of type ι be given.
Assume H2: x2x0.
Claim L3: x2(λ x3 . SetAdjoin x3 (Sing 1)) x1
Apply H1 with λ x3 x4 . x2x3.
Apply binunionI1 with x0, Sing (Sing 1), x2.
The subproof is completed by applying H2.
Apply binunionE with x1, Sing (Sing 1), x2, x2x1 leaving 3 subgoals.
The subproof is completed by applying L3.
Assume H4: x2x1.
The subproof is completed by applying H4.
Assume H4: x2Sing (Sing 1).
Apply FalseE with x2x1.
Apply not_ordinal_Sing1.
Apply SingE with Sing 1, x2, λ x3 x4 . ordinal x3 leaving 2 subgoals.
The subproof is completed by applying H4.
Apply ordinal_Hered with x0, x2 leaving 2 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H2.