Module Additive.Magma

type t = float
val append : t -> t -> t