diff options
| author | herbelin | 2005-02-18 22:08:16 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-18 22:08:16 +0000 |
| commit | 4bc680136b9310f7ab630e41b47314b9efdbe9d2 (patch) | |
| tree | 7db95e8696f94491eca80be4e591a168909c74ba /pretyping/inductiveops.ml | |
| parent | bd8f528f2f031751d35fd27f85dba7cdc8cf6df6 (diff) | |
Moving subst_inductive from tacinterp to inductiveops for better for reuse in recordops
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6741 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 74795f572c..a0b2cb80fc 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -369,3 +369,5 @@ let control_only_guard env = | LetIn (_,c1,c2,c3) -> control_rec c1; control_rec c2; control_rec c3 in control_rec + +let subst_inductive subst (kn,i) = (Mod_subst.subst_kn subst kn,i) |