From 62c6c0ccc1930a556eeeab9b7a2050929cd790f1 Mon Sep 17 00:00:00 2001 From: barras Date: Fri, 19 Feb 2010 10:43:17 +0000 Subject: [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 --- checker/modops.ml | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'checker/modops.ml') 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 = -- cgit v1.2.3