diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-13 17:49:01 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-13 17:49:01 +0000 |
| commit | f49fb2b89a1af72772d0bbc5547761353c4a9103 (patch) | |
| tree | e0a8c335f168cf6f302925e0155a0c79f4cf9ae3 /pretyping/inductiveops.mli | |
| parent | 626e6f8bb47df7845aac639c327191e30ad2b17d (diff) | |
Ajout map_inductive_type et map_ind_family
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2781 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/inductiveops.mli')
| -rw-r--r-- | pretyping/inductiveops.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli index a76395dd8..43adfd889 100644 --- a/pretyping/inductiveops.mli +++ b/pretyping/inductiveops.mli @@ -18,6 +18,7 @@ open Evd type inductive_family val make_ind_family : inductive * constr list -> inductive_family val dest_ind_family : inductive_family -> inductive * constr list +val map_ind_family : (constr -> constr) -> inductive_family -> inductive_family val liftn_inductive_family : int -> int -> inductive_family -> inductive_family val lift_inductive_family : int -> inductive_family -> inductive_family val substnl_ind_family : @@ -27,6 +28,7 @@ val substnl_ind_family : type inductive_type = IndType of inductive_family * constr list val make_ind_type : inductive_family * constr list -> inductive_type val dest_ind_type : inductive_type -> inductive_family * constr list +val map_inductive_type : (constr -> constr) -> inductive_type -> inductive_type val liftn_inductive_type : int -> int -> inductive_type -> inductive_type val lift_inductive_type : int -> inductive_type -> inductive_type val substnl_ind_type : |