diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-08-17 20:12:55 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-02-20 10:03:06 +0100 |
commit | e4d93d1cef27d3a8c1e36139fc1e118730406f67 (patch) | |
tree | 0149d4c6ff1fc4cc978e796f303ee6dcdda65074 /interp/notation_ops.mli | |
parent | 50970e4043d73d9a4fbd17ffe765745f6d726317 (diff) |
Adding general support for irrefutable disjunctive patterns.
This now works not only for parsing of fun/forall (as in 8.6), but
also for arbitraty notations with binders and for printing.
Diffstat (limited to 'interp/notation_ops.mli')
-rw-r--r-- | interp/notation_ops.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index 1a2dfc9ca..746f52e48 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -34,10 +34,10 @@ val notation_constr_of_glob_constr : notation_interp_env -> (** Re-interpret a notation as a [glob_constr], taking care of binders *) val apply_cases_pattern : ?loc:Loc.t -> - (Id.t list * cases_pattern) * Id.t -> glob_constr -> glob_constr + (Id.t list * cases_pattern_disjunction) * Id.t -> glob_constr -> glob_constr val glob_constr_of_notation_constr_with_binders : ?loc:Loc.t -> - ('a -> Name.t -> 'a * ((Id.t list * cases_pattern) * Id.t) option * Name.t) -> + ('a -> Name.t -> 'a * ((Id.t list * cases_pattern_disjunction) * Id.t) option * Name.t) -> ('a -> notation_constr -> glob_constr) -> 'a -> notation_constr -> glob_constr @@ -52,7 +52,7 @@ exception No_match val match_notation_constr : bool -> 'a glob_constr_g -> interpretation -> ('a glob_constr_g * subscopes) list * ('a glob_constr_g list * subscopes) list * - ('a cases_pattern_g * subscopes) list * + ('a cases_pattern_disjunction_g * subscopes) list * ('a extended_glob_local_binder_g list * subscopes) list val match_notation_constr_cases_pattern : |