sig
  type ('a, 'b) t = {
    assertion : '-> bool;
    fail_alert : '-> 'b;
    final_fail_alert : '-> 'b;
    success_alert : '-> 'b;
    max_fail_alerts : int;
    mutable num_fail_alerts : int;
  }
  val create :
    assertion:('-> bool) ->
    fail_alert:('-> 'b) ->
    final_fail_alert:('-> 'b) ->
    success_alert:('-> 'b) ->
    max_fail_alerts:int -> ('a, 'b) Error_check.ToggleN.t
  val check : ('a, 'b) Error_check.ToggleN.t -> '-> 'b option
  val state : ('a, 'b) Error_check.ToggleN.t -> bool
  val sexp_of_t :
    '-> '-> ('c, 'd) Error_check.ToggleN.t -> Sexplib.Sexp.t
end