no goals
α : Type uu
β : Type vv
l₁✝ l₂✝ : List α
a : α
l₁ l₂ : List α
p : l₁ ~ l₂
x✝³ : α
x✝² x✝¹ : List α
x✝ : x✝² ~ x✝¹
hs : a ∈ x✝² ↔ a ∈ x✝¹
⊢ a ∈ x✝³ :: x✝² ↔ a ∈ x✝³ :: x✝¹
simp only [mem_cons, hs]
no goals
α : Type uu
β : Type vv
l₁✝ l₂✝ : List α
a : α
l₁ l₂ : List α
p : l₁ ~ l₂
x✝² x✝¹ : α
x✝ : List α
⊢ a ∈ x✝¹ :: x✝² :: x✝ ↔ a ∈ x✝² :: x✝¹ :: x✝
simp only [mem_cons, or_left_comm]