apply hpq_mpr
case intro.intro
P Q R : Prop
hr : R
hqr_mp : Q → R
hqr_mpr : R → Q
hpq_mp : P → Q
hpq_mpr : Q → P
⊢ P
case intro.intro
P Q R : Prop
hr : R
hqr_mp : Q → R
hqr_mpr : R → Q
hpq_mp : P → Q
hpq_mpr : Q → P
⊢ Q