α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ ↑(List.diff l₁ l₂) = foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ Quotient.mk (isSetoid α) l₁ - Quotient.mk (isSetoid α) l₂ =
    foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a)
      (Quotient.mk (isSetoid α) l₁) (Quotient.mk (isSetoid α) l₂)
show ofList (l₁.diff l₂) = foldl erase erase_comm l₁ l₂
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ ↑(List.foldl List.erase l₁ l₂) =
    foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ ↑(List.diff l₁ l₂) = foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂
rw [diff_eq_foldl l₁ l₂]
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂ =
    ↑(List.foldl List.erase l₁ l₂)
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ ↑(List.foldl List.erase l₁ l₂) =
    foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂
symm
no goals
α : Type u_1
β : Type ?u.160973
γ : Type ?u.160976
inst✝ : DecidableEq α
s✝ t✝ u : Multiset α
a b : α
s t : Multiset α
l₁ l₂ : List α
⊢ foldl erase (_ : ∀ (s : Multiset α) (a b : α), erase (erase s a) b = erase (erase s b) a) ↑l₁ ↑l₂ =
    ↑(List.foldl List.erase l₁ l₂)
exact foldl_hom _ _ _ _ _ fun x y => rfl