checker deals with polymorphic constants and module aliases

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10892 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 8 insertions, 0 deletions

diff --git a/checker/declarations.ml b/checker/declarations.ml
index d5c34d92b..94388f4ac 100644
--- a/checker/declarations.ml
+++ b/checker/declarations.ml
@@ -39,6 +39,14 @@ type resolver
 type substitution = (module_path * resolver option) Umap.t
 type 'a subst_fun = substitution -> 'a -> 'a
 
+let fold_subst fs fb fp =
+  Umap.fold
+    (fun k (mp,_) acc ->
+      match k with
+          MSI msid -> fs msid mp acc
+        | MBI mbid -> fb mbid mp acc
+        | MPI mp1 -> fp mp1 mp acc)
+
 let empty_subst = Umap.empty
 
 let add_msid msid mp =