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