. intros h p
  constructor
  . exact h.1 p
  . exact h.2 p
case mpr
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
⊢ limplies α f1 f2 ∧ limplies α f2 f1 → liff α f1 f2
no goals