diff options
-rw-r--r-- | proofs/refiner.mli | 6 | ||||
-rw-r--r-- | proofs/tacmach.ml | 4 |
2 files changed, 4 insertions, 6 deletions
diff --git a/proofs/refiner.mli b/proofs/refiner.mli index 8546b0c73..be59f5685 100644 --- a/proofs/refiner.mli +++ b/proofs/refiner.mli @@ -26,12 +26,6 @@ val add_tactic : string -> (tactic_arg list -> tactic) -> unit val overwriting_add_tactic : string -> (tactic_arg list -> tactic) -> unit val lookup_tactic : string -> (tactic_arg list) -> tactic -val hide_tactic : - string -> (tactic_arg list -> tactic) -> (tactic_arg list -> tactic) - -val overwrite_hidden_tactic : - string -> (tactic_arg list -> tactic) -> (tactic_arg list -> tactic) - val refiner : rule -> tactic val context : ctxtty -> tactic val vernac_tactic : tactic_expression -> tactic diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 0d4d279d5..88ca18f1c 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -328,10 +328,14 @@ let tactic_com_bind_list_list tac args gl = (* Functions for hiding the implementation of a tactic. *) (********************************************************) +(* hide_tactic s tac pr registers a tactic s under the name s *) + let hide_tactic s tac = add_tactic s tac; (fun args -> vernac_tactic(s,args)) +(* overwriting_register_tactic s tac pr registers a tactic s under the + name s even if a tactic of the same name is already registered *) let overwrite_hidden_tactic s tac = overwriting_add_tactic s tac; |