diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
| commit | 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf (patch) | |
| tree | 3c7468e9f0703d9e70b3aea539aaf8a28ec6a0ed /pretyping/indrec.mli | |
| parent | 8cd83fb8dd41521bbc109d37dd49dd3aae0de373 (diff) | |
Suppression des local_constraints, des ctxtty et du focus.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/indrec.mli')
| -rw-r--r-- | pretyping/indrec.mli | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/pretyping/indrec.mli b/pretyping/indrec.mli index 7e6dd8fa1..e28331848 100644 --- a/pretyping/indrec.mli +++ b/pretyping/indrec.mli @@ -21,30 +21,30 @@ open Evd (* These functions build elimination predicate for Case tactic *) -val make_case_dep : env -> 'a evar_map -> inductive -> sorts_family -> constr -val make_case_nodep : env -> 'a evar_map -> inductive -> sorts_family -> constr -val make_case_gen : env -> 'a evar_map -> inductive -> sorts_family -> constr +val make_case_dep : env -> evar_map -> inductive -> sorts_family -> constr +val make_case_nodep : env -> evar_map -> inductive -> sorts_family -> constr +val make_case_gen : env -> evar_map -> inductive -> sorts_family -> constr (* This builds an elimination scheme associated (using the own arity of the inductive) *) -val build_indrec : env -> 'a evar_map -> inductive -> constr +val build_indrec : env -> evar_map -> inductive -> constr val instanciate_indrec_scheme : sorts -> int -> constr -> constr (* This builds complex [Scheme] *) val build_mutual_indrec : - env -> 'a evar_map -> + env -> evar_map -> (inductive * mutual_inductive_body * one_inductive_body * bool * sorts_family) list -> constr list (* These are for old Case/Match typing *) -val type_rec_branches : bool -> env -> 'c evar_map -> inductive_type +val type_rec_branches : bool -> env -> evar_map -> inductive_type -> unsafe_judgment -> constr -> constr array * constr val make_rec_branch_arg : - env -> 'a evar_map -> + env -> evar_map -> int * ('b * constr) option array * int -> constr -> constructor_summary -> recarg list -> constr |