diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inductiveops.ml | 2 | ||||
| -rw-r--r-- | pretyping/inductiveops.mli | 2 |
2 files changed, 4 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) diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli index 7f18a79435..aa0306d2f5 100644 --- a/pretyping/inductiveops.mli +++ b/pretyping/inductiveops.mli @@ -99,3 +99,5 @@ val make_default_case_info : env -> case_style -> inductive -> case_info (********************) val control_only_guard : env -> types -> unit + +val subst_inductive : Mod_subst.substitution -> inductive -> inductive |