Let p be given.
Apply Hexx to the current goal.
Let x be given.
Assume Hxpair.
We prove the intermediate
claim Hpeq1:
p = (x,minus_SNo x).
Apply Hexy to the current goal.
Let y be given.
Assume Hypair.
We prove the intermediate
claim Hpeq2:
p = (y,minus_SNo y).
We prove the intermediate
claim Hp0x:
(p 0) = x.
rewrite the current goal using Hpeq1 (from left to right) at position 1.
We prove the intermediate
claim Hp0y:
(p 0) = y.
rewrite the current goal using Hpeq2 (from left to right) at position 1.
We prove the intermediate
claim HxEqy:
x = y.
rewrite the current goal using Hp0x (from right to left).
An exact proof term for the current goal is Hp0y.
Apply FalseE to the current goal.
rewrite the current goal using HxEqy (from right to left).
An exact proof term for the current goal is HxQ.
An exact proof term for the current goal is (HynQ HyQ).
∎