diff options
| author | Hugo Herbelin | 2017-08-17 20:12:55 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-02-20 10:03:06 +0100 |
| commit | e4d93d1cef27d3a8c1e36139fc1e118730406f67 (patch) | |
| tree | 0149d4c6ff1fc4cc978e796f303ee6dcdda65074 /intf | |
| 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 'intf')
| -rw-r--r-- | intf/glob_term.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intf/glob_term.ml b/intf/glob_term.ml index 61bbe2c264..3f48fa5479 100644 --- a/intf/glob_term.ml +++ b/intf/glob_term.ml @@ -105,7 +105,7 @@ type cases_pattern_disjunction = [ `any ] cases_pattern_disjunction_g type 'a extended_glob_local_binder_r = | GLocalAssum of Name.t * binding_kind * 'a glob_constr_g | GLocalDef of Name.t * binding_kind * 'a glob_constr_g * 'a glob_constr_g option - | GLocalPattern of ('a cases_pattern_g * Id.t list) * Id.t * binding_kind * 'a glob_constr_g + | GLocalPattern of ('a cases_pattern_disjunction_g * Id.t list) * Id.t * binding_kind * 'a glob_constr_g and 'a extended_glob_local_binder_g = ('a extended_glob_local_binder_r, 'a) DAst.t type extended_glob_local_binder = [ `any ] extended_glob_local_binder_g |