Theorem: Sat.incompatible_of_unsat (LeanSAT/Sat/Basic.lean)

State before:
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
⊢ unsatisfiable α f1 → incompatible α f1 f2
Tactic:
intro h p
State after:
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h : unsatisfiable α f1
p : α → Bool
⊢ ¬(p ⊨ f1) ∨ ¬(p ⊨ f2)

State before:
α : Type u
σ1 : Type v
σ2 : Type w
inst✝¹ : HSat α σ1
inst✝ : HSat α σ2
f1 : σ1
f2 : σ2
h : unsatisfiable α f1
p : α → Bool
⊢ ¬(p ⊨ f1) ∨ ¬(p ⊨ f2)
Tactic:
exact Or.inl $ h p
State after:
no goals