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