diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-15 11:54:01 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-15 11:54:01 +0000 |
| commit | 98e8b75b640c93abc63140ce1fc3dc445d775066 (patch) | |
| tree | d3413ad4e4189c653f8a12ae815e8260c58a2eb3 /interp/notation.mli | |
| parent | 2ca3e39dbcdd07d6bc777f1514999109827a2410 (diff) | |
Notations are back in the "in" clause of pattern matching.
Fixes the test-suite.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15324 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/notation.mli')
| -rw-r--r-- | interp/notation.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/interp/notation.mli b/interp/notation.mli index 1a02bc8a2..6eaac73db 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -94,6 +94,8 @@ val uninterp_prim_token : glob_constr -> scope_name * prim_token val uninterp_prim_token_cases_pattern : cases_pattern -> name * scope_name * prim_token +val uninterp_prim_token_ind_pattern : + inductive -> cases_pattern list -> scope_name * prim_token val availability_of_prim_token : prim_token -> scope_name -> local_scopes -> delimiters option option @@ -119,6 +121,8 @@ val uninterp_notations : glob_constr -> (interp_rule * interpretation * int option) list val uninterp_cases_pattern_notations : cases_pattern -> (interp_rule * interpretation * int option) list +val uninterp_ind_pattern_notations : inductive -> + (interp_rule * interpretation * int option) list (** Test if a notation is available in the scopes context [scopes]; if available, the result is not None; the first |