Search for blocks/addresses/...
Proofgold Proof
pf
Apply add_nat_SR with
u9
,
u4
,
λ x0 x1 .
x1
=
ordsucc
u13
leaving 2 subgoals.
The subproof is completed by applying nat_4.
set y0 to be
ordsucc
(
add_nat
u9
u4
)
set y1 to be
ordsucc
u13
Claim L0:
∀ x2 :
ι → ο
.
x2
y1
⟶
x2
y0
Let x2 of type
ι
→
ο
be given.
Assume H0:
x2
(
ordsucc
u13
)
.
set y3 to be
λ x3 .
x2
Apply unknownprop_d7fe278b459b2e36e4b2abf60a31f0dbe328b2999b103185c5db3bf51a082412 with
λ x4 x5 .
y3
(
ordsucc
x4
)
(
ordsucc
x5
)
.
The subproof is completed by applying H0.
Let x2 of type
ι
→
ι
→
ο
be given.
Apply L0 with
λ x3 .
x2
x3
y1
⟶
x2
y1
x3
.
Assume H1:
x2
y1
y1
.
The subproof is completed by applying H1.
■