Multiplicative.Monoid
type t
= Float.Multiplicative.Semigroup.t option
val append : t -> t -> t
val empty : t