simp
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
P : A → Prop
Q : A → A → Prop
a : A
pa : P a
ex : ∀ (a : A), P a → ∃ b, P b ∧ Q a b
ap : { x // P x }
a' : A
p : (fun x => P x) a'
⊢ ∃ b, P { val := a', property := p }.val ∧ Q { val := a', property := p }.val b.val
A : Type
R : A → A → Prop
inhabited_A : Nonempty A
P : A → Prop
Q : A → A → Prop
a : A
pa : P a
ex : ∀ (a : A), P a → ∃ b, P b ∧ Q a b
ap : { x // P x }
a' : A
p : (fun x => P x) a'
⊢ P a' ∧ ∃ x, Q a' x.val