English
There exists a bundled additive monoid homomorphism countP: FreeMonoid α →* Multiplicative ℕ, whose underlying map is countP'(p).
Русский
Существует связанный аддитивный монаидный гомоморфизм countP: FreeMonoid α →* Multiplicative ℕ, который по базовым словам сопоставляет countP'(p).
LaTeX
$$$\\text{countP} : FreeMonoid\\ α \\to^* \\mathrm{Multiplicative}\\ \\mathbb{N},\\quad \\text{toFun} = \\mathrm{ofAdd} \\circ \\operatorname{countP}'(p).$$$
Lean4
theorem countP_apply (l : FreeMonoid α) : l.countP p = .ofAdd (l.toList.countP p) :=
rfl