diff options
| author | soubiran | 2010-04-16 14:14:28 +0000 |
|---|---|---|
| committer | soubiran | 2010-04-16 14:14:28 +0000 |
| commit | 456ff087953a62df0b46e76f16d0117363558b0d (patch) | |
| tree | 2cec913f9689e6410c0ecebe3d95b076464cd942 /kernel/subtyping.ml | |
| parent | d31d8723b5b103b4937c63dd2560c07b04492a3a (diff) | |
cf. 12945
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12946 85f007b7-540e-0410-9357-904b9bb8a0f7
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 2a5f35f1a4..e07af3ba33 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -390,8 +390,6 @@ and check_modtypes cst env mtb1 mtb2 subst1 subst2 equiv = let env = add_module (module_body_of_type (MPbound arg_id2) arg_t2) env in - let subst1 = - (join (map_mbid arg_id1 (MPbound arg_id2) arg_t2.typ_delta) subst1) in let env = match body_t1 with SEBstruct str -> add_module {mod_mp = mtb1.typ_mp; |