simp [mem]
case mk.true
α : Type
c : List (α × Bool)
a b : α
⊢ mem a ((b, true) :: c) ↔ a = (b, true).fst ∨ mem a c
case mk.true
α : Type
c : List (α × Bool)
a b : α
⊢ (a, false) ∈ c ∨ a = b ∨ (a, true) ∈ c ↔ a = b ∨ (a, false) ∈ c ∨ (a, true) ∈ c