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/modops.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/modops.ml')
| -rw-r--r-- | checker/modops.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/checker/modops.ml b/checker/modops.ml index de0d6c7e9..ce2f07ab6 100644 --- a/checker/modops.ml +++ b/checker/modops.ml @@ -127,7 +127,9 @@ let strengthen_const env mp_from l cb resolver = let rec strengthen_mod env mp_from mp_to mb = - assert(mp_from = mb.mod_mp); + if Declarations.mp_in_delta mb.mod_mp mb.mod_delta then + mb + else match mb.mod_type with | SEBstruct (sign) -> let resolve_out,sign_out = |