From f9c88a04f7ed3fe2a66eb0fc2fc9aae1db232f9d Mon Sep 17 00:00:00 2001
From: soubiran
Date: Thu, 9 Jul 2009 09:28:44 +0000
Subject: Correction bug 2134.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12235 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/modops.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 8febff5e85..97697f5de6 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
-- 
cgit v1.2.3