diff options
| author | soubiran | 2008-03-25 16:55:10 +0000 |
|---|---|---|
| committer | soubiran | 2008-03-25 16:55:10 +0000 |
| commit | 7dfb5d517e932b1b42445e4b1413dca72693cc4d (patch) | |
| tree | d3eff39598a905c31326ab82537b25a5e265b7ee /kernel/safe_typing.ml | |
| parent | 36780f223b50549f522ac2832eab127a9cc40615 (diff) | |
Correction de bugs relatifs a la compostion des substitutions
engendrees par les alias de module
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10718 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index b1eea3bbdb..a895e68ce7 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -311,7 +311,8 @@ let add_alias l mp senv = (* we get all alias substitutions that comes from mp *) let _,sub = translate_struct_entry senv.env (MSEident mp) in (* we add the new one *) - let sub = join (map_mp mp' mp) sub in + let mp1 = scrape_alias mp senv.env in + let sub = join (map_mp mp' mp1) sub in let env' = register_alias mp' mp senv.env in mp', { old = senv.old; env = env'; |