. next h2 =>
  exact h2 pf1
case inl
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h1 : limplies α f1 f2
h2 : incompatible α f1 f2
p : α → Bool
pf1 : p ⊨ f1
h✝ : ¬(p ⊨ f1)
⊢ False

case inr
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h1 : limplies α f1 f2
h2 : incompatible α f1 f2
p : α → Bool
pf1 : p ⊨ f1
h✝ : ¬(p ⊨ f2)
⊢ False
case inr
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h1 : limplies α f1 f2
h2 : incompatible α f1 f2
p : α → Bool
pf1 : p ⊨ f1
h✝ : ¬(p ⊨ f2)
⊢ False