diff options
| author | Pierre-Marie Pédrot | 2017-08-18 17:03:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-18 17:06:06 +0200 |
| commit | 33f7df93bb686077b9ca164078763c2208cbe3d5 (patch) | |
| tree | 01da01f1bc5bd160f4599eafd6fc97acc38ada71 /src/tac2stdlib.ml | |
| parent | f392ad50331d3e59d3e2f3ec66c0a42112506d7f (diff) | |
Removing dead code.
Diffstat (limited to 'src/tac2stdlib.ml')
| -rw-r--r-- | src/tac2stdlib.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml index 3cfd0b5626..e3b0d6bf6b 100644 --- a/src/tac2stdlib.ml +++ b/src/tac2stdlib.ml @@ -11,8 +11,6 @@ open Locus open Misctypes open Genredexpr open Tac2expr -open Tac2core -open Tac2tactics open Proofview.Notations module Value = Tac2ffi @@ -169,12 +167,6 @@ let pname s = { mltac_plugin = "ltac2"; mltac_tactic = s } let lift tac = tac <*> return v_unit -let wrap f = - return () >>= fun () -> return (f ()) - -let wrap_unit f = - return () >>= fun () -> f (); return v_unit - let define_prim0 name tac = let tac = function | [_] -> lift tac |