. intros f1_unsat p p_entails_f2
  rw [← h p] at p_entails_f2
  exact f1_unsat p p_entails_f2
case mp
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h : liff α f1 f2
⊢ unsatisfiable α f1 → unsatisfiable α f2

case mpr
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h : liff α f1 f2
⊢ unsatisfiable α f2 → unsatisfiable α f1
case mpr
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h : liff α f1 f2
⊢ unsatisfiable α f2 → unsatisfiable α f1