We prove the intermediate
claim HxSing:
x ∈ {a_elt}.
rewrite the current goal using HUeq (from right to left).
An exact proof term for the current goal is Hx.
We prove the intermediate
claim Hxeq:
x = a_elt.
An
exact proof term for the current goal is
(SingE a_elt x HxSing).
rewrite the current goal using Hxeq (from left to right).