module Interfaces:sig..end
typeeffectful_semantic =Constr.constr list -> Constr.constr
val new_primitive : string -> string -> effectful_semantic -> unit
val primitive_semantic : Names.constructor -> effectful_semantic
val force_interface_initializers : unit -> unit
val add_register_handler : (unit -> unit) -> unit