With_default.Key
type 'a t
val create : default:'a -> name:Base.String.t -> ('a -> Sexp.t) -> 'a t
val id : 'a t -> 'a Type_equal.Id.t