diff options
Diffstat (limited to 'src/tac2env.mli')
| -rw-r--r-- | src/tac2env.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tac2env.mli b/src/tac2env.mli index 0ef62d67ed..15664db756 100644 --- a/src/tac2env.mli +++ b/src/tac2env.mli @@ -105,9 +105,10 @@ val interp_primitive : ml_tactic_name -> ml_tactic (** {5 ML primitive types} *) +type ('a, 'b, 'r) intern_fun = Genintern.glob_sign -> 'a -> 'b * 'r glb_typexpr + type ('a, 'b) ml_object = { - ml_type : type_constant; - ml_intern : Genintern.glob_sign -> 'a -> 'b; + ml_intern : 'r. (raw_tacexpr, glb_tacexpr, 'r) intern_fun -> ('a, 'b, 'r) intern_fun; ml_subst : Mod_subst.substitution -> 'b -> 'b; ml_interp : environment -> 'b -> valexpr Proofview.tactic; ml_print : Environ.env -> 'b -> Pp.t; |