Float_printer.Provider_interface
module type S = sig ... end
val make : (module S with type t = 't) -> ('t, tag) Provider.t
val float_printer : ('t, (module S with type t = 't), [> tag ]) Provider.Trait.t