diff options
| author | herbelin | 2000-03-21 00:02:54 +0000 |
|---|---|---|
| committer | herbelin | 2000-03-21 00:02:54 +0000 |
| commit | 815485820cd1aab70b5a70a10261fa6969ea14d9 (patch) | |
| tree | 26407a1fdb2361ffefb9dbb204a5f02bda22439d /kernel/term.mli | |
| parent | 58b584672eeb8d8c004e099cca47f6b846b4e028 (diff) | |
Extension du case_info : ajout du nombre de vrais args de chaque constr pour la iota-réduction et d'autres informations pour l'affichage dans l'argument du cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@332 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.mli')
| -rw-r--r-- | kernel/term.mli | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/kernel/term.mli b/kernel/term.mli index 8e1c402599..d307e8daed 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -13,6 +13,14 @@ open Generic type existential_key = int +type pattern_source = DefaultPat of int | RegularPat +type case_style = PrintLet | PrintIf | PrintCases +type case_printing = + inductive_path * identifier array * int + * case_style option * pattern_source array +(* the integer is the number of real args, needed for reduction *) +type case_info = int array * case_printing + type 'a oper = | Meta of int | Sort of 'a @@ -26,8 +34,6 @@ type 'a oper = | CoFix of int | XTRA of string -and case_info = inductive_path - (*s The sorts of CCI. *) type contents = Pos | Null @@ -300,7 +306,6 @@ val args_of_abst : constr -> constr array val destMutInd : constr -> inductive val op_of_mind : constr -> inductive_path val args_of_mind : constr -> constr array -val ci_of_mind : constr -> case_info (* Destructs a constructor *) val destMutConstruct : constr -> constructor |