left
case a.inl
α : Type
f g : α → Bool
i : α × Bool
c : List (α × Bool)
ih : (∀ (i : α), mem i c → f i = g i) → eval f c = eval g c
w : ∀ (i_1 : α), mem i_1 (i :: c) → f i_1 = g i_1
j : α
h : (j, false) ∈ c
⊢ mem j (i :: c)
case a.inl.h
α : Type
f g : α → Bool
i : α × Bool
c : List (α × Bool)
ih : (∀ (i : α), mem i c → f i = g i) → eval f c = eval g c
w : ∀ (i_1 : α), mem i_1 (i :: c) → f i_1 = g i_1
j : α
h : (j, false) ∈ c
⊢ (j, false) ∈ i :: c