V.I
val (<:>) : Bastet.Float.Additive.Loop.t -> Bastet.Float.Additive.Loop.t -> Bastet.Float.Additive.Loop.t