no goals
α : Type uu
β : Type vv
l₁ l₂ : List α
inst✝ : DecidableEq α
l t₁ t₂ : List α
h : t₁ ~ t₂
⊢ List.diff l t₁ = List.diff l t₂
induction h generalizing l <;>
  first |simp [*, Perm.erase, erase_comm]
no goals
case trans
α : Type uu
β : Type vv
l₁ l₂ : List α
inst✝ : DecidableEq α
t₁ t₂ l₁✝ l₂✝ l₃✝ : List α
a✝¹ : l₁✝ ~ l₂✝
a✝ : l₂✝ ~ l₃✝
a_ih✝¹ : ∀ (l : List α), List.diff l l₁✝ = List.diff l l₂✝
a_ih✝ : ∀ (l : List α), List.diff l l₂✝ = List.diff l l₃✝
l : List α
⊢ List.diff l l₁✝ = List.diff l l₃✝
simp [*, Perm.erase, erase_comm]