simp only [not_mem_cons] at h
case isFalse.cons
c : Clause Nat
g : List (Clause Nat)
h : ¬∃ a, mem a (c :: g)
⊢ unsat (List.replicate (c :: g).length []) ↔ unsat (c :: g)
case isFalse.cons
c : Clause Nat
g : List (Clause Nat)
h : ∃ n, c :: g = List.replicate n []
⊢ unsat (List.replicate (c :: g).length []) ↔ unsat (c :: g)