diff options
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 3c3bb3970..609428792 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -98,10 +98,6 @@ let thensi_tac tac (sigr,gs) = let then_tac tac = thensf_tac [||] tac -let non_existent_goal n = - errorlabstrm ("No such goal: "^(string_of_int n)) - (str"Trying to apply a tactic to a non existent goal") - (* [tclTHENS3PARTS tac1 [|t1 ; ... ; tn|] tac2 [|t'1 ; ... ; t'm|] gls] applies the tactic [tac1] to [gls] then, applies [t1], ..., [tn] to the first [n] resulting subgoals, [t'1], ..., [t'm] to the last [m] @@ -370,11 +366,6 @@ let tactic_list_tactic tac gls = (* Change evars *) let tclEVARS sigma gls = tclIDTAC {gls with sigma=sigma} -(* Pretty-printers. *) - -let pp_info = ref (fun _ _ _ -> assert false) -let set_info_printer f = pp_info := f - (* Check that holes in arguments have been resolved *) let check_evars env sigma extsigma origsigma = |