diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-19 11:46:35 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-19 11:46:35 +0000 |
| commit | 8db86b3a3d531c44d9a52cc5519122e5a3af3ed9 (patch) | |
| tree | 3ef0ca412f163e8080546f9a3373e323dacde6a5 /checker/declarations.ml | |
| parent | 62c6c0ccc1930a556eeeab9b7a2050929cd790f1 (diff) | |
added validation of delta_resolver (which seem to have an impact on typing)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12800 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/declarations.ml')
| -rw-r--r-- | checker/declarations.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index 95d1f2bd1..2a5d3114c 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -64,13 +64,13 @@ let empty_delta_resolver = Deltamap.empty type substitution = (module_path * delta_resolver) Umap.t type 'a subst_fun = substitution -> 'a -> 'a -let val_res_dom = no_val - (*val_sum "resolver_domain" 0 [|[|val_kn|];[|val_mp|]|]*) +let val_res_dom = + val_sum "delta_key" 0 [|[|val_kn|];[|val_mp|]|] -let val_res = no_val - (* val_map ~name:"delta_resolver" +let val_res = + val_map ~name:"delta_resolver" val_res_dom - (val_sum "resolver_codomain" 0 [|[|val_opt val_constr||];[|val_kn|];[|val_mp|]|])*) + (val_sum "delta_hint" 0 [|[|val_opt val_constr|];[|val_kn|];[|val_mp|]|]) let val_subst = val_map ~name:"substitution" |