Apply add_nat_SR with 16, 2, λ x0 x1 . x1 = 19 leaving 2 subgoals.

The subproof is completed by applying nat_2.

set y0 to be ordsucc (add_nat 16 2)

set y1 to be 19

Claim L0: ∀ x2 : ι → ο . x2 y1 ⟶ x2 y0

Let x2 of type ι → ο be given.

Assume H0: x2 19.

set y3 to be λ x3 . x2

Apply unknownprop_26fac5d4bef4b9f6ba3a7efb0a4e398ff2e6bc4a3bfb1f8331d0793afe0746f8 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.

■

Proofgold Proof