Let X, Tx, Y, Ty, Ty' and f be given.
We prove the intermediate
claim Hfun:
function_on f X Y.
Apply andI to the current goal.
Apply andI to the current goal.
Apply andI to the current goal.
An exact proof term for the current goal is HTx.
An exact proof term for the current goal is HTy'.
An exact proof term for the current goal is Hfun.
Let V be given.
We prove the intermediate
claim HV:
V ∈ Ty.
An exact proof term for the current goal is (Hsub V HV').
∎