cases hlit
case intro
maxLit : Nat
c : Clause Nat
lit : Nat
hlit : (lit, false) ∈ c ∨ (lit, true) ∈ c
left✝ : ∃ a, a ∈ c ∧ a.fst = maxLit
hbar : ∀ (a : Nat × Bool), a ∈ c → a.fst ≤ maxLit
⊢ lit ≤ maxLit
case intro.inl
maxLit : Nat
c : Clause Nat
lit : Nat
left✝ : ∃ a, a ∈ c ∧ a.fst = maxLit
hbar : ∀ (a : Nat × Bool), a ∈ c → a.fst ≤ maxLit
h✝ : (lit, false) ∈ c
⊢ lit ≤ maxLit

case intro.inr
maxLit : Nat
c : Clause Nat
lit : Nat
left✝ : ∃ a, a ∈ c ∧ a.fst = maxLit
hbar : ∀ (a : Nat × Bool), a ∈ c → a.fst ≤ maxLit
h✝ : (lit, true) ∈ c
⊢ lit ≤ maxLit