diff options
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 4a2dd9afcd..83fc398e7e 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -164,7 +164,7 @@ and check_with_aux_mod env mtb with_decl now = in if now then let mp' = scrape_alias mp env' in - let up_subst = update_subst_alias mtb'.typ_alias (map_mp (mp_rec [id]) mp') in + let up_subst = update_subst mtb'.typ_alias (map_mp (mp_rec [id]) mp') in cst, (join (map_mp (mp_rec [id]) mp') up_subst) else cst,empty_subst @@ -186,7 +186,7 @@ and check_with_aux_mod env mtb with_decl now = if now then let mtb' = lookup_modtype mp env' in let mp' = scrape_alias mp env' in - let up_subst = update_subst_alias + let up_subst = update_subst mtb'.typ_alias (map_mp (mp_rec (List.rev (id::idl))) mp') in cst, (join (map_mp (mp_rec (List.rev (id::idl))) mp') up_subst) else |