diff options
author | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
---|---|---|
committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /proofs/refiner.ml | |
parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
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 = |