diff options
| author | Gaëtan Gilbert | 2020-04-16 23:06:35 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-04-20 13:19:17 +0200 |
| commit | 7a4e7dfbaa8dc3fa92931c4bfa39d268940e08f8 (patch) | |
| tree | 13c841f5e345bc11b4ed78af0f51b8a087890fbe /kernel/subtyping.ml | |
| parent | e77b7aed145718b73ca58c75bc7ed01d2b55446f (diff) | |
Remove mod_constraints field of module body
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 3f81a62956..28baa82666 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -336,7 +336,6 @@ and check_modtypes cst env mtb1 mtb2 subst1 subst2 equiv = mod_expr = Abstract; mod_type = subst_signature subst1 body_t1; mod_type_alg = None; - mod_constraints = mtb1.mod_constraints; mod_retroknowledge = ModBodyRK []; mod_delta = mtb1.mod_delta} env in @@ -347,7 +346,6 @@ and check_modtypes cst env mtb1 mtb2 subst1 subst2 equiv = let check_subtypes env sup super = let env = add_module_type sup.mod_mp sup env in - let env = Environ.push_context_set ~strict:true super.mod_constraints env in check_modtypes Univ.Constraint.empty env (strengthen sup sup.mod_mp) super empty_subst (map_mp super.mod_mp sup.mod_mp sup.mod_delta) false |