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/cases.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/cases.mli')
| -rw-r--r-- | pretyping/cases.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 3126198f9..193882ba0 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -32,16 +32,16 @@ exception PatternMatchingError of env * pattern_matching_error (* Used for old cases in pretyping *) val branch_scheme : - env -> 'a evar_defs -> bool -> inductive * constr list -> constr array + env -> evar_defs -> bool -> inductive * constr list -> constr array -val pred_case_ml_onebranch : loc -> env -> 'c evar_map -> bool -> +val pred_case_ml_onebranch : loc -> env -> evar_map -> bool -> inductive_type -> int * unsafe_judgment -> constr (* Compilation of pattern-matching. *) val compile_cases : loc -> (type_constraint -> env -> rawconstr -> unsafe_judgment) - * 'a evar_defs -> type_constraint -> env -> + * evar_defs -> type_constraint -> env -> rawconstr option * rawconstr list * (loc * identifier list * cases_pattern list * rawconstr) list -> unsafe_judgment |