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