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