Functoriality of Multiset.

instance Multiset.functor : Functor Multiset

Equations

• Multiset.functor = { map := @Multiset.map, mapConst := fun {α β : Type ?u.8} => Multiset.map ∘ Function.const β }

@[simp]

theorem Multiset.fmap_def {α' β' : Type u_1} {s : Multiset α'} (f : α' → β') : f <$> s = Multiset.map f s

instance Multiset.instLawfulFunctor : LawfulFunctor Multiset

Equations

• Multiset.instLawfulFunctor = ⋯

def Multiset.traverse {F : Type u → Type u} [Applicative F] [CommApplicative F] {α' β' : Type u} (f : α' → F β') : Multiset α' → F (Multiset β')

Map each element of a Multiset to an action, evaluate these actions in order, and collect the results.

Equations

• Multiset.traverse f = Quotient.lift (Functor.map Multiset.ofList ∘ traverse f) ⋯

instance Multiset.instMonad : Monad Multiset

Equations

• Multiset.instMonad = Monad.mk

@[simp]

theorem Multiset.pure_def {α : Type u_1} : pure = singleton

@[simp]

theorem Multiset.bind_def {α β : Type u_1} : (fun (x1 : Multiset α) (x2 : α → Multiset β) => x1 >>= x2) = Multiset.bind

instance Multiset.instLawfulMonad : LawfulMonad Multiset

Equations

• Multiset.instLawfulMonad = ⋯

@[simp]

theorem Multiset.map_comp_coe {α β : Type u_1} (h : α → β) : Functor.map h ∘ Multiset.ofList = Multiset.ofList ∘ Functor.map h

theorem Multiset.id_traverse {α : Type u_1} (x : Multiset α) : Multiset.traverse pure x = x

theorem Multiset.comp_traverse {G H : Type u_1 → Type u_1} [Applicative G] [Applicative H] [CommApplicative G] [CommApplicative H] {α β γ : Type u_1} (g : α → G β) (h : β → H γ) (x : Multiset α) : Multiset.traverse (Functor.Comp.mk ∘ Functor.map h ∘ g) x = Functor.Comp.mk (Multiset.traverse h <$> Multiset.traverse g x)

theorem Multiset.map_traverse {G : Type u_1 → Type u_1} [Applicative G] [CommApplicative G] {α β γ : Type u_1} (g : α → G β) (h : β → γ) (x : Multiset α) : Functor.map h <$> Multiset.traverse g x = Multiset.traverse (Functor.map h ∘ g) x

theorem Multiset.traverse_map {G : Type u_1 → Type u_1} [Applicative G] [CommApplicative G] {α β γ : Type u_1} (g : α → β) (h : β → G γ) (x : Multiset α) : Multiset.traverse h (Multiset.map g x) = Multiset.traverse (h ∘ g) x

theorem Multiset.naturality {G H : Type u_1 → Type u_1} [Applicative G] [Applicative H] [CommApplicative G] [CommApplicative H] (eta : ApplicativeTransformation G H) {α β : Type u_1} (f : α → G β) (x : Multiset α) : (fun {α : Type u_1} => eta.app α) (Multiset.traverse f x) = Multiset.traverse ((fun {α : Type u_1} => eta.app α) ∘ f) x