intro _
case neg
α : Sort u_1
inst : Nonempty α
p : Prop
q : α → Prop
h✝ : ¬p
⊢ Imp p (_root_.Exists q) → ∃ a, p → q a
case neg
α : Sort u_1
inst : Nonempty α
p : Prop
q : α → Prop
h✝ : ¬p
a✝ : Imp p (_root_.Exists q)
⊢ ∃ a, p → q a