val equal : t -> t -> Ppx_deriving_runtime.boolval compare : t -> t -> Ppx_deriving_runtime.intval name : unit -> stringval pretty : unit -> (Base.t * User.t) -> Printable.Pretty.docval printXml : 'a BatInnerIO.output -> (Base.t * User.t) -> unitval to_yojson :
(Base.t * User.t) ->
[> `Assoc of (string * Yojson.Safe.t) list ]