diff options
Diffstat (limited to 'proofs/tactic_debug.mli')
| -rw-r--r-- | proofs/tactic_debug.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/proofs/tactic_debug.mli b/proofs/tactic_debug.mli index b05a33fdfc..1bb8a7f42d 100644 --- a/proofs/tactic_debug.mli +++ b/proofs/tactic_debug.mli @@ -18,12 +18,13 @@ open Term (* Debug information *) type debug_info = - | DebugOn + | DebugOn of int | DebugOff | Exit (* Prints the state and waits *) -val debug_prompt : goal sigma option -> Tacexpr.raw_tactic_expr -> debug_info +val debug_prompt : int -> goal sigma option -> Tacexpr.raw_tactic_expr -> + (debug_info -> 'a) -> (unit -> 'a) -> 'a (* Prints a constr *) val db_constr : debug_info -> Environ.env -> constr -> unit |