diff options
| author |  soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-07-09 09:28:44 +0000 |
|---|---|---|
| committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-07-09 09:28:44 +0000 |
| commit | f9c88a04f7ed3fe2a66eb0fc2fc9aae1db232f9d (patch) | |
| tree | dbe2ce927c9536f43fab04caf6c8d7818bd318af | |
| parent | 98c56d98cb8bc2f503dea5a9bdf7d1e1be9d6fe5 (diff) | |
Correction bug 2134.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12235 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/modops.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index 8febff5e8..97697f5de 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -144,11 +144,13 @@ let rec subst_with_body sub = function and subst_modtype sub mtb = let typ_expr' = subst_struct_expr sub mtb.typ_expr in - if typ_expr'==mtb.typ_expr then + let sub_mtb = join_alias mtb.typ_alias sub in + if typ_expr'==mtb.typ_expr && sub_mtb==mtb.typ_alias then mtb else { mtb with - typ_expr = typ_expr'} + typ_expr = typ_expr'; + typ_alias = sub_mtb} and subst_structure sub sign = let subst_body = function |