diff options
| author | Maxime Dénès | 2018-03-07 10:49:29 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-07 10:49:29 +0100 |
| commit | 56fad034ae2806f33af99ce4a8e3ea3767b85a9c (patch) | |
| tree | 6d503b03eb20708d778e412e01cf419734e9da3b /intf/constrexpr.ml | |
| parent | 00ab0ac91cc595cab1b8be169d086a5783439cbd (diff) | |
| parent | 003031beb002efa703a2f262f9501362d56da720 (diff) | |
Merge PR #6790: Allow universe declarations for [with Definition].
Diffstat (limited to 'intf/constrexpr.ml')
| -rw-r--r-- | intf/constrexpr.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/intf/constrexpr.ml b/intf/constrexpr.ml index 474b80ec48..b0a769c5a8 100644 --- a/intf/constrexpr.ml +++ b/intf/constrexpr.ml @@ -17,6 +17,11 @@ open Decl_kinds (** [constr_expr] is the abstract syntax tree produced by the parser *) +type universe_decl_expr = (lident list, glob_constraint list) gen_universe_decl + +type ident_decl = lident * universe_decl_expr option +type name_decl = lname * universe_decl_expr option + type notation = string type explicitation = @@ -139,7 +144,7 @@ type constr_pattern_expr = constr_expr type with_declaration_ast = | CWith_Module of Id.t list Loc.located * qualid Loc.located - | CWith_Definition of Id.t list Loc.located * constr_expr + | CWith_Definition of Id.t list Loc.located * universe_decl_expr option * constr_expr type module_ast_r = | CMident of qualid |