diff options
Diffstat (limited to 'engine')
-rw-r--r-- | engine/geninterp.ml | 5 | ||||
-rw-r--r-- | engine/geninterp.mli | 2 |
2 files changed, 0 insertions, 7 deletions
diff --git a/engine/geninterp.ml b/engine/geninterp.ml index 0d6721367..be4011cb6 100644 --- a/engine/geninterp.ml +++ b/engine/geninterp.ml @@ -28,8 +28,3 @@ module Interp = Register(InterpObj) let interp = Interp.obj let register_interp0 = Interp.register0 - -let generic_interp ist (GenArg (Glbwit wit, v)) = - let open Ftactic.Notations in - interp wit ist v >>= fun ans -> - Ftactic.return (Val.inject (val_tag (topwit wit)) ans) diff --git a/engine/geninterp.mli b/engine/geninterp.mli index 0992db7a2..0e7ed1847 100644 --- a/engine/geninterp.mli +++ b/engine/geninterp.mli @@ -21,7 +21,5 @@ type ('glb, 'top) interp_fun = interp_sign -> 'glb -> 'top Ftactic.t val interp : ('raw, 'glb, 'top) genarg_type -> ('glb, 'top) interp_fun -val generic_interp : (glob_generic_argument, Val.t) interp_fun - val register_interp0 : ('raw, 'glb, 'top) genarg_type -> ('glb, 'top) interp_fun -> unit |