. simp only [delete_iff, ne_eq] at h1
  exact Exists.intro v $ Or.inl ⟨h1.2, h2⟩
case intro.inl.intro
α : Type u_1
β : Type u_2
inst✝¹ : DecidableEq α
inst✝ : Clause α β
p : α → Bool
c : β
l : Literal α
v : α
h1 : (v, false) ∈ toList (delete c l)
h2 : p v = false
⊢ ∃ a, (a, false) ∈ toList c ∧ p a = false ∨ (a, true) ∈ toList c ∧ p a = true

case intro.inr.intro
α : Type u_1
β : Type u_2
inst✝¹ : DecidableEq α
inst✝ : Clause α β
p : α → Bool
c : β
l : Literal α
v : α
h1 : (v, true) ∈ toList (delete c l)
h2 : p v = true
⊢ ∃ a, (a, false) ∈ toList c ∧ p a = false ∨ (a, true) ∈ toList c ∧ p a = true
case intro.inr.intro
α : Type u_1
β : Type u_2
inst✝¹ : DecidableEq α
inst✝ : Clause α β
p : α → Bool
c : β
l : Literal α
v : α
h1 : (v, true) ∈ toList (delete c l)
h2 : p v = true
⊢ ∃ a, (a, false) ∈ toList c ∧ p a = false ∨ (a, true) ∈ toList c ∧ p a = true