sig
  type t = float
  val to_yojson : Ketrew_pervasives.Time.t -> Yojson.Safe.json
  val of_yojson :
    Yojson.Safe.json ->
    [ `Error of string | `Ok of Ketrew_pervasives.Time.t ]
  val now : unit -> Ketrew_pervasives.Time.t
  val to_filename : float -> string
  val log : float -> Ketrew_pervasives.Log.t
end