Module Location.L
include sig ... end
type location = Tracelog.location = ..type location += type t = locationLocation.L
include sig ... endtype location = Tracelog.location = ..type location += type t = location