Let Xi, i and x be given.
rewrite the current goal using HXdef (from left to right).
We prove the intermediate
claim HXi_i_in:
apply_fun Xi i ∈ Fam.
An
exact proof term for the current goal is
(ReplI ω (λj : set ⇒ apply_fun Xi j) i HiO).
An
exact proof term for the current goal is
(UnionI Fam x (apply_fun Xi i) Hx HXi_i_in).
∎