Let y be given.
We prove the intermediate
claim HySing:
y ∈ {0}.
rewrite the current goal using
eq_1_Sing0 (from right to left).
An exact proof term for the current goal is Hy.
We prove the intermediate
claim Hy0:
y = 0.
An
exact proof term for the current goal is
(SingE 0 y HySing).
rewrite the current goal using Hy0 (from left to right).
An
exact proof term for the current goal is
(Inj1I1 0).
∎