sig
  type t
  val tws_of_t : t -> Tws_prot.raw_tws
  val t_of_tws : Tws_prot.raw_tws -> t
  val val_type : t Tws_prot.Val_type.t
  val create :
    date:Core.Std.Date.t ->
    hours:Core.Std.Time.Ofday.t list -> Trading_times.t
  val date : Trading_times.t -> Core.Std.Date.t
  val closed : Trading_times.t -> bool
  val start :
    Trading_times.t -> zone:Core.Std.Time.Zone.t -> Core.Std.Time.t option
  val stop :
    Trading_times.t -> zone:Core.Std.Time.Zone.t -> Core.Std.Time.t option
  val start_exn :
    Trading_times.t -> zone:Core.Std.Time.Zone.t -> Core.Std.Time.t
  val stop_exn :
    Trading_times.t -> zone:Core.Std.Time.Zone.t -> Core.Std.Time.t
  val t_of_sexp : Sexplib.Sexp.t -> Trading_times.t
  val sexp_of_t : Trading_times.t -> Sexplib.Sexp.t
end