diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 19:48:17 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 19:48:17 +0000 |
| commit | 7d37a17370cfdfcc13afde93f5943ae53ea4d599 (patch) | |
| tree | a091d8593d4fd110b4fe5612d9d300705abe84a9 /kernel/mod_subst.ml | |
| parent | 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 (diff) | |
* added subst_evaluable_reference
* the Unfold hints of auto/eauto now use evaluable_global_references in place
of global_references
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6428 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_subst.ml')
| -rw-r--r-- | kernel/mod_subst.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index ba186d06e..48bb9933c 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -123,6 +123,10 @@ let subst_con sub con = let mp' = subst_mp sub mp in if mp==mp' then con else make_con mp' dir l +let subst_evaluable_reference subst = function + | EvalVarRef id -> EvalVarRef id + | EvalConstRef kn -> EvalConstRef (subst_con subst kn) + (* map_kn : (kernel_name -> kernel_name) -> constr -> constr |