let ⟨⟨a,hpa⟩,hfa⟩ := h
case h.mpr
α : Type u
β : Type v
inst✝⁴ : BishopFin α
inst✝³ : BishopFin β
p q : α → Prop
inst✝² : DecidablePred p
inst✝¹ : DecidablePred q
inst✝ : DecidableEq β
f : α → β
b : β
h : ∃ a, (f ∘ Subtype.val) a = b
⊢ ∃ a, p a ∧ f a = b
case h.mpr
α : Type u
β : Type v
inst✝⁴ : BishopFin α
inst✝³ : BishopFin β
p q : α → Prop
inst✝² : DecidablePred p
inst✝¹ : DecidablePred q
inst✝ : DecidableEq β
f : α → β
b : β
h : ∃ a, (f ∘ Subtype.val) a = b
a : α
hpa : p a
hfa : (f ∘ Subtype.val) { val := a, property := hpa } = b
⊢ ∃ a, p a ∧ f a = b