Id_typesmodule type BaseId = sig ... endGeneric identifier type
module type Id = sig ... endmodule type UnitId = sig ... endFully qualified identifiers
module UnitId (_ : Id) (Compilation_unit : Identifiable.Thing) : UnitId with module Compilation_unit := Compilation_unit