diff options
| author |  soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-19 10:28:41 +0000 |
|---|---|---|
| committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-19 10:28:41 +0000 |
| commit | 7079052932f7443ad3a0bcb6fa0cac048338ba7c (patch) | |
| tree | 1b1e56e7f252a3e0f3a6ab518cfef2b83a1db1a8 /kernel/mod_subst.ml | |
| parent | 6f89e06a3230c3932cb43bd28e0f07f47d954a3f (diff) | |
In function "substitution_prefixed_by" the prefix test on module path
has been changed to a strict prefix test.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12952 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_subst.ml')
| -rw-r--r-- | kernel/mod_subst.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index b7bf1ba8b..5cb53d166 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -656,7 +656,7 @@ let substition_prefixed_by k mp subst = let prefixmp key (mp_to,reso) sub = match key with | MPI mpk -> - if mp_in_mp mp mpk then + if mp_in_mp mp mpk && mp <> mpk then let new_key = replace_mp_in_mp mp k mpk in Umap.add (MPI new_key) (mp_to,reso) sub else |