have ⟨a, g⟩ := g ‹p›
case pos
α : Sort u_1
inst : Nonempty α
p : Prop
q : α → Prop
h✝ : p
g : Imp p (_root_.Exists q)
⊢ ∃ a, p → q a
case pos
α : Sort u_1
inst : Nonempty α
p : Prop
q : α → Prop
h✝ : p
g✝ : Imp p (_root_.Exists q)
a : α
g : q a
⊢ ∃ a, p → q a