diff options
| author | herbelin | 2003-08-11 10:25:04 +0000 |
|---|---|---|
| committer | herbelin | 2003-08-11 10:25:04 +0000 |
| commit | ead31bf3e2fe220d02dec59dce66471cc2c66fce (patch) | |
| tree | f2dc8aa43dda43200654e8e28a7556f7b84ae200 /pretyping/cases.mli | |
| parent | aad98c46631f3acb3c71ff7a7f6ae9887627baa8 (diff) | |
Nouvelle mouture du traducteur v7->v8
Option -v8 à coqtop lance coqtopnew
Le terminateur reste "." en v8
Ajout construction primitive CLetTuple/RLetTuple
Introduction typage dans le traducteur pour traduire les Case/Cases/Match
Ajout mutables dans RCases or ROrderedCase pour permettre la traduction
Ajout option -no-strict pour traduire les "Set Implicits" en implicites stricts
+ Bugs ou améliorations diverses
Raffinement affichage projections de Record/Structure.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4257 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cases.mli')
| -rw-r--r-- | pretyping/cases.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 287e78f76a..1c4e6b92cd 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -41,6 +41,8 @@ type ml_case_error = exception NotInferable of ml_case_error +val occur_rawconstr : identifier -> rawconstr -> bool + val pred_case_ml : (* raises [NotInferable] if not inferable *) env -> evar_map -> bool -> inductive_type -> int * types -> constr @@ -49,6 +51,7 @@ val pred_case_ml : (* raises [NotInferable] if not inferable *) val compile_cases : loc -> (type_constraint -> env -> rawconstr -> unsafe_judgment) * evar_defs -> type_constraint -> env -> - rawconstr option * rawconstr list * + (rawconstr option * rawconstr option ref) * + (rawconstr * (name * (loc * inductive * name list) option) ref) list * (loc * identifier list * cases_pattern list * rawconstr) list -> unsafe_judgment |