Integral.Boxablemodule Width : sig ... endinclude S with type 'a width := 'a Width.ttype nonrec 'a t = ('a Width.t, any_locality_mode Width.t) Maybe_naked.tval all : any_locality_mode t listval ignore_locality : _ t -> any_locality_mode tval width : _ t -> any_locality_mode Width.tval to_string : any_locality_mode t -> stringval sort : any_locality_mode t -> Jkind_types.Sort.Const.t