Module Loop.V

module I : sig ... end
val identity : Int.Additive.Loop.t -> bool