val create : init:'b -> f:('b -> 'a -> 'b) -> name:Base.String.t -> ('b -> Sexp.t) -> ('a, 'b) tval id : ('a, 'b) t -> 'b Type_equal.Id.t
With_fold.Keyval create : init:'b -> f:('b -> 'a -> 'b) -> name:Base.String.t -> ('b -> Sexp.t) -> ('a, 'b) tval id : ('a, 'b) t -> 'b Type_equal.Id.t