Apply Hex to the current goal.
Let y be given.
Assume Hyp.
Apply Hyp to the current goal.
Assume Hy1 HzEq.
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 Hy1.
We prove the intermediate
claim Hy0:
y = 0.
An
exact proof term for the current goal is
(SingE 0 y HySing).
We prove the intermediate
claim HzInj10:
z = Inj1 0.
rewrite the current goal using Hy0 (from right to left).
An exact proof term for the current goal is HzEq.
We prove the intermediate
claim Hz1:
z = 1.
rewrite the current goal using HzInj10 (from left to right).
rewrite the current goal using
Inj1_0_eq_1 (from left to right).
Use reflexivity.
rewrite the current goal using Hz1 (from left to right).
An
exact proof term for the current goal is
(SingI 1).