diff options
| author | Pierre-Marie Pédrot | 2017-09-03 17:39:16 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-03 17:46:46 +0200 |
| commit | 83a92df4e2e94bfc33354cf26627329d4a2e0610 (patch) | |
| tree | b9be1b570ab94ed3a2190402f6e77827a1d617c5 /src/tac2env.ml | |
| parent | 4d5e3f3f00cb1848861b938ba1a57c33800d71a6 (diff) | |
Allowing complex types in ML objects.
Diffstat (limited to 'src/tac2env.ml')
| -rw-r--r-- | src/tac2env.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tac2env.ml b/src/tac2env.ml index 489113c031..56fd55ee84 100644 --- a/src/tac2env.ml +++ b/src/tac2env.ml @@ -251,9 +251,10 @@ let shortest_qualid_of_projection kn = let sp = KNmap.find kn tab.tab_proj_rev in KnTab.shortest_qualid Id.Set.empty sp tab.tab_proj +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; |