diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-19 10:43:17 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-02-19 10:43:17 +0000 |
| commit | 62c6c0ccc1930a556eeeab9b7a2050929cd790f1 (patch) | |
| tree | c8cbcdd3efef5706f0a60f280da4942b55124b5e /checker/modops.ml | |
| parent | 2383b30bb6efd01f68547113ac5019fb53b44479 (diff) | |
[checker] fixed vo validation problems, module incompatibilities remain
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12799 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/modops.ml')
| -rw-r--r-- | checker/modops.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/checker/modops.ml b/checker/modops.ml index 3d07135d1..de0d6c7e9 100644 --- a/checker/modops.ml +++ b/checker/modops.ml @@ -127,10 +127,7 @@ 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 mp_in_delta mb.mod_mp mb.mod_delta then - mb - else*) + assert(mp_from = mb.mod_mp); match mb.mod_type with | SEBstruct (sign) -> let resolve_out,sign_out = @@ -180,10 +177,6 @@ and strengthen_sig env mp_from sign mp_to resolver = resolve_out,item::rest' let strengthen env mtb mp = -(* if mp_in_delta mtb.typ_mp mtb.typ_delta then - (* in this case mtb has already been strengthened*) - mtb - else*) match mtb.typ_expr with | SEBstruct (sign) -> let resolve_out,sign_out = |