sig
  type (-'a, +'b) t
  val sexp_of_t :
    'a -> 'b -> ('c, 'd) Error_check.ToggleN.t -> Std_internal.Sexp.t
  val create :
    assertion:('a -> bool) ->
    fail_alert:('a -> 'b) ->
    final_fail_alert:('a -> 'b) ->
    success_alert:('a -> 'b) ->
    max_consecutive_fail_alerts:int -> ('a, 'b) Error_check.ToggleN.t
  val check : ('a, 'b) Error_check.ToggleN.t -> 'a -> 'b option
  val state : ('a, 'b) Error_check.ToggleN.t -> bool
end