Search for blocks/addresses/...
Proofgold Proof
pf
Let x0 of type
ι
be given.
Let x1 of type
ι
be given.
Assume H0:
nat_p
x1
.
Apply unknownprop_2c2b6e370d63460a41b716e268674c528a2949bfc748c1b723ff715377f9054f with
x0
,
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
x1
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
,
λ x2 x3 .
x3
=
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
add_nat
x0
x1
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
leaving 2 subgoals.
Apply unknownprop_349dbc507b2849f207c22148927a0909e43572e7e3b3db327d332a1c95cac372 with
x1
.
The subproof is completed by applying H0.
Apply unknownprop_2c2b6e370d63460a41b716e268674c528a2949bfc748c1b723ff715377f9054f with
x0
,
x1
,
λ x2 x3 .
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
x3
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
=
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
add_nat
x0
x1
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
leaving 2 subgoals.
The subproof is completed by applying H0.
Let x2 of type
ι
→
ι
→
ο
be given.
Assume H1:
x2
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
add_nat
x0
x1
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
ordsucc
(
add_nat
x0
x1
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
.
The subproof is completed by applying H1.
■