diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 4 | ||||
| -rw-r--r-- | interp/topconstr.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index df48458e67..12ce52d1b5 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -1012,8 +1012,8 @@ type module_type_ast = | CMTEwith of module_type_ast * with_declaration_ast type include_ast = - | CIMTE of module_type_ast - | CIME of module_ast + | CIMTE of module_type_ast * module_type_ast list + | CIME of module_ast * module_ast list let loc_of_notation f loc (args,_) ntn = if args=[] or ntn.[0] <> '_' then fst (Util.unloc loc) diff --git a/interp/topconstr.mli b/interp/topconstr.mli index 1966bf552c..1b6514a658 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -256,8 +256,8 @@ type module_type_ast = | CMTEwith of module_type_ast * with_declaration_ast type include_ast = - | CIMTE of module_type_ast - | CIME of module_ast + | CIMTE of module_type_ast * module_type_ast list + | CIME of module_ast * module_ast list val ntn_loc : Util.loc -> constr_expr notation_substitution -> string -> int val patntn_loc : Util.loc -> cases_pattern_expr notation_substitution -> string -> int |