diff options
| author | Hugo Herbelin | 2017-08-15 18:32:02 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-02-20 10:03:05 +0100 |
| commit | 398358618bb3eabfe822b79c669703c1c33b67e6 (patch) | |
| tree | 967c18294374fe73a51d582cd120ab70eb856936 /interp/notation_ops.mli | |
| parent | e21f70cc2b284a3cf489b16e0251492fb864cf1e (diff) | |
Adding patterns in the category of binders for notations.
For instance, the following is now possible:
Check {(x,y)|x+y=0}.
Some questions remains. Maybe, by consistency, the notation should be
"{'(x,y)|x+y=0}"...
Diffstat (limited to 'interp/notation_ops.mli')
| -rw-r--r-- | interp/notation_ops.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/interp/notation_ops.mli b/interp/notation_ops.mli index 80348c78ee..74be6f5120 100644 --- a/interp/notation_ops.mli +++ b/interp/notation_ops.mli @@ -33,8 +33,11 @@ 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 + val glob_constr_of_notation_constr_with_binders : ?loc:Loc.t -> - ('a -> Name.t -> 'a * Name.t) -> + ('a -> Name.t -> 'a * ((Id.t list * cases_pattern) * Id.t) option * Name.t) -> ('a -> notation_constr -> glob_constr) -> 'a -> notation_constr -> glob_constr |