diff options
| author | letouzey | 2011-05-17 17:30:55 +0000 |
|---|---|---|
| committer | letouzey | 2011-05-17 17:30:55 +0000 |
| commit | 7386d0718f8c1e6fb47eea787d4287338f9e7060 (patch) | |
| tree | 7aebb7f48f1d724596d14a8a147e7d68f7317626 /kernel/subtyping.ml | |
| parent | cc5d102f0d9e3eef2e7b810c47002f26335601db (diff) | |
Modops: the strengthening functions can work without any env argument
The env was used for a particular case of Cbytegen.compile_constant_body,
but we can actually guess that it will answer a particular BCallias con.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14134 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 2430dc6f0f..00af99d980 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -302,8 +302,8 @@ let check_constant cst env mp1 l info1 cb2 spec2 subst1 subst2 = | _ -> error DefinitionFieldExpected let rec check_modules cst env msb1 msb2 subst1 subst2 = - let mty1 = module_type_of_module env None msb1 in - let mty2 = module_type_of_module env None msb2 in + let mty1 = module_type_of_module None msb1 in + let mty2 = module_type_of_module None msb2 in let cst = check_modtypes cst env mty1 mty2 subst1 subst2 false in cst @@ -397,6 +397,6 @@ let check_subtypes env sup super = let env = add_module (module_body_of_type sup.typ_mp sup) env in check_modtypes empty_constraint env - (strengthen env sup sup.typ_mp) super empty_subst + (strengthen sup sup.typ_mp) super empty_subst (map_mp super.typ_mp sup.typ_mp sup.typ_delta) false |