module type Internal = sig .. end
sig
end
include Abstract_location.S
val structure : location Abstract_location.structure
location Abstract_location.structure