induction c
α : Type
f g : α → Bool
c : Clause α
w : ∀ (i : α), mem i c → f i = g i
⊢ eval f c = eval g c
case nil
α : Type
f g : α → Bool
w : ∀ (i : α), mem i [] → f i = g i
⊢ eval f [] = eval g []

case cons
α : Type
f g : α → Bool
head✝ : α × Bool
tail✝ : List (α × Bool)
tail_ih✝ : (∀ (i : α), mem i tail✝ → f i = g i) → eval f tail✝ = eval g tail✝
w : ∀ (i : α), mem i (head✝ :: tail✝) → f i = g i
⊢ eval f (head✝ :: tail✝) = eval g (head✝ :: tail✝)