Search for blocks/addresses/...
Proofgold Proof
pf
Let x0 of type
ι
be given.
Assume H0:
nat_p
x0
.
Assume H1:
1
∈
x0
.
Let x1 of type
ι
be given.
Apply Repl_Empty with
λ x2 .
(
λ x3 .
SetAdjoin
x3
(
Sing
x0
)
)
x2
,
λ x2 x3 .
binunion
x1
x3
=
x1
.
The subproof is completed by applying binunion_idr with
x1
.
■