apply And.right
case mp.right
α : Type
p q : α → Prop
h : ∀ (x : α), p x ∧ q x
x : α
⊢ q x
case mp.right.self
α : Type
p q : α → Prop
h : ∀ (x : α), p x ∧ q x
x : α
⊢ ?mp.right.a ∧ q x

case mp.right.a
α : Type
p q : α → Prop
h : ∀ (x : α), p x ∧ q x
x : α
⊢ Prop