diff options
| author | pboutill | 2011-02-10 14:11:01 +0000 |
|---|---|---|
| committer | pboutill | 2011-02-10 14:11:01 +0000 |
| commit | 6df4e0fe6bc6076bc95a1a71d28ae049d04ba517 (patch) | |
| tree | 6e749cf9e23637a28185daac6fb2e12a3d0d6ab4 /plugins/subtac/subtac_classes.ml | |
| parent | 533c5085e4f9ce392a87841ab67e45c557aa769e (diff) | |
Data structure telling implicits of local variables is a map in the
intern_env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13823 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/subtac/subtac_classes.ml')
| -rw-r--r-- | plugins/subtac/subtac_classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/subtac/subtac_classes.ml b/plugins/subtac/subtac_classes.ml index aae5383892..640d3e60d6 100644 --- a/plugins/subtac/subtac_classes.ml +++ b/plugins/subtac/subtac_classes.ml @@ -26,11 +26,11 @@ open Util module SPretyping = Subtac_pretyping.Pretyping -let interp_constr_evars_gen evdref env ?(impls=[]) kind c = +let interp_constr_evars_gen evdref env ?(impls=Constrintern.empty_internalization_env) kind c = SPretyping.understand_tcc_evars evdref env kind (intern_gen (kind=IsType) ~impls !evdref env c) -let interp_casted_constr_evars evdref env ?(impls=[]) c typ = +let interp_casted_constr_evars evdref env ?(impls=Constrintern.empty_internalization_env) c typ = interp_constr_evars_gen evdref env ~impls (OfType (Some typ)) c let interp_context_evars evdref env params = |