From 3f154b7c8d11bad8f62d57f9a42966901de8bd13 Mon Sep 17 00:00:00 2001
From: Zesen Qian <riaqn@users.noreply.github.com>
Date: Mon, 4 Mar 2024 21:37:39 +0000
Subject: [PATCH] Move mode coercion syntax to `jane_syntax` (#2331)

* move mode coercion syntax to jane_syntax

* Tidy up documentation and naming

(cherry picked from commit 524b3e3a39066b45e8e68075ccce9670189f9861)

---------

Co-authored-by: Nick Roberts <nroberts@janestreet.com>
---
 ocaml/boot/menhir/parser.ml   | 17981 ++++++++++++++++----------------
 ocaml/parsing/ast_iterator.ml |    10 +-
 ocaml/parsing/jane_syntax.ml  |    33 +-
 ocaml/parsing/jane_syntax.mli |    19 +-
 ocaml/parsing/parser.mly      |    18 +-
 ocaml/parsing/pprintast.ml    |    30 +-
 ocaml/typing/typecore.ml      |   100 +-
 7 files changed, 9079 insertions(+), 9112 deletions(-)

diff --git a/ocaml/boot/menhir/parser.ml b/ocaml/boot/menhir/parser.ml
index 0234e27beef..3c2a97ce2ab 100644
--- a/ocaml/boot/menhir/parser.ml
+++ b/ocaml/boot/menhir/parser.ml
@@ -17,7 +17,7 @@ module MenhirBasics = struct
     | UNIQUE
     | UNDERSCORE
     | UIDENT of (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
 # 23 "parsing/parser.ml"
   )
@@ -29,7 +29,7 @@ module MenhirBasics = struct
     | THEN
     | STRUCT
     | STRING of (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
 # 35 "parsing/parser.ml"
   )
@@ -42,12 +42,12 @@ module MenhirBasics = struct
     | RBRACKET
     | RBRACE
     | QUOTED_STRING_ITEM of (
-# 1057 "parsing/parser.mly"
+# 1046 "parsing/parser.mly"
        (string * Location.t * string * Location.t * string option)
 # 48 "parsing/parser.ml"
   )
     | QUOTED_STRING_EXPR of (
-# 1055 "parsing/parser.mly"
+# 1044 "parsing/parser.mly"
        (string * Location.t * string * Location.t * string option)
 # 53 "parsing/parser.ml"
   )
@@ -55,7 +55,7 @@ module MenhirBasics = struct
     | QUESTION
     | PRIVATE
     | PREFIXOP of (
-# 1038 "parsing/parser.mly"
+# 1027 "parsing/parser.mly"
        (string)
 # 61 "parsing/parser.ml"
   )
@@ -65,7 +65,7 @@ module MenhirBasics = struct
     | PERCENT
     | OR
     | OPTLABEL of (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
 # 71 "parsing/parser.ml"
   )
@@ -85,12 +85,12 @@ module MenhirBasics = struct
     | LPAREN
     | LOCAL
     | LIDENT of (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
 # 91 "parsing/parser.ml"
   )
     | LETOP of (
-# 992 "parsing/parser.mly"
+# 981 "parsing/parser.mly"
        (string)
 # 96 "parsing/parser.ml"
   )
@@ -111,39 +111,39 @@ module MenhirBasics = struct
     | LBRACE
     | LAZY
     | LABEL of (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
 # 117 "parsing/parser.ml"
   )
     | INT of (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
 # 122 "parsing/parser.ml"
   )
     | INITIALIZER
     | INHERIT
     | INFIXOP4 of (
-# 990 "parsing/parser.mly"
+# 979 "parsing/parser.mly"
        (string)
 # 129 "parsing/parser.ml"
   )
     | INFIXOP3 of (
-# 989 "parsing/parser.mly"
+# 978 "parsing/parser.mly"
        (string)
 # 134 "parsing/parser.ml"
   )
     | INFIXOP2 of (
-# 988 "parsing/parser.mly"
+# 977 "parsing/parser.mly"
        (string)
 # 139 "parsing/parser.ml"
   )
     | INFIXOP1 of (
-# 987 "parsing/parser.mly"
+# 976 "parsing/parser.mly"
        (string)
 # 144 "parsing/parser.ml"
   )
     | INFIXOP0 of (
-# 986 "parsing/parser.mly"
+# 975 "parsing/parser.mly"
        (string)
 # 149 "parsing/parser.ml"
   )
@@ -152,17 +152,17 @@ module MenhirBasics = struct
     | IF
     | HASH_SUFFIX
     | HASH_INT of (
-# 997 "parsing/parser.mly"
+# 986 "parsing/parser.mly"
        (string * char option)
 # 158 "parsing/parser.ml"
   )
     | HASH_FLOAT of (
-# 974 "parsing/parser.mly"
+# 963 "parsing/parser.mly"
        (string * char option)
 # 163 "parsing/parser.ml"
   )
     | HASHOP of (
-# 1050 "parsing/parser.mly"
+# 1039 "parsing/parser.mly"
        (string)
 # 168 "parsing/parser.ml"
   )
@@ -176,7 +176,7 @@ module MenhirBasics = struct
     | FUN
     | FOR
     | FLOAT of (
-# 973 "parsing/parser.mly"
+# 962 "parsing/parser.mly"
        (string * char option)
 # 182 "parsing/parser.ml"
   )
@@ -191,7 +191,7 @@ module MenhirBasics = struct
     | ELSE
     | DOWNTO
     | DOTOP of (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
 # 197 "parsing/parser.ml"
   )
@@ -199,14 +199,14 @@ module MenhirBasics = struct
     | DOT
     | DONE
     | DOCSTRING of (
-# 1075 "parsing/parser.mly"
+# 1064 "parsing/parser.mly"
        (Docstrings.docstring)
 # 205 "parsing/parser.ml"
   )
     | DO
     | CONSTRAINT
     | COMMENT of (
-# 1074 "parsing/parser.mly"
+# 1063 "parsing/parser.mly"
        (string * Location.t)
 # 212 "parsing/parser.ml"
   )
@@ -218,7 +218,7 @@ module MenhirBasics = struct
     | COLON
     | CLASS
     | CHAR of (
-# 951 "parsing/parser.mly"
+# 940 "parsing/parser.mly"
        (char)
 # 224 "parsing/parser.ml"
   )
@@ -231,7 +231,7 @@ module MenhirBasics = struct
     | ASSERT
     | AS
     | ANDOP of (
-# 993 "parsing/parser.mly"
+# 982 "parsing/parser.mly"
        (string)
 # 237 "parsing/parser.ml"
   )
@@ -375,28 +375,18 @@ let mk_attr ~loc name payload =
   Builtin_attributes.(register_attr Parser name);
   Attr.mk ~loc name payload
 
+let mkexp_with_modes ?(ghost=false) ~loc modes exp =
+  let loc =
+    if ghost then ghost_loc loc else make_loc loc
+  in
+  Mode.expr_of_coerce ~loc modes exp
+
 (* For modes-related attributes, no need to call [register_attr] because they
 result from native syntax which is only parsed at proper places that are
 guaranteed to be used. *)
-let mkexp_with_modes ?(ghost=false) ~loc modes exp =
-  match Mode.payload_of modes with
-  | None -> exp
-  | Some payload ->
-      let loc =
-        if ghost then ghost_loc loc else make_loc loc
-      in
-      let ext =
-        (* Use the loc of the annotation as the loc of the extension node *)
-        Exp.extension ~loc:modes.loc (
-          Location.mknoloc Mode.extension_name,
-          payload
-        )
-      in
-      Exp.apply ~loc ext [Nolabel, exp]
 
 let mkpat_with_modes modes pat =
-  (* Modes doesn't belong to the pattern; in particular, it should not be
-     mentioned in a pattern error message*)
+  (* Mark ghost to pass ppxlib well-nestedness check. *)
   let modes = Mode.ghostify modes in
   match Mode.attr_of modes with
   | None -> pat
@@ -405,8 +395,7 @@ let mkpat_with_modes modes pat =
       ppat_attributes = attr :: pat.ppat_attributes}
 
 let mktyp_with_modes modes typ =
-  (* Modes doesn't belong to the type; in particular, it should not be
-     mentioned in a type error message*)
+  (* Mark ghost to pass ppxlib well-nestedness check. *)
   let modes = Mode.ghostify modes in
   match Mode.attr_of modes with
   | None -> typ
@@ -1150,7 +1139,7 @@ let unboxed_type sloc lident tys =
   assert_unboxed_type ~loc;
   Ptyp_constr (mkloc lident loc, tys)
 
-# 1154 "parsing/parser.ml"
+# 1143 "parsing/parser.ml"
 
 module Tables = struct
   
@@ -1733,9 +1722,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4754 "parsing/parser.mly"
+# 4743 "parsing/parser.mly"
                                                 ( "+" )
-# 1739 "parsing/parser.ml"
+# 1728 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -1758,9 +1747,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4755 "parsing/parser.mly"
+# 4744 "parsing/parser.mly"
                                                 ( "+." )
-# 1764 "parsing/parser.ml"
+# 1753 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -1783,9 +1772,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = 
-# 4135 "parsing/parser.mly"
+# 4124 "parsing/parser.mly"
       ( _1 )
-# 1789 "parsing/parser.ml"
+# 1778 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -1830,24 +1819,24 @@ module Tables = struct
         let _endpos = _endpos_tyvar_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4138 "parsing/parser.mly"
+# 4127 "parsing/parser.mly"
         ( Ptyp_alias(ty, tyvar) )
-# 1836 "parsing/parser.ml"
+# 1825 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_tyvar_, _startpos_ty_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 1845 "parsing/parser.ml"
+# 1834 "parsing/parser.ml"
           
         in
         
-# 4140 "parsing/parser.mly"
+# 4129 "parsing/parser.mly"
    ( _1 )
-# 1851 "parsing/parser.ml"
+# 1840 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -1921,19 +1910,19 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let name =
           let _2 = _2_inlined1 in
           
-# 3829 "parsing/parser.mly"
+# 3818 "parsing/parser.mly"
       ( Some _2 )
-# 1927 "parsing/parser.ml"
+# 1916 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos_aliased_type_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4147 "parsing/parser.mly"
+# 4136 "parsing/parser.mly"
         ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc)
               (Ltyp_alias { aliased_type; name; jkind }) )
-# 1937 "parsing/parser.ml"
+# 1926 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -1998,18 +1987,18 @@ module Tables = struct
         let _startpos = _startpos_aliased_type_ in
         let _endpos = _endpos__7_ in
         let _v : (Parsetree.core_type) = let name = 
-# 3831 "parsing/parser.mly"
+# 3820 "parsing/parser.mly"
       ( None )
-# 2004 "parsing/parser.ml"
+# 1993 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos_aliased_type_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4147 "parsing/parser.mly"
+# 4136 "parsing/parser.mly"
         ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc)
               (Ltyp_alias { aliased_type; name; jkind }) )
-# 2013 "parsing/parser.ml"
+# 2002 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2057,31 +2046,31 @@ module Tables = struct
         let _v : (let_binding) = let attrs3 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 2063 "parsing/parser.ml"
+# 2052 "parsing/parser.ml"
           
         in
         let _endpos_attrs3_ = _endpos__1_inlined2_ in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 2072 "parsing/parser.ml"
+# 2061 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3139 "parsing/parser.mly"
+# 3128 "parsing/parser.mly"
     (
       let body, attrs2 = body_with_attrs2 in
       let attrs = attrs1 @ attrs2 @ attrs3 in
       mklb ~loc:_sloc false body attrs
     )
-# 2085 "parsing/parser.ml"
+# 2074 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2104,9 +2093,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4626 "parsing/parser.mly"
+# 4615 "parsing/parser.mly"
       ( _1 )
-# 2110 "parsing/parser.ml"
+# 2099 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2129,9 +2118,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4627 "parsing/parser.mly"
+# 4616 "parsing/parser.mly"
                                  ( Lident _1 )
-# 2135 "parsing/parser.ml"
+# 2124 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2168,9 +2157,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.core_type) = 
-# 4321 "parsing/parser.mly"
+# 4310 "parsing/parser.mly"
       ( _2 )
-# 2174 "parsing/parser.ml"
+# 2163 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2233,11 +2222,11 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 2241 "parsing/parser.ml"
+# 2230 "parsing/parser.ml"
           
         in
         let _3 =
@@ -2245,24 +2234,24 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 2251 "parsing/parser.ml"
+# 2240 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 2257 "parsing/parser.ml"
+# 2246 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4323 "parsing/parser.mly"
+# 4312 "parsing/parser.mly"
       ( wrap_typ_attrs ~loc:_sloc (reloc_typ ~loc:_sloc _4) _3 )
-# 2266 "parsing/parser.ml"
+# 2255 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2293,24 +2282,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4326 "parsing/parser.mly"
+# 4315 "parsing/parser.mly"
         ( Ptyp_var _2 )
-# 2299 "parsing/parser.ml"
+# 2288 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2308 "parsing/parser.ml"
+# 2297 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2314 "parsing/parser.ml"
+# 2303 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2334,23 +2323,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4328 "parsing/parser.mly"
+# 4317 "parsing/parser.mly"
         ( Ptyp_any )
-# 2340 "parsing/parser.ml"
+# 2329 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2348 "parsing/parser.ml"
+# 2337 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2354 "parsing/parser.ml"
+# 2343 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2379,37 +2368,37 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2385 "parsing/parser.ml"
+# 2374 "parsing/parser.ml"
               
             in
             let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in
             let tys = 
-# 4382 "parsing/parser.mly"
+# 4371 "parsing/parser.mly"
       ( [] )
-# 2392 "parsing/parser.ml"
+# 2381 "parsing/parser.ml"
              in
             let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in
             
-# 4331 "parsing/parser.mly"
+# 4320 "parsing/parser.mly"
         ( unboxed_type _loc_tid_ tid.txt tys )
-# 2398 "parsing/parser.ml"
+# 2387 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2407 "parsing/parser.ml"
+# 2396 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2413 "parsing/parser.ml"
+# 2402 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2445,22 +2434,22 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2451 "parsing/parser.ml"
+# 2440 "parsing/parser.ml"
               
             in
             let (_endpos_tid_, _startpos_tid_) = (_endpos__1_, _startpos__1_) in
             let tys = 
-# 4384 "parsing/parser.mly"
+# 4373 "parsing/parser.mly"
       ( [ty] )
-# 2458 "parsing/parser.ml"
+# 2447 "parsing/parser.ml"
              in
             let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in
             
-# 4331 "parsing/parser.mly"
+# 4320 "parsing/parser.mly"
         ( unboxed_type _loc_tid_ tid.txt tys )
-# 2464 "parsing/parser.ml"
+# 2453 "parsing/parser.ml"
             
           in
           let _startpos__1_ = _startpos_ty_ in
@@ -2468,15 +2457,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2474 "parsing/parser.ml"
+# 2463 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2480 "parsing/parser.ml"
+# 2469 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2527,9 +2516,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2533 "parsing/parser.ml"
+# 2522 "parsing/parser.ml"
               
             in
             let (_endpos_tid_, _startpos_tid_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
@@ -2538,25 +2527,25 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 2542 "parsing/parser.ml"
+# 2531 "parsing/parser.ml"
                  in
                 
-# 1385 "parsing/parser.mly"
+# 1374 "parsing/parser.mly"
     ( xs )
-# 2547 "parsing/parser.ml"
+# 2536 "parsing/parser.ml"
                 
               in
               
-# 4386 "parsing/parser.mly"
+# 4375 "parsing/parser.mly"
       ( tys )
-# 2553 "parsing/parser.ml"
+# 2542 "parsing/parser.ml"
               
             in
             let _loc_tid_ = (_startpos_tid_, _endpos_tid_) in
             
-# 4331 "parsing/parser.mly"
+# 4320 "parsing/parser.mly"
         ( unboxed_type _loc_tid_ tid.txt tys )
-# 2560 "parsing/parser.ml"
+# 2549 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -2564,15 +2553,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2570 "parsing/parser.ml"
+# 2559 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2576 "parsing/parser.ml"
+# 2565 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2601,35 +2590,35 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2607 "parsing/parser.ml"
+# 2596 "parsing/parser.ml"
               
             in
             let tys = 
-# 4382 "parsing/parser.mly"
+# 4371 "parsing/parser.mly"
       ( [] )
-# 2613 "parsing/parser.ml"
+# 2602 "parsing/parser.ml"
              in
             
-# 4334 "parsing/parser.mly"
+# 4323 "parsing/parser.mly"
         ( Ptyp_constr(tid, tys) )
-# 2618 "parsing/parser.ml"
+# 2607 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2627 "parsing/parser.ml"
+# 2616 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2633 "parsing/parser.ml"
+# 2622 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2665,20 +2654,20 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2671 "parsing/parser.ml"
+# 2660 "parsing/parser.ml"
               
             in
             let tys = 
-# 4384 "parsing/parser.mly"
+# 4373 "parsing/parser.mly"
       ( [ty] )
-# 2677 "parsing/parser.ml"
+# 2666 "parsing/parser.ml"
              in
             
-# 4334 "parsing/parser.mly"
+# 4323 "parsing/parser.mly"
         ( Ptyp_constr(tid, tys) )
-# 2682 "parsing/parser.ml"
+# 2671 "parsing/parser.ml"
             
           in
           let _startpos__1_ = _startpos_ty_ in
@@ -2686,15 +2675,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2692 "parsing/parser.ml"
+# 2681 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2698 "parsing/parser.ml"
+# 2687 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2745,9 +2734,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2751 "parsing/parser.ml"
+# 2740 "parsing/parser.ml"
               
             in
             let tys =
@@ -2755,24 +2744,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 2759 "parsing/parser.ml"
+# 2748 "parsing/parser.ml"
                  in
                 
-# 1385 "parsing/parser.mly"
+# 1374 "parsing/parser.mly"
     ( xs )
-# 2764 "parsing/parser.ml"
+# 2753 "parsing/parser.ml"
                 
               in
               
-# 4386 "parsing/parser.mly"
+# 4375 "parsing/parser.mly"
       ( tys )
-# 2770 "parsing/parser.ml"
+# 2759 "parsing/parser.ml"
               
             in
             
-# 4334 "parsing/parser.mly"
+# 4323 "parsing/parser.mly"
         ( Ptyp_constr(tid, tys) )
-# 2776 "parsing/parser.ml"
+# 2765 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -2780,15 +2769,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2786 "parsing/parser.ml"
+# 2775 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2792 "parsing/parser.ml"
+# 2781 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2826,24 +2815,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4336 "parsing/parser.mly"
+# 4325 "parsing/parser.mly"
         ( let (f, c) = _2 in Ptyp_object (f, c) )
-# 2832 "parsing/parser.ml"
+# 2821 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2841 "parsing/parser.ml"
+# 2830 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2847 "parsing/parser.ml"
+# 2836 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2874,24 +2863,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4338 "parsing/parser.mly"
+# 4327 "parsing/parser.mly"
         ( Ptyp_object ([], Closed) )
-# 2880 "parsing/parser.ml"
+# 2869 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2889 "parsing/parser.ml"
+# 2878 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2895 "parsing/parser.ml"
+# 2884 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2927,20 +2916,20 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 2933 "parsing/parser.ml"
+# 2922 "parsing/parser.ml"
               
             in
             let tys = 
-# 4382 "parsing/parser.mly"
+# 4371 "parsing/parser.mly"
       ( [] )
-# 2939 "parsing/parser.ml"
+# 2928 "parsing/parser.ml"
              in
             
-# 4342 "parsing/parser.mly"
+# 4331 "parsing/parser.mly"
         ( Ptyp_class(cid, tys) )
-# 2944 "parsing/parser.ml"
+# 2933 "parsing/parser.ml"
             
           in
           let _startpos__1_ = _startpos__2_ in
@@ -2948,15 +2937,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 2954 "parsing/parser.ml"
+# 2943 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 2960 "parsing/parser.ml"
+# 2949 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -2999,20 +2988,20 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 3005 "parsing/parser.ml"
+# 2994 "parsing/parser.ml"
               
             in
             let tys = 
-# 4384 "parsing/parser.mly"
+# 4373 "parsing/parser.mly"
       ( [ty] )
-# 3011 "parsing/parser.ml"
+# 3000 "parsing/parser.ml"
              in
             
-# 4342 "parsing/parser.mly"
+# 4331 "parsing/parser.mly"
         ( Ptyp_class(cid, tys) )
-# 3016 "parsing/parser.ml"
+# 3005 "parsing/parser.ml"
             
           in
           let _startpos__1_ = _startpos_ty_ in
@@ -3020,15 +3009,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3026 "parsing/parser.ml"
+# 3015 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3032 "parsing/parser.ml"
+# 3021 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3086,9 +3075,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 3092 "parsing/parser.ml"
+# 3081 "parsing/parser.ml"
               
             in
             let tys =
@@ -3096,24 +3085,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3100 "parsing/parser.ml"
+# 3089 "parsing/parser.ml"
                  in
                 
-# 1385 "parsing/parser.mly"
+# 1374 "parsing/parser.mly"
     ( xs )
-# 3105 "parsing/parser.ml"
+# 3094 "parsing/parser.ml"
                 
               in
               
-# 4386 "parsing/parser.mly"
+# 4375 "parsing/parser.mly"
       ( tys )
-# 3111 "parsing/parser.ml"
+# 3100 "parsing/parser.ml"
               
             in
             
-# 4342 "parsing/parser.mly"
+# 4331 "parsing/parser.mly"
         ( Ptyp_class(cid, tys) )
-# 3117 "parsing/parser.ml"
+# 3106 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -3121,15 +3110,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3127 "parsing/parser.ml"
+# 3116 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3133 "parsing/parser.ml"
+# 3122 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3167,24 +3156,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4345 "parsing/parser.mly"
+# 4334 "parsing/parser.mly"
         ( Ptyp_variant([_2], Closed, None) )
-# 3173 "parsing/parser.ml"
+# 3162 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3182 "parsing/parser.ml"
+# 3171 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3188 "parsing/parser.ml"
+# 3177 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3234,24 +3223,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3238 "parsing/parser.ml"
+# 3227 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 3243 "parsing/parser.ml"
+# 3232 "parsing/parser.ml"
                 
               in
               
-# 4395 "parsing/parser.mly"
+# 4384 "parsing/parser.mly"
     ( _1 )
-# 3249 "parsing/parser.ml"
+# 3238 "parsing/parser.ml"
               
             in
             
-# 4347 "parsing/parser.mly"
+# 4336 "parsing/parser.mly"
         ( Ptyp_variant(_3, Closed, None) )
-# 3255 "parsing/parser.ml"
+# 3244 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -3259,15 +3248,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3265 "parsing/parser.ml"
+# 3254 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3271 "parsing/parser.ml"
+# 3260 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3324,24 +3313,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3328 "parsing/parser.ml"
+# 3317 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 3333 "parsing/parser.ml"
+# 3322 "parsing/parser.ml"
                 
               in
               
-# 4395 "parsing/parser.mly"
+# 4384 "parsing/parser.mly"
     ( _1 )
-# 3339 "parsing/parser.ml"
+# 3328 "parsing/parser.ml"
               
             in
             
-# 4349 "parsing/parser.mly"
+# 4338 "parsing/parser.mly"
         ( Ptyp_variant(_2 :: _4, Closed, None) )
-# 3345 "parsing/parser.ml"
+# 3334 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -3349,15 +3338,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3355 "parsing/parser.ml"
+# 3344 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3361 "parsing/parser.ml"
+# 3350 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3407,24 +3396,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3411 "parsing/parser.ml"
+# 3400 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 3416 "parsing/parser.ml"
+# 3405 "parsing/parser.ml"
                 
               in
               
-# 4395 "parsing/parser.mly"
+# 4384 "parsing/parser.mly"
     ( _1 )
-# 3422 "parsing/parser.ml"
+# 3411 "parsing/parser.ml"
               
             in
             
-# 4351 "parsing/parser.mly"
+# 4340 "parsing/parser.mly"
         ( Ptyp_variant(_3, Open, None) )
-# 3428 "parsing/parser.ml"
+# 3417 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -3432,15 +3421,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3438 "parsing/parser.ml"
+# 3427 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3444 "parsing/parser.ml"
+# 3433 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3471,24 +3460,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4353 "parsing/parser.mly"
+# 4342 "parsing/parser.mly"
         ( Ptyp_variant([], Open, None) )
-# 3477 "parsing/parser.ml"
+# 3466 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3486 "parsing/parser.ml"
+# 3475 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3492 "parsing/parser.ml"
+# 3481 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3538,24 +3527,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3542 "parsing/parser.ml"
+# 3531 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 3547 "parsing/parser.ml"
+# 3536 "parsing/parser.ml"
                 
               in
               
-# 4395 "parsing/parser.mly"
+# 4384 "parsing/parser.mly"
     ( _1 )
-# 3553 "parsing/parser.ml"
+# 3542 "parsing/parser.ml"
               
             in
             
-# 4355 "parsing/parser.mly"
+# 4344 "parsing/parser.mly"
         ( Ptyp_variant(_3, Closed, Some []) )
-# 3559 "parsing/parser.ml"
+# 3548 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -3563,15 +3552,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3569 "parsing/parser.ml"
+# 3558 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3575 "parsing/parser.ml"
+# 3564 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3636,18 +3625,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3640 "parsing/parser.ml"
+# 3629 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 3645 "parsing/parser.ml"
+# 3634 "parsing/parser.ml"
                 
               in
               
-# 4423 "parsing/parser.mly"
+# 4412 "parsing/parser.mly"
     ( _1 )
-# 3651 "parsing/parser.ml"
+# 3640 "parsing/parser.ml"
               
             in
             let _3 =
@@ -3655,24 +3644,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 3659 "parsing/parser.ml"
+# 3648 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 3664 "parsing/parser.ml"
+# 3653 "parsing/parser.ml"
                 
               in
               
-# 4395 "parsing/parser.mly"
+# 4384 "parsing/parser.mly"
     ( _1 )
-# 3670 "parsing/parser.ml"
+# 3659 "parsing/parser.ml"
               
             in
             
-# 4357 "parsing/parser.mly"
+# 4346 "parsing/parser.mly"
         ( Ptyp_variant(_3, Closed, Some _5) )
-# 3676 "parsing/parser.ml"
+# 3665 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__6_ in
@@ -3680,15 +3669,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3686 "parsing/parser.ml"
+# 3675 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3692 "parsing/parser.ml"
+# 3681 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3712,23 +3701,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 4359 "parsing/parser.mly"
+# 4348 "parsing/parser.mly"
         ( Ptyp_extension _1 )
-# 3718 "parsing/parser.ml"
+# 3707 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 3726 "parsing/parser.ml"
+# 3715 "parsing/parser.ml"
           
         in
         
-# 4361 "parsing/parser.mly"
+# 4350 "parsing/parser.mly"
   ( _1 )
-# 3732 "parsing/parser.ml"
+# 3721 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3789,10 +3778,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4363 "parsing/parser.mly"
+# 4352 "parsing/parser.mly"
       ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) @@
         Ltyp_var { name = Some name; jkind } )
-# 3796 "parsing/parser.ml"
+# 3785 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3846,10 +3835,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4366 "parsing/parser.mly"
+# 4355 "parsing/parser.mly"
       ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) @@
         Ltyp_var { name = None; jkind } )
-# 3853 "parsing/parser.ml"
+# 3842 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3873,23 +3862,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Ast_helper.str) = let _1 =
           let _1 = 
-# 4822 "parsing/parser.mly"
+# 4811 "parsing/parser.mly"
                      ( _1 )
-# 3879 "parsing/parser.ml"
+# 3868 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1230 "parsing/parser.mly"
+# 1219 "parsing/parser.mly"
     ( mkloc _1 (make_loc _sloc) )
-# 3887 "parsing/parser.ml"
+# 3876 "parsing/parser.ml"
           
         in
         
-# 4824 "parsing/parser.mly"
+# 4813 "parsing/parser.mly"
     ( _1 )
-# 3893 "parsing/parser.ml"
+# 3882 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3927,24 +3916,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Ast_helper.str) = let _1 =
           let _1 = 
-# 4823 "parsing/parser.mly"
+# 4812 "parsing/parser.mly"
                                  ( _1 ^ "." ^ _3.txt )
-# 3933 "parsing/parser.ml"
+# 3922 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1230 "parsing/parser.mly"
+# 1219 "parsing/parser.mly"
     ( mkloc _1 (make_loc _sloc) )
-# 3942 "parsing/parser.ml"
+# 3931 "parsing/parser.ml"
           
         in
         
-# 4824 "parsing/parser.mly"
+# 4813 "parsing/parser.mly"
     ( _1 )
-# 3948 "parsing/parser.ml"
+# 3937 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -3967,11 +3956,11 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.payload) = 
-# 4879 "parsing/parser.mly"
+# 4868 "parsing/parser.mly"
     ( Builtin_attributes.mark_payload_attrs_used _1;
       _1
     )
-# 3975 "parsing/parser.ml"
+# 3964 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4018,9 +4007,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4828 "parsing/parser.mly"
+# 4817 "parsing/parser.mly"
     ( mk_attr ~loc:(make_loc _sloc) _2 _3 )
-# 4024 "parsing/parser.ml"
+# 4013 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4043,9 +4032,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_expr) = 
-# 2245 "parsing/parser.mly"
+# 2234 "parsing/parser.mly"
       ( _1 )
-# 4049 "parsing/parser.ml"
+# 4038 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4084,18 +4073,18 @@ module Tables = struct
         let _v : (Parsetree.class_expr) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4090 "parsing/parser.ml"
+# 4079 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2247 "parsing/parser.mly"
+# 2236 "parsing/parser.mly"
       ( wrap_class_attrs ~loc:_sloc _3 _2 )
-# 4099 "parsing/parser.ml"
+# 4088 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4135,9 +4124,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2249 "parsing/parser.mly"
+# 2238 "parsing/parser.mly"
       ( class_of_let_bindings ~loc:_sloc _1 _3 )
-# 4141 "parsing/parser.ml"
+# 4130 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4200,34 +4189,34 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 4206 "parsing/parser.ml"
+# 4195 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
         let _4 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4215 "parsing/parser.ml"
+# 4204 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 4221 "parsing/parser.ml"
+# 4210 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2251 "parsing/parser.mly"
+# 2240 "parsing/parser.mly"
       ( let loc = (_startpos__2_, _endpos__5_) in
         let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
         mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) )
-# 4231 "parsing/parser.ml"
+# 4220 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4297,34 +4286,34 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 4303 "parsing/parser.ml"
+# 4292 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined3_ in
         let _4 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4312 "parsing/parser.ml"
+# 4301 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 4318 "parsing/parser.ml"
+# 4307 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2251 "parsing/parser.mly"
+# 2240 "parsing/parser.mly"
       ( let loc = (_startpos__2_, _endpos__5_) in
         let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
         mkclass ~loc:_sloc ~attrs:_4 (Pcl_open(od, _7)) )
-# 4328 "parsing/parser.ml"
+# 4317 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4354,9 +4343,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.class_expr) = 
-# 2255 "parsing/parser.mly"
+# 2244 "parsing/parser.mly"
       ( Cl.attr _1 _2 )
-# 4360 "parsing/parser.ml"
+# 4349 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4391,18 +4380,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 4395 "parsing/parser.ml"
+# 4384 "parsing/parser.ml"
                in
               
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 4400 "parsing/parser.ml"
+# 4389 "parsing/parser.ml"
               
             in
             
-# 2258 "parsing/parser.mly"
+# 2247 "parsing/parser.mly"
         ( Pcl_apply(_1, _2) )
-# 4406 "parsing/parser.ml"
+# 4395 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_xs_ in
@@ -4410,15 +4399,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 4416 "parsing/parser.ml"
+# 4405 "parsing/parser.ml"
           
         in
         
-# 2261 "parsing/parser.mly"
+# 2250 "parsing/parser.mly"
       ( _1 )
-# 4422 "parsing/parser.ml"
+# 4411 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4442,23 +4431,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2260 "parsing/parser.mly"
+# 2249 "parsing/parser.mly"
         ( Pcl_extension _1 )
-# 4448 "parsing/parser.ml"
+# 4437 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 4456 "parsing/parser.ml"
+# 4445 "parsing/parser.ml"
           
         in
         
-# 2261 "parsing/parser.mly"
+# 2250 "parsing/parser.mly"
       ( _1 )
-# 4462 "parsing/parser.ml"
+# 4451 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4511,33 +4500,33 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _6 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4517 "parsing/parser.ml"
+# 4506 "parsing/parser.ml"
           
         in
         let _endpos__6_ = _endpos__1_inlined2_ in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4526 "parsing/parser.ml"
+# 4515 "parsing/parser.ml"
           
         in
         let _2 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 4532 "parsing/parser.ml"
+# 4521 "parsing/parser.ml"
          in
         let _endpos = _endpos__6_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2310 "parsing/parser.mly"
+# 2299 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs )
-# 4541 "parsing/parser.ml"
+# 4530 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4597,33 +4586,33 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _6 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4603 "parsing/parser.ml"
+# 4592 "parsing/parser.ml"
           
         in
         let _endpos__6_ = _endpos__1_inlined3_ in
         let _3 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4612 "parsing/parser.ml"
+# 4601 "parsing/parser.ml"
           
         in
         let _2 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 4618 "parsing/parser.ml"
+# 4607 "parsing/parser.ml"
          in
         let _endpos = _endpos__6_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2310 "parsing/parser.mly"
+# 2299 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_inherit (_2, _4, self)) ~attrs:(_3@_6) ~docs )
-# 4627 "parsing/parser.ml"
+# 4616 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4664,9 +4653,9 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _3 =
           let _1 = _1_inlined1 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4670 "parsing/parser.ml"
+# 4659 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos__1_inlined1_ in
@@ -4674,11 +4663,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2313 "parsing/parser.mly"
+# 2302 "parsing/parser.mly"
       ( let v, attrs = _2 in
         let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_val v) ~attrs:(attrs@_3) ~docs )
-# 4682 "parsing/parser.ml"
+# 4671 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4719,9 +4708,9 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _3 =
           let _1 = _1_inlined1 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4725 "parsing/parser.ml"
+# 4714 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos__1_inlined1_ in
@@ -4729,11 +4718,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2317 "parsing/parser.mly"
+# 2306 "parsing/parser.mly"
       ( let meth, attrs = _2 in
         let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_method meth) ~attrs:(attrs@_3) ~docs )
-# 4737 "parsing/parser.ml"
+# 4726 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4779,28 +4768,28 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _4 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4785 "parsing/parser.ml"
+# 4774 "parsing/parser.ml"
           
         in
         let _endpos__4_ = _endpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4794 "parsing/parser.ml"
+# 4783 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2321 "parsing/parser.mly"
+# 2310 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_constraint _3) ~attrs:(_2@_4) ~docs )
-# 4804 "parsing/parser.ml"
+# 4793 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4846,28 +4835,28 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _4 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4852 "parsing/parser.ml"
+# 4841 "parsing/parser.ml"
           
         in
         let _endpos__4_ = _endpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 4861 "parsing/parser.ml"
+# 4850 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2324 "parsing/parser.mly"
+# 2313 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_initializer _3) ~attrs:(_2@_4) ~docs )
-# 4871 "parsing/parser.ml"
+# 4860 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4899,9 +4888,9 @@ module Tables = struct
         let _v : (Parsetree.class_field) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 4905 "parsing/parser.ml"
+# 4894 "parsing/parser.ml"
           
         in
         let _endpos__2_ = _endpos__1_inlined1_ in
@@ -4909,10 +4898,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2327 "parsing/parser.mly"
+# 2316 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkcf ~loc:_sloc (Pcf_extension _1) ~attrs:_2 ~docs )
-# 4916 "parsing/parser.ml"
+# 4905 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4936,23 +4925,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_field) = let _1 =
           let _1 = 
-# 2330 "parsing/parser.mly"
+# 2319 "parsing/parser.mly"
       ( Pcf_attribute _1 )
-# 4942 "parsing/parser.ml"
+# 4931 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1251 "parsing/parser.mly"
+# 1240 "parsing/parser.mly"
     ( mkcf ~loc:_sloc _1 )
-# 4950 "parsing/parser.ml"
+# 4939 "parsing/parser.ml"
           
         in
         
-# 2331 "parsing/parser.mly"
+# 2320 "parsing/parser.mly"
       ( _1 )
-# 4956 "parsing/parser.ml"
+# 4945 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -4982,9 +4971,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.class_expr) = 
-# 2225 "parsing/parser.mly"
+# 2214 "parsing/parser.mly"
       ( _2 )
-# 4988 "parsing/parser.ml"
+# 4977 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5029,24 +5018,24 @@ module Tables = struct
         let _endpos = _endpos__4_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2228 "parsing/parser.mly"
+# 2217 "parsing/parser.mly"
         ( Pcl_constraint(_4, _2) )
-# 5035 "parsing/parser.ml"
+# 5024 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__4_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 5044 "parsing/parser.ml"
+# 5033 "parsing/parser.ml"
           
         in
         
-# 2231 "parsing/parser.mly"
+# 2220 "parsing/parser.mly"
       ( _1 )
-# 5050 "parsing/parser.ml"
+# 5039 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5077,24 +5066,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2230 "parsing/parser.mly"
+# 2219 "parsing/parser.mly"
       ( let (l,o,p) = _1 in Pcl_fun(l, o, p, _2) )
-# 5083 "parsing/parser.ml"
+# 5072 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 5092 "parsing/parser.ml"
+# 5081 "parsing/parser.ml"
           
         in
         
-# 2231 "parsing/parser.mly"
+# 2220 "parsing/parser.mly"
       ( _1 )
-# 5098 "parsing/parser.ml"
+# 5087 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5132,24 +5121,24 @@ module Tables = struct
         let _endpos = _endpos_e_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2286 "parsing/parser.mly"
+# 2275 "parsing/parser.mly"
       ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) )
-# 5138 "parsing/parser.ml"
+# 5127 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos_e_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 5147 "parsing/parser.ml"
+# 5136 "parsing/parser.ml"
           
         in
         
-# 2287 "parsing/parser.mly"
+# 2276 "parsing/parser.mly"
     ( _1 )
-# 5153 "parsing/parser.ml"
+# 5142 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5180,24 +5169,24 @@ module Tables = struct
         let _endpos = _endpos_e_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2286 "parsing/parser.mly"
+# 2275 "parsing/parser.mly"
       ( let (l,o,p) = _1 in Pcl_fun(l, o, p, e) )
-# 5186 "parsing/parser.ml"
+# 5175 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos_e_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 5195 "parsing/parser.ml"
+# 5184 "parsing/parser.ml"
           
         in
         
-# 2287 "parsing/parser.mly"
+# 2276 "parsing/parser.mly"
     ( _1 )
-# 5201 "parsing/parser.ml"
+# 5190 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5220,9 +5209,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4616 "parsing/parser.mly"
+# 4605 "parsing/parser.mly"
                                       ( _1 )
-# 5226 "parsing/parser.ml"
+# 5215 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5262,9 +5251,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2295 "parsing/parser.mly"
+# 2284 "parsing/parser.mly"
       ( reloc_pat ~loc:_sloc _2 )
-# 5268 "parsing/parser.ml"
+# 5257 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5316,24 +5305,24 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 2297 "parsing/parser.mly"
+# 2286 "parsing/parser.mly"
       ( Ppat_constraint(_2, _4) )
-# 5322 "parsing/parser.ml"
+# 5311 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__5_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 5331 "parsing/parser.ml"
+# 5320 "parsing/parser.ml"
           
         in
         
-# 2298 "parsing/parser.mly"
+# 2287 "parsing/parser.mly"
       ( _1 )
-# 5337 "parsing/parser.ml"
+# 5326 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5352,9 +5341,9 @@ module Tables = struct
         let _symbolstartpos = _endpos in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2300 "parsing/parser.mly"
+# 2289 "parsing/parser.mly"
       ( ghpat ~loc:_sloc Ppat_any )
-# 5358 "parsing/parser.ml"
+# 5347 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5391,9 +5380,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.core_type) = 
-# 2425 "parsing/parser.mly"
+# 2414 "parsing/parser.mly"
       ( _2 )
-# 5397 "parsing/parser.ml"
+# 5386 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5410,24 +5399,24 @@ module Tables = struct
         let _endpos = _startpos in
         let _v : (Parsetree.core_type) = let _1 =
           let _1 = 
-# 2426 "parsing/parser.mly"
+# 2415 "parsing/parser.mly"
                       ( Ptyp_any )
-# 5416 "parsing/parser.ml"
+# 5405 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__0_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _endpos in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 5425 "parsing/parser.ml"
+# 5414 "parsing/parser.ml"
           
         in
         
-# 2427 "parsing/parser.mly"
+# 2416 "parsing/parser.mly"
       ( _1 )
-# 5431 "parsing/parser.ml"
+# 5420 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5473,28 +5462,28 @@ module Tables = struct
         let _v : (Parsetree.class_type_field) = let _4 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 5479 "parsing/parser.ml"
+# 5468 "parsing/parser.ml"
           
         in
         let _endpos__4_ = _endpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 5488 "parsing/parser.ml"
+# 5477 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2435 "parsing/parser.mly"
+# 2424 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkctf ~loc:_sloc (Pctf_inherit _3) ~attrs:(_2@_4) ~docs )
-# 5498 "parsing/parser.ml"
+# 5487 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5552,9 +5541,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _3 : unit = Obj.magic _3 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 5558 "parsing/parser.ml"
+# 5547 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let flags : (Asttypes.mutable_flag * Asttypes.virtual_flag) = Obj.magic flags in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -5565,9 +5554,9 @@ module Tables = struct
         let _v : (Parsetree.class_type_field) = let _4 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 5571 "parsing/parser.ml"
+# 5560 "parsing/parser.ml"
           
         in
         let _endpos__4_ = _endpos__1_inlined3_ in
@@ -5575,44 +5564,44 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let label =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 5581 "parsing/parser.ml"
+# 5570 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 5589 "parsing/parser.ml"
+# 5578 "parsing/parser.ml"
             
           in
           
-# 2460 "parsing/parser.mly"
+# 2449 "parsing/parser.mly"
   (
     let mut, virt = flags in
     label, mut, virt, ty
   )
-# 5598 "parsing/parser.ml"
+# 5587 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 5606 "parsing/parser.ml"
+# 5595 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2438 "parsing/parser.mly"
+# 2427 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkctf ~loc:_sloc (Pctf_val _3) ~attrs:(_2@_4) ~docs )
-# 5616 "parsing/parser.ml"
+# 5605 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5670,9 +5659,9 @@ module Tables = struct
         let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 5676 "parsing/parser.ml"
+# 5665 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.private_flag * Asttypes.virtual_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -5683,53 +5672,53 @@ module Tables = struct
         let _v : (Parsetree.class_type_field) = let _7 =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 5689 "parsing/parser.ml"
+# 5678 "parsing/parser.ml"
           
         in
         let _endpos__7_ = _endpos__1_inlined4_ in
         let _6 =
           let _1 = _1_inlined3 in
           
-# 4101 "parsing/parser.mly"
+# 4090 "parsing/parser.mly"
     ( _1 )
-# 5698 "parsing/parser.ml"
+# 5687 "parsing/parser.ml"
           
         in
         let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 5706 "parsing/parser.ml"
+# 5695 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 5714 "parsing/parser.ml"
+# 5703 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 5722 "parsing/parser.ml"
+# 5711 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2442 "parsing/parser.mly"
+# 2431 "parsing/parser.mly"
       ( let (p, v) = _3 in
         let docs = symbol_docs _sloc in
         mkctf ~loc:_sloc (Pctf_method (_4, p, v, _6)) ~attrs:(_2@_7) ~docs )
-# 5733 "parsing/parser.ml"
+# 5722 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5775,28 +5764,28 @@ module Tables = struct
         let _v : (Parsetree.class_type_field) = let _4 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 5781 "parsing/parser.ml"
+# 5770 "parsing/parser.ml"
           
         in
         let _endpos__4_ = _endpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 5790 "parsing/parser.ml"
+# 5779 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2446 "parsing/parser.mly"
+# 2435 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkctf ~loc:_sloc (Pctf_constraint _3) ~attrs:(_2@_4) ~docs )
-# 5800 "parsing/parser.ml"
+# 5789 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5828,9 +5817,9 @@ module Tables = struct
         let _v : (Parsetree.class_type_field) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 5834 "parsing/parser.ml"
+# 5823 "parsing/parser.ml"
           
         in
         let _endpos__2_ = _endpos__1_inlined1_ in
@@ -5838,10 +5827,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2449 "parsing/parser.mly"
+# 2438 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mkctf ~loc:_sloc (Pctf_extension _1) ~attrs:_2 ~docs )
-# 5845 "parsing/parser.ml"
+# 5834 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5865,23 +5854,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_type_field) = let _1 =
           let _1 = 
-# 2452 "parsing/parser.mly"
+# 2441 "parsing/parser.mly"
       ( Pctf_attribute _1 )
-# 5871 "parsing/parser.ml"
+# 5860 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1249 "parsing/parser.mly"
+# 1238 "parsing/parser.mly"
     ( mkctf ~loc:_sloc _1 )
-# 5879 "parsing/parser.ml"
+# 5868 "parsing/parser.ml"
           
         in
         
-# 2453 "parsing/parser.mly"
+# 2442 "parsing/parser.mly"
       ( _1 )
-# 5885 "parsing/parser.ml"
+# 5874 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5910,42 +5899,42 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 5916 "parsing/parser.ml"
+# 5905 "parsing/parser.ml"
               
             in
             let tys =
               let tys = 
-# 2411 "parsing/parser.mly"
+# 2400 "parsing/parser.mly"
       ( [] )
-# 5923 "parsing/parser.ml"
+# 5912 "parsing/parser.ml"
                in
               
-# 2417 "parsing/parser.mly"
+# 2406 "parsing/parser.mly"
     ( tys )
-# 5928 "parsing/parser.ml"
+# 5917 "parsing/parser.ml"
               
             in
             
-# 2394 "parsing/parser.mly"
+# 2383 "parsing/parser.mly"
         ( Pcty_constr (cid, tys) )
-# 5934 "parsing/parser.ml"
+# 5923 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 5943 "parsing/parser.ml"
+# 5932 "parsing/parser.ml"
           
         in
         
-# 2397 "parsing/parser.mly"
+# 2386 "parsing/parser.mly"
       ( _1 )
-# 5949 "parsing/parser.ml"
+# 5938 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -5996,9 +5985,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 6002 "parsing/parser.ml"
+# 5991 "parsing/parser.ml"
               
             in
             let tys =
@@ -6007,30 +5996,30 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 6011 "parsing/parser.ml"
+# 6000 "parsing/parser.ml"
                    in
                   
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 6016 "parsing/parser.ml"
+# 6005 "parsing/parser.ml"
                   
                 in
                 
-# 2413 "parsing/parser.mly"
+# 2402 "parsing/parser.mly"
       ( params )
-# 6022 "parsing/parser.ml"
+# 6011 "parsing/parser.ml"
                 
               in
               
-# 2417 "parsing/parser.mly"
+# 2406 "parsing/parser.mly"
     ( tys )
-# 6028 "parsing/parser.ml"
+# 6017 "parsing/parser.ml"
               
             in
             
-# 2394 "parsing/parser.mly"
+# 2383 "parsing/parser.mly"
         ( Pcty_constr (cid, tys) )
-# 6034 "parsing/parser.ml"
+# 6023 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -6038,15 +6027,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 6044 "parsing/parser.ml"
+# 6033 "parsing/parser.ml"
           
         in
         
-# 2397 "parsing/parser.mly"
+# 2386 "parsing/parser.mly"
       ( _1 )
-# 6050 "parsing/parser.ml"
+# 6039 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6070,23 +6059,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_type) = let _1 =
           let _1 = 
-# 2396 "parsing/parser.mly"
+# 2385 "parsing/parser.mly"
         ( Pcty_extension _1 )
-# 6076 "parsing/parser.ml"
+# 6065 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 6084 "parsing/parser.ml"
+# 6073 "parsing/parser.ml"
           
         in
         
-# 2397 "parsing/parser.mly"
+# 2386 "parsing/parser.mly"
       ( _1 )
-# 6090 "parsing/parser.ml"
+# 6079 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6143,44 +6132,44 @@ module Tables = struct
               let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 6147 "parsing/parser.ml"
+# 6136 "parsing/parser.ml"
                in
               
-# 2431 "parsing/parser.mly"
+# 2420 "parsing/parser.mly"
     ( _1 )
-# 6152 "parsing/parser.ml"
+# 6141 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
             let _endpos = _endpos__1_ in
             let _startpos = _startpos__1_ in
             
-# 1195 "parsing/parser.mly"
+# 1184 "parsing/parser.mly"
                                ( extra_csig _startpos _endpos _1 )
-# 6161 "parsing/parser.ml"
+# 6150 "parsing/parser.ml"
             
           in
           
-# 2421 "parsing/parser.mly"
+# 2410 "parsing/parser.mly"
       ( Csig.mk _1 _2 )
-# 6167 "parsing/parser.ml"
+# 6156 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 6175 "parsing/parser.ml"
+# 6164 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2399 "parsing/parser.mly"
+# 2388 "parsing/parser.mly"
       ( mkcty ~loc:_sloc ~attrs:_2 (Pcty_signature _3) )
-# 6184 "parsing/parser.ml"
+# 6173 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6237,43 +6226,43 @@ module Tables = struct
               let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 6241 "parsing/parser.ml"
+# 6230 "parsing/parser.ml"
                in
               
-# 2431 "parsing/parser.mly"
+# 2420 "parsing/parser.mly"
     ( _1 )
-# 6246 "parsing/parser.ml"
+# 6235 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
             let _endpos = _endpos__1_ in
             let _startpos = _startpos__1_ in
             
-# 1195 "parsing/parser.mly"
+# 1184 "parsing/parser.mly"
                                ( extra_csig _startpos _endpos _1 )
-# 6255 "parsing/parser.ml"
+# 6244 "parsing/parser.ml"
             
           in
           
-# 2421 "parsing/parser.mly"
+# 2410 "parsing/parser.mly"
       ( Csig.mk _1 _2 )
-# 6261 "parsing/parser.ml"
+# 6250 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 6269 "parsing/parser.ml"
+# 6258 "parsing/parser.ml"
           
         in
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 2401 "parsing/parser.mly"
+# 2390 "parsing/parser.mly"
       ( unclosed "object" _loc__1_ "end" _loc__4_ )
-# 6277 "parsing/parser.ml"
+# 6266 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6303,9 +6292,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.class_type) = 
-# 2403 "parsing/parser.mly"
+# 2392 "parsing/parser.mly"
       ( Cty.attr _1 _2 )
-# 6309 "parsing/parser.ml"
+# 6298 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6368,34 +6357,34 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 6374 "parsing/parser.ml"
+# 6363 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
         let _4 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 6383 "parsing/parser.ml"
+# 6372 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 6389 "parsing/parser.ml"
+# 6378 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2405 "parsing/parser.mly"
+# 2394 "parsing/parser.mly"
       ( let loc = (_startpos__2_, _endpos__5_) in
         let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
         mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) )
-# 6399 "parsing/parser.ml"
+# 6388 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6465,34 +6454,34 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 6471 "parsing/parser.ml"
+# 6460 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined3_ in
         let _4 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 6480 "parsing/parser.ml"
+# 6469 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 6486 "parsing/parser.ml"
+# 6475 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2405 "parsing/parser.mly"
+# 2394 "parsing/parser.mly"
       ( let loc = (_startpos__2_, _endpos__5_) in
         let od = Opn.mk ~override:_3 ~loc:(make_loc loc) _5 in
         mkcty ~loc:_sloc ~attrs:_4 (Pcty_open(od, _7)) )
-# 6496 "parsing/parser.ml"
+# 6485 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6529,9 +6518,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.class_expr) = 
-# 2265 "parsing/parser.mly"
+# 2254 "parsing/parser.mly"
       ( _2 )
-# 6535 "parsing/parser.ml"
+# 6524 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6570,9 +6559,9 @@ module Tables = struct
         let _v : (Parsetree.class_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 2267 "parsing/parser.mly"
+# 2256 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 6576 "parsing/parser.ml"
+# 6565 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6601,42 +6590,42 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 6607 "parsing/parser.ml"
+# 6596 "parsing/parser.ml"
               
             in
             let tys =
               let tys = 
-# 2411 "parsing/parser.mly"
+# 2400 "parsing/parser.mly"
       ( [] )
-# 6614 "parsing/parser.ml"
+# 6603 "parsing/parser.ml"
                in
               
-# 2417 "parsing/parser.mly"
+# 2406 "parsing/parser.mly"
     ( tys )
-# 6619 "parsing/parser.ml"
+# 6608 "parsing/parser.ml"
               
             in
             
-# 2270 "parsing/parser.mly"
+# 2259 "parsing/parser.mly"
         ( Pcl_constr(cid, tys) )
-# 6625 "parsing/parser.ml"
+# 6614 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 6634 "parsing/parser.ml"
+# 6623 "parsing/parser.ml"
           
         in
         
-# 2277 "parsing/parser.mly"
+# 2266 "parsing/parser.mly"
       ( _1 )
-# 6640 "parsing/parser.ml"
+# 6629 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6687,9 +6676,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 6693 "parsing/parser.ml"
+# 6682 "parsing/parser.ml"
               
             in
             let tys =
@@ -6698,30 +6687,30 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 6702 "parsing/parser.ml"
+# 6691 "parsing/parser.ml"
                    in
                   
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 6707 "parsing/parser.ml"
+# 6696 "parsing/parser.ml"
                   
                 in
                 
-# 2413 "parsing/parser.mly"
+# 2402 "parsing/parser.mly"
       ( params )
-# 6713 "parsing/parser.ml"
+# 6702 "parsing/parser.ml"
                 
               in
               
-# 2417 "parsing/parser.mly"
+# 2406 "parsing/parser.mly"
     ( tys )
-# 6719 "parsing/parser.ml"
+# 6708 "parsing/parser.ml"
               
             in
             
-# 2270 "parsing/parser.mly"
+# 2259 "parsing/parser.mly"
         ( Pcl_constr(cid, tys) )
-# 6725 "parsing/parser.ml"
+# 6714 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -6729,15 +6718,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 6735 "parsing/parser.ml"
+# 6724 "parsing/parser.ml"
           
         in
         
-# 2277 "parsing/parser.mly"
+# 2266 "parsing/parser.mly"
       ( _1 )
-# 6741 "parsing/parser.ml"
+# 6730 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6796,43 +6785,43 @@ module Tables = struct
                   let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 6800 "parsing/parser.ml"
+# 6789 "parsing/parser.ml"
                    in
                   
-# 2304 "parsing/parser.mly"
+# 2293 "parsing/parser.mly"
     ( _1 )
-# 6805 "parsing/parser.ml"
+# 6794 "parsing/parser.ml"
                   
                 in
                 let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
                 let _endpos = _endpos__1_ in
                 let _startpos = _startpos__1_ in
                 
-# 1194 "parsing/parser.mly"
+# 1183 "parsing/parser.mly"
                                ( extra_cstr _startpos _endpos _1 )
-# 6814 "parsing/parser.ml"
+# 6803 "parsing/parser.ml"
                 
               in
               
-# 2291 "parsing/parser.mly"
+# 2280 "parsing/parser.mly"
        ( Cstr.mk _1 _2 )
-# 6820 "parsing/parser.ml"
+# 6809 "parsing/parser.ml"
               
             in
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 6828 "parsing/parser.ml"
+# 6817 "parsing/parser.ml"
               
             in
             let _loc__4_ = (_startpos__4_, _endpos__4_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2272 "parsing/parser.mly"
+# 2261 "parsing/parser.mly"
         ( unclosed "object" _loc__1_ "end" _loc__4_ )
-# 6836 "parsing/parser.ml"
+# 6825 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -6840,15 +6829,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 6846 "parsing/parser.ml"
+# 6835 "parsing/parser.ml"
           
         in
         
-# 2277 "parsing/parser.mly"
+# 2266 "parsing/parser.mly"
       ( _1 )
-# 6852 "parsing/parser.ml"
+# 6841 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6900,24 +6889,24 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.class_expr) = let _1 =
           let _1 = 
-# 2274 "parsing/parser.mly"
+# 2263 "parsing/parser.mly"
         ( Pcl_constraint(_2, _4) )
-# 6906 "parsing/parser.ml"
+# 6895 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__5_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 6915 "parsing/parser.ml"
+# 6904 "parsing/parser.ml"
           
         in
         
-# 2277 "parsing/parser.mly"
+# 2266 "parsing/parser.mly"
       ( _1 )
-# 6921 "parsing/parser.ml"
+# 6910 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -6972,9 +6961,9 @@ module Tables = struct
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2276 "parsing/parser.mly"
+# 2265 "parsing/parser.mly"
         ( unclosed "(" _loc__1_ ")" _loc__5_ )
-# 6978 "parsing/parser.ml"
+# 6967 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -6982,15 +6971,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1253 "parsing/parser.mly"
+# 1242 "parsing/parser.mly"
     ( mkclass ~loc:_sloc _1 )
-# 6988 "parsing/parser.ml"
+# 6977 "parsing/parser.ml"
           
         in
         
-# 2277 "parsing/parser.mly"
+# 2266 "parsing/parser.mly"
       ( _1 )
-# 6994 "parsing/parser.ml"
+# 6983 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7047,44 +7036,44 @@ module Tables = struct
               let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 7051 "parsing/parser.ml"
+# 7040 "parsing/parser.ml"
                in
               
-# 2304 "parsing/parser.mly"
+# 2293 "parsing/parser.mly"
     ( _1 )
-# 7056 "parsing/parser.ml"
+# 7045 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
             let _endpos = _endpos__1_ in
             let _startpos = _startpos__1_ in
             
-# 1194 "parsing/parser.mly"
+# 1183 "parsing/parser.mly"
                                ( extra_cstr _startpos _endpos _1 )
-# 7065 "parsing/parser.ml"
+# 7054 "parsing/parser.ml"
             
           in
           
-# 2291 "parsing/parser.mly"
+# 2280 "parsing/parser.mly"
        ( Cstr.mk _1 _2 )
-# 7071 "parsing/parser.ml"
+# 7060 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7079 "parsing/parser.ml"
+# 7068 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2279 "parsing/parser.mly"
+# 2268 "parsing/parser.mly"
     ( mkclass ~loc:_sloc ~attrs:_2 (Pcl_structure _3) )
-# 7088 "parsing/parser.ml"
+# 7077 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7107,9 +7096,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.class_type) = 
-# 2382 "parsing/parser.mly"
+# 2371 "parsing/parser.mly"
       ( _1 )
-# 7113 "parsing/parser.ml"
+# 7102 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7156,20 +7145,20 @@ module Tables = struct
           let _1 =
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 7162 "parsing/parser.ml"
+# 7151 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 7167 "parsing/parser.ml"
+# 7156 "parsing/parser.ml"
               
             in
             
-# 2388 "parsing/parser.mly"
+# 2377 "parsing/parser.mly"
         ( Pcty_arrow(label, domain, codomain) )
-# 7173 "parsing/parser.ml"
+# 7162 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -7177,15 +7166,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 7183 "parsing/parser.ml"
+# 7172 "parsing/parser.ml"
           
         in
         
-# 2389 "parsing/parser.mly"
+# 2378 "parsing/parser.mly"
       ( _1 )
-# 7189 "parsing/parser.ml"
+# 7178 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7232,9 +7221,9 @@ module Tables = struct
         let domain : (Parsetree.core_type) = Obj.magic domain in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 7238 "parsing/parser.ml"
+# 7227 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -7243,20 +7232,20 @@ module Tables = struct
           let _1 =
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 7249 "parsing/parser.ml"
+# 7238 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 7254 "parsing/parser.ml"
+# 7243 "parsing/parser.ml"
               
             in
             
-# 2388 "parsing/parser.mly"
+# 2377 "parsing/parser.mly"
         ( Pcty_arrow(label, domain, codomain) )
-# 7260 "parsing/parser.ml"
+# 7249 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -7264,15 +7253,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 7270 "parsing/parser.ml"
+# 7259 "parsing/parser.ml"
           
         in
         
-# 2389 "parsing/parser.mly"
+# 2378 "parsing/parser.mly"
       ( _1 )
-# 7276 "parsing/parser.ml"
+# 7265 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7311,14 +7300,14 @@ module Tables = struct
         let _v : (Parsetree.class_type) = let _1 =
           let _1 =
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 7317 "parsing/parser.ml"
+# 7306 "parsing/parser.ml"
              in
             
-# 2388 "parsing/parser.mly"
+# 2377 "parsing/parser.mly"
         ( Pcty_arrow(label, domain, codomain) )
-# 7322 "parsing/parser.ml"
+# 7311 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_domain_) in
@@ -7326,15 +7315,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1247 "parsing/parser.mly"
+# 1236 "parsing/parser.mly"
     ( mkcty ~loc:_sloc _1 )
-# 7332 "parsing/parser.ml"
+# 7321 "parsing/parser.ml"
           
         in
         
-# 2389 "parsing/parser.mly"
+# 2378 "parsing/parser.mly"
       ( _1 )
-# 7338 "parsing/parser.ml"
+# 7327 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7417,9 +7406,9 @@ module Tables = struct
         let csig : (Parsetree.class_type) = Obj.magic csig in
         let _8 : unit = Obj.magic _8 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 7423 "parsing/parser.ml"
+# 7412 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -7435,9 +7424,9 @@ module Tables = struct
             let attrs2 =
               let _1 = _1_inlined3 in
               
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 7441 "parsing/parser.ml"
+# 7430 "parsing/parser.ml"
               
             in
             let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -7447,24 +7436,24 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 7453 "parsing/parser.ml"
+# 7442 "parsing/parser.ml"
               
             in
             let attrs1 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7461 "parsing/parser.ml"
+# 7450 "parsing/parser.ml"
               
             in
             let _endpos = _endpos_attrs2_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2527 "parsing/parser.mly"
+# 2516 "parsing/parser.mly"
     (
       let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
@@ -7472,19 +7461,19 @@ module Tables = struct
       ext,
       Ci.mk id csig ~virt ~params ~attrs ~loc ~docs
     )
-# 7476 "parsing/parser.ml"
+# 7465 "parsing/parser.ml"
             
           in
           
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 7482 "parsing/parser.ml"
+# 7471 "parsing/parser.ml"
           
         in
         
-# 2515 "parsing/parser.mly"
+# 2504 "parsing/parser.mly"
     ( _1 )
-# 7488 "parsing/parser.ml"
+# 7477 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7507,9 +7496,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4613 "parsing/parser.mly"
+# 4602 "parsing/parser.mly"
                                            ( _1 )
-# 7513 "parsing/parser.ml"
+# 7502 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7542,18 +7531,18 @@ module Tables = struct
           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 7546 "parsing/parser.ml"
+# 7535 "parsing/parser.ml"
            in
           
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 7551 "parsing/parser.ml"
+# 7540 "parsing/parser.ml"
           
         in
         
-# 2881 "parsing/parser.mly"
+# 2870 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.For _2 )
-# 7557 "parsing/parser.ml"
+# 7546 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7585,20 +7574,20 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.clause) = let _2 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 7591 "parsing/parser.ml"
+# 7580 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 7596 "parsing/parser.ml"
+# 7585 "parsing/parser.ml"
           
         in
         
-# 2883 "parsing/parser.mly"
+# 2872 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.When _2 )
-# 7602 "parsing/parser.ml"
+# 7591 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7656,18 +7645,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 7660 "parsing/parser.ml"
+# 7649 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 7665 "parsing/parser.ml"
+# 7654 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 7671 "parsing/parser.ml"
+# 7660 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -7676,40 +7665,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7682 "parsing/parser.ml"
+# 7671 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 7688 "parsing/parser.ml"
+# 7677 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 7701 "parsing/parser.ml"
+# 7690 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 7707 "parsing/parser.ml"
+# 7696 "parsing/parser.ml"
           
         in
         
-# 2883 "parsing/parser.mly"
+# 2872 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.When _2 )
-# 7713 "parsing/parser.ml"
+# 7702 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7746,14 +7735,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Jane_syntax.Comprehensions.clause_binding) = let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7752 "parsing/parser.ml"
+# 7741 "parsing/parser.ml"
          in
         
-# 2863 "parsing/parser.mly"
+# 2852 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.{ pattern = _2 ; iterator = _3 ; attributes = _1 } )
-# 7757 "parsing/parser.ml"
+# 7746 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7806,14 +7795,14 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.clause_binding) = let _5 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 7812 "parsing/parser.ml"
+# 7801 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 7817 "parsing/parser.ml"
+# 7806 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
@@ -7823,16 +7812,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4252 "parsing/parser.mly"
+# 4241 "parsing/parser.mly"
        ( Mode.Const.mk "local" (make_loc _sloc) )
-# 7829 "parsing/parser.ml"
+# 7818 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7836 "parsing/parser.ml"
+# 7825 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -7841,7 +7830,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -7849,7 +7838,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 7853 "parsing/parser.ml"
+# 7842 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -7928,18 +7917,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 7932 "parsing/parser.ml"
+# 7921 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 7937 "parsing/parser.ml"
+# 7926 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 7943 "parsing/parser.ml"
+# 7932 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -7948,34 +7937,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7954 "parsing/parser.ml"
+# 7943 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 7960 "parsing/parser.ml"
+# 7949 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 7973 "parsing/parser.ml"
+# 7962 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 7979 "parsing/parser.ml"
+# 7968 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos_xs_ in
@@ -7985,16 +7974,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4252 "parsing/parser.mly"
+# 4241 "parsing/parser.mly"
        ( Mode.Const.mk "local" (make_loc _sloc) )
-# 7991 "parsing/parser.ml"
+# 7980 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 7998 "parsing/parser.ml"
+# 7987 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -8003,7 +7992,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -8011,7 +8000,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 8015 "parsing/parser.ml"
+# 8004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8064,14 +8053,14 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.clause_binding) = let _5 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8070 "parsing/parser.ml"
+# 8059 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8075 "parsing/parser.ml"
+# 8064 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
@@ -8081,16 +8070,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4254 "parsing/parser.mly"
+# 4243 "parsing/parser.mly"
        ( Mode.Const.mk "unique" (make_loc _sloc) )
-# 8087 "parsing/parser.ml"
+# 8076 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8094 "parsing/parser.ml"
+# 8083 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -8099,7 +8088,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -8107,7 +8096,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 8111 "parsing/parser.ml"
+# 8100 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8186,18 +8175,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 8190 "parsing/parser.ml"
+# 8179 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 8195 "parsing/parser.ml"
+# 8184 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 8201 "parsing/parser.ml"
+# 8190 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -8206,34 +8195,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8212 "parsing/parser.ml"
+# 8201 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 8218 "parsing/parser.ml"
+# 8207 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 8231 "parsing/parser.ml"
+# 8220 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8237 "parsing/parser.ml"
+# 8226 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos_xs_ in
@@ -8243,16 +8232,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4254 "parsing/parser.mly"
+# 4243 "parsing/parser.mly"
        ( Mode.Const.mk "unique" (make_loc _sloc) )
-# 8249 "parsing/parser.ml"
+# 8238 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8256 "parsing/parser.ml"
+# 8245 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -8261,7 +8250,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -8269,7 +8258,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 8273 "parsing/parser.ml"
+# 8262 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8322,14 +8311,14 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.clause_binding) = let _5 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8328 "parsing/parser.ml"
+# 8317 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8333 "parsing/parser.ml"
+# 8322 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
@@ -8339,16 +8328,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4256 "parsing/parser.mly"
+# 4245 "parsing/parser.mly"
        ( Mode.Const.mk "once" (make_loc _sloc) )
-# 8345 "parsing/parser.ml"
+# 8334 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8352 "parsing/parser.ml"
+# 8341 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -8357,7 +8346,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -8365,7 +8354,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 8369 "parsing/parser.ml"
+# 8358 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8444,18 +8433,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 8448 "parsing/parser.ml"
+# 8437 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 8453 "parsing/parser.ml"
+# 8442 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 8459 "parsing/parser.ml"
+# 8448 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -8464,34 +8453,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8470 "parsing/parser.ml"
+# 8459 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 8476 "parsing/parser.ml"
+# 8465 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 8489 "parsing/parser.ml"
+# 8478 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8495 "parsing/parser.ml"
+# 8484 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos_xs_ in
@@ -8501,16 +8490,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4256 "parsing/parser.mly"
+# 4245 "parsing/parser.mly"
        ( Mode.Const.mk "once" (make_loc _sloc) )
-# 8507 "parsing/parser.ml"
+# 8496 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
         let _1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8514 "parsing/parser.ml"
+# 8503 "parsing/parser.ml"
          in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -8519,7 +8508,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2870 "parsing/parser.mly"
+# 2859 "parsing/parser.mly"
       ( let expr = mkexp_with_modes ~loc:_sloc (Mode.singleton _2) _5 in
         Jane_syntax.Comprehensions.
           { pattern    = _3
@@ -8527,7 +8516,7 @@ module Tables = struct
           ; attributes = _1
           }
       )
-# 8531 "parsing/parser.ml"
+# 8520 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8573,33 +8562,33 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.iterator) = let _4 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8579 "parsing/parser.ml"
+# 8568 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8584 "parsing/parser.ml"
+# 8573 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8592 "parsing/parser.ml"
+# 8581 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8597 "parsing/parser.ml"
+# 8586 "parsing/parser.ml"
           
         in
         
-# 2856 "parsing/parser.mly"
+# 2845 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } )
-# 8603 "parsing/parser.ml"
+# 8592 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8671,18 +8660,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 8675 "parsing/parser.ml"
+# 8664 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 8680 "parsing/parser.ml"
+# 8669 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 8686 "parsing/parser.ml"
+# 8675 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -8691,53 +8680,53 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8697 "parsing/parser.ml"
+# 8686 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 8703 "parsing/parser.ml"
+# 8692 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 8716 "parsing/parser.ml"
+# 8705 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8722 "parsing/parser.ml"
+# 8711 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8730 "parsing/parser.ml"
+# 8719 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8735 "parsing/parser.ml"
+# 8724 "parsing/parser.ml"
           
         in
         
-# 2856 "parsing/parser.mly"
+# 2845 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } )
-# 8741 "parsing/parser.ml"
+# 8730 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8804,14 +8793,14 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.iterator) = let _4 =
           let _1 = _1_inlined4 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 8810 "parsing/parser.ml"
+# 8799 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8815 "parsing/parser.ml"
+# 8804 "parsing/parser.ml"
           
         in
         let _2 =
@@ -8822,18 +8811,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 8826 "parsing/parser.ml"
+# 8815 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 8831 "parsing/parser.ml"
+# 8820 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 8837 "parsing/parser.ml"
+# 8826 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -8842,40 +8831,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8848 "parsing/parser.ml"
+# 8837 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 8854 "parsing/parser.ml"
+# 8843 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 8867 "parsing/parser.ml"
+# 8856 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 8873 "parsing/parser.ml"
+# 8862 "parsing/parser.ml"
           
         in
         
-# 2856 "parsing/parser.mly"
+# 2845 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } )
-# 8879 "parsing/parser.ml"
+# 8868 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -8968,18 +8957,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 8972 "parsing/parser.ml"
+# 8961 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 8977 "parsing/parser.ml"
+# 8966 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 8983 "parsing/parser.ml"
+# 8972 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -8988,34 +8977,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 8994 "parsing/parser.ml"
+# 8983 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 9000 "parsing/parser.ml"
+# 8989 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 9013 "parsing/parser.ml"
+# 9002 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 9019 "parsing/parser.ml"
+# 9008 "parsing/parser.ml"
           
         in
         let _2 =
@@ -9026,18 +9015,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9030 "parsing/parser.ml"
+# 9019 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 9035 "parsing/parser.ml"
+# 9024 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 9041 "parsing/parser.ml"
+# 9030 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -9046,40 +9035,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 9052 "parsing/parser.ml"
+# 9041 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 9058 "parsing/parser.ml"
+# 9047 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 9071 "parsing/parser.ml"
+# 9060 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 9077 "parsing/parser.ml"
+# 9066 "parsing/parser.ml"
           
         in
         
-# 2856 "parsing/parser.mly"
+# 2845 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Range { start = _2 ; stop = _4 ; direction = _3 } )
-# 9083 "parsing/parser.ml"
+# 9072 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9111,20 +9100,20 @@ module Tables = struct
         let _v : (Jane_syntax.Comprehensions.iterator) = let _2 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 9117 "parsing/parser.ml"
+# 9106 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 9122 "parsing/parser.ml"
+# 9111 "parsing/parser.ml"
           
         in
         
-# 2858 "parsing/parser.mly"
+# 2847 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.In _2 )
-# 9128 "parsing/parser.ml"
+# 9117 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9182,18 +9171,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9186 "parsing/parser.ml"
+# 9175 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 9191 "parsing/parser.ml"
+# 9180 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 9197 "parsing/parser.ml"
+# 9186 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -9202,40 +9191,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 9208 "parsing/parser.ml"
+# 9197 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 9214 "parsing/parser.ml"
+# 9203 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 9227 "parsing/parser.ml"
+# 9216 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 9233 "parsing/parser.ml"
+# 9222 "parsing/parser.ml"
           
         in
         
-# 2858 "parsing/parser.mly"
+# 2847 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.In _2 )
-# 9239 "parsing/parser.ml"
+# 9228 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9258,9 +9247,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Constant.t) = 
-# 4480 "parsing/parser.mly"
+# 4469 "parsing/parser.mly"
                       ( Constant.value _1 )
-# 9264 "parsing/parser.ml"
+# 9253 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9283,9 +9272,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Constant.t) = 
-# 4481 "parsing/parser.mly"
+# 4470 "parsing/parser.mly"
                       ( _1 )
-# 9289 "parsing/parser.ml"
+# 9278 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9315,9 +9304,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.label) = 
-# 4560 "parsing/parser.mly"
+# 4549 "parsing/parser.mly"
                                                 ( "[]" )
-# 9321 "parsing/parser.ml"
+# 9310 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9347,9 +9336,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.label) = 
-# 4561 "parsing/parser.mly"
+# 4550 "parsing/parser.mly"
                                                 ( "()" )
-# 9353 "parsing/parser.ml"
+# 9342 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9372,9 +9361,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4562 "parsing/parser.mly"
+# 4551 "parsing/parser.mly"
                                                 ( "false" )
-# 9378 "parsing/parser.ml"
+# 9367 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9397,9 +9386,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4563 "parsing/parser.mly"
+# 4552 "parsing/parser.mly"
                                                 ( "true" )
-# 9403 "parsing/parser.ml"
+# 9392 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9418,17 +9407,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 9424 "parsing/parser.ml"
+# 9413 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4566 "parsing/parser.mly"
+# 4555 "parsing/parser.mly"
                                                 ( _1 )
-# 9432 "parsing/parser.ml"
+# 9421 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9465,14 +9454,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4557 "parsing/parser.mly"
+# 4546 "parsing/parser.mly"
                                                 ( "::" )
-# 9471 "parsing/parser.ml"
+# 9460 "parsing/parser.ml"
          in
         
-# 4567 "parsing/parser.mly"
+# 4556 "parsing/parser.mly"
                                                 ( _1 )
-# 9476 "parsing/parser.ml"
+# 9465 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9495,9 +9484,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4568 "parsing/parser.mly"
+# 4557 "parsing/parser.mly"
                                                 ( _1 )
-# 9501 "parsing/parser.ml"
+# 9490 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9520,9 +9509,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4571 "parsing/parser.mly"
+# 4560 "parsing/parser.mly"
                                          ( _1 )
-# 9526 "parsing/parser.ml"
+# 9515 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9573,14 +9562,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = let _3 = 
-# 4557 "parsing/parser.mly"
+# 4546 "parsing/parser.mly"
                                                 ( "::" )
-# 9579 "parsing/parser.ml"
+# 9568 "parsing/parser.ml"
          in
         
-# 4572 "parsing/parser.mly"
+# 4561 "parsing/parser.mly"
                                          ( Ldot(_1,_3) )
-# 9584 "parsing/parser.ml"
+# 9573 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9617,14 +9606,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = let _1 = 
-# 4557 "parsing/parser.mly"
+# 4546 "parsing/parser.mly"
                                                 ( "::" )
-# 9623 "parsing/parser.ml"
+# 9612 "parsing/parser.ml"
          in
         
-# 4573 "parsing/parser.mly"
+# 4562 "parsing/parser.mly"
                                          ( Lident _1 )
-# 9628 "parsing/parser.ml"
+# 9617 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9647,9 +9636,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4574 "parsing/parser.mly"
+# 4563 "parsing/parser.mly"
                                          ( Lident _1 )
-# 9653 "parsing/parser.ml"
+# 9642 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9686,9 +9675,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.core_type * Parsetree.core_type) = 
-# 2471 "parsing/parser.mly"
+# 2460 "parsing/parser.mly"
     ( _1, _3 )
-# 9692 "parsing/parser.ml"
+# 9681 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9715,40 +9704,40 @@ module Tables = struct
             let xs =
               let x =
                 let gbl = 
-# 4703 "parsing/parser.mly"
+# 4692 "parsing/parser.mly"
            ( Mode.empty )
-# 9721 "parsing/parser.ml"
+# 9710 "parsing/parser.ml"
                  in
                 
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 9728 "parsing/parser.ml"
+# 9717 "parsing/parser.ml"
                 
               in
               
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 9734 "parsing/parser.ml"
+# 9723 "parsing/parser.ml"
               
             in
             
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9740 "parsing/parser.ml"
+# 9729 "parsing/parser.ml"
             
           in
           
-# 1361 "parsing/parser.mly"
+# 1350 "parsing/parser.mly"
     ( xs )
-# 9746 "parsing/parser.ml"
+# 9735 "parsing/parser.ml"
           
         in
         
-# 3955 "parsing/parser.mly"
+# 3944 "parsing/parser.mly"
       ( Pcstr_tuple tys )
-# 9752 "parsing/parser.ml"
+# 9741 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9786,41 +9775,41 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 4704 "parsing/parser.mly"
+# 4693 "parsing/parser.mly"
            ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) )
-# 9792 "parsing/parser.ml"
+# 9781 "parsing/parser.ml"
                   
                 in
                 
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 9800 "parsing/parser.ml"
+# 9789 "parsing/parser.ml"
                 
               in
               
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 9806 "parsing/parser.ml"
+# 9795 "parsing/parser.ml"
               
             in
             
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9812 "parsing/parser.ml"
+# 9801 "parsing/parser.ml"
             
           in
           
-# 1361 "parsing/parser.mly"
+# 1350 "parsing/parser.mly"
     ( xs )
-# 9818 "parsing/parser.ml"
+# 9807 "parsing/parser.ml"
           
         in
         
-# 3955 "parsing/parser.mly"
+# 3944 "parsing/parser.mly"
       ( Pcstr_tuple tys )
-# 9824 "parsing/parser.ml"
+# 9813 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9861,40 +9850,40 @@ module Tables = struct
             let xs =
               let x =
                 let gbl = 
-# 4703 "parsing/parser.mly"
+# 4692 "parsing/parser.mly"
            ( Mode.empty )
-# 9867 "parsing/parser.ml"
+# 9856 "parsing/parser.ml"
                  in
                 
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 9874 "parsing/parser.ml"
+# 9863 "parsing/parser.ml"
                 
               in
               
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 9880 "parsing/parser.ml"
+# 9869 "parsing/parser.ml"
               
             in
             
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9886 "parsing/parser.ml"
+# 9875 "parsing/parser.ml"
             
           in
           
-# 1361 "parsing/parser.mly"
+# 1350 "parsing/parser.mly"
     ( xs )
-# 9892 "parsing/parser.ml"
+# 9881 "parsing/parser.ml"
           
         in
         
-# 3955 "parsing/parser.mly"
+# 3944 "parsing/parser.mly"
       ( Pcstr_tuple tys )
-# 9898 "parsing/parser.ml"
+# 9887 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -9946,41 +9935,41 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 4704 "parsing/parser.mly"
+# 4693 "parsing/parser.mly"
            ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) )
-# 9952 "parsing/parser.ml"
+# 9941 "parsing/parser.ml"
                   
                 in
                 
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 9960 "parsing/parser.ml"
+# 9949 "parsing/parser.ml"
                 
               in
               
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 9966 "parsing/parser.ml"
+# 9955 "parsing/parser.ml"
               
             in
             
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 9972 "parsing/parser.ml"
+# 9961 "parsing/parser.ml"
             
           in
           
-# 1361 "parsing/parser.mly"
+# 1350 "parsing/parser.mly"
     ( xs )
-# 9978 "parsing/parser.ml"
+# 9967 "parsing/parser.ml"
           
         in
         
-# 3955 "parsing/parser.mly"
+# 3944 "parsing/parser.mly"
       ( Pcstr_tuple tys )
-# 9984 "parsing/parser.ml"
+# 9973 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10017,9 +10006,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.constructor_arguments) = 
-# 3957 "parsing/parser.mly"
+# 3946 "parsing/parser.mly"
       ( Pcstr_record _2 )
-# 10023 "parsing/parser.ml"
+# 10012 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10042,9 +10031,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constructor_declaration list) = 
-# 3856 "parsing/parser.mly"
+# 3845 "parsing/parser.mly"
       ( [] )
-# 10048 "parsing/parser.ml"
+# 10037 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10067,14 +10056,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_xs_ in
         let _v : (Parsetree.constructor_declaration list) = let cs = 
-# 1446 "parsing/parser.mly"
+# 1435 "parsing/parser.mly"
     ( List.rev xs )
-# 10073 "parsing/parser.ml"
+# 10062 "parsing/parser.ml"
          in
         
-# 3858 "parsing/parser.mly"
+# 3847 "parsing/parser.mly"
       ( cs )
-# 10078 "parsing/parser.ml"
+# 10067 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10097,14 +10086,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = let _1 = 
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 10103 "parsing/parser.ml"
+# 10092 "parsing/parser.ml"
          in
         
-# 4116 "parsing/parser.mly"
+# 4105 "parsing/parser.mly"
       ( _1 )
-# 10108 "parsing/parser.ml"
+# 10097 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10134,9 +10123,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.core_type) = 
-# 4118 "parsing/parser.mly"
+# 4107 "parsing/parser.mly"
       ( Typ.attr _1 _2 )
-# 10140 "parsing/parser.ml"
+# 10129 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10159,9 +10148,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.direction_flag) = 
-# 4679 "parsing/parser.mly"
+# 4668 "parsing/parser.mly"
                                                 ( Upto )
-# 10165 "parsing/parser.ml"
+# 10154 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10184,9 +10173,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.direction_flag) = 
-# 4680 "parsing/parser.mly"
+# 4669 "parsing/parser.mly"
                                                 ( Downto )
-# 10190 "parsing/parser.ml"
+# 10179 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10202,9 +10191,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (string Asttypes.loc option) = 
-# 4848 "parsing/parser.mly"
+# 4837 "parsing/parser.mly"
                     ( None )
-# 10208 "parsing/parser.ml"
+# 10197 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10234,9 +10223,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (string Asttypes.loc option) = 
-# 4849 "parsing/parser.mly"
+# 4838 "parsing/parser.mly"
                     ( Some _2 )
-# 10240 "parsing/parser.ml"
+# 10229 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10280,9 +10269,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Parsetree.extension) = 
-# 4861 "parsing/parser.mly"
+# 4850 "parsing/parser.mly"
                                              ( (_2, _3) )
-# 10286 "parsing/parser.ml"
+# 10275 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10301,9 +10290,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1055 "parsing/parser.mly"
+# 1044 "parsing/parser.mly"
        (string * Location.t * string * Location.t * string option)
-# 10307 "parsing/parser.ml"
+# 10296 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -10312,9 +10301,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4863 "parsing/parser.mly"
+# 4852 "parsing/parser.mly"
     ( mk_quotedext ~loc:_sloc _1 )
-# 10318 "parsing/parser.ml"
+# 10307 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10367,9 +10356,9 @@ module Tables = struct
         let _v : (Parsetree.extension_constructor) = let attrs =
           let _1 = _1_inlined3 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 10373 "parsing/parser.ml"
+# 10362 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined3_ in
@@ -10379,9 +10368,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10385 "parsing/parser.ml"
+# 10374 "parsing/parser.ml"
           
         in
         let cid =
@@ -10390,19 +10379,19 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10396 "parsing/parser.ml"
+# 10385 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4031 "parsing/parser.mly"
+# 4020 "parsing/parser.mly"
       ( let info = symbol_info _endpos in
         Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info )
-# 10406 "parsing/parser.ml"
+# 10395 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10448,9 +10437,9 @@ module Tables = struct
         let _v : (Parsetree.extension_constructor) = let attrs =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 10454 "parsing/parser.ml"
+# 10443 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined2_ in
@@ -10460,9 +10449,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10466 "parsing/parser.ml"
+# 10455 "parsing/parser.ml"
           
         in
         let cid =
@@ -10470,25 +10459,25 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10476 "parsing/parser.ml"
+# 10465 "parsing/parser.ml"
           
         in
         let _startpos_cid_ = _startpos__1_ in
         let _1 = 
-# 4653 "parsing/parser.mly"
+# 4642 "parsing/parser.mly"
     ( () )
-# 10483 "parsing/parser.ml"
+# 10472 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs_ in
         let _symbolstartpos = _startpos_cid_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4031 "parsing/parser.mly"
+# 4020 "parsing/parser.mly"
       ( let info = symbol_info _endpos in
         Te.rebind cid lid ~attrs ~loc:(make_loc _sloc) ~info )
-# 10492 "parsing/parser.ml"
+# 10481 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10535,10 +10524,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4836 "parsing/parser.mly"
+# 4825 "parsing/parser.mly"
     ( mark_symbol_docs _sloc;
       mk_attr ~loc:(make_loc _sloc) _2 _3 )
-# 10542 "parsing/parser.ml"
+# 10531 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10554,14 +10543,14 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let params = 
-# 2411 "parsing/parser.mly"
+# 2400 "parsing/parser.mly"
       ( [] )
-# 10560 "parsing/parser.ml"
+# 10549 "parsing/parser.ml"
          in
         
-# 2236 "parsing/parser.mly"
+# 2225 "parsing/parser.mly"
     ( params )
-# 10565 "parsing/parser.ml"
+# 10554 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10602,24 +10591,24 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 10606 "parsing/parser.ml"
+# 10595 "parsing/parser.ml"
              in
             
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 10611 "parsing/parser.ml"
+# 10600 "parsing/parser.ml"
             
           in
           
-# 2413 "parsing/parser.mly"
+# 2402 "parsing/parser.mly"
       ( params )
-# 10617 "parsing/parser.ml"
+# 10606 "parsing/parser.ml"
           
         in
         
-# 2236 "parsing/parser.mly"
+# 2225 "parsing/parser.mly"
     ( params )
-# 10623 "parsing/parser.ml"
+# 10612 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10667,18 +10656,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 10671 "parsing/parser.ml"
+# 10660 "parsing/parser.ml"
              in
             
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 10676 "parsing/parser.ml"
+# 10665 "parsing/parser.ml"
             
           in
           
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 10682 "parsing/parser.ml"
+# 10671 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos_xs_ in
@@ -10687,22 +10676,22 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 10693 "parsing/parser.ml"
+# 10682 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 10699 "parsing/parser.ml"
+# 10688 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3188 "parsing/parser.mly"
+# 3177 "parsing/parser.mly"
       ( let ext, attrs = _2 in
         match ext with
         | None -> N_ary.Pfunction_cases (_3, make_loc _sloc, attrs)
@@ -10712,7 +10701,7 @@ module Tables = struct
           let function_ = mkfunction [] None cases ~loc:_sloc ~attrs:_2 in
           N_ary.Pfunction_body function_
       )
-# 10716 "parsing/parser.ml"
+# 10705 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10735,9 +10724,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (N_ary.function_body) = 
-# 3198 "parsing/parser.mly"
+# 3187 "parsing/parser.mly"
       ( N_ary.Pfunction_body _1 )
-# 10741 "parsing/parser.ml"
+# 10730 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10760,9 +10749,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = 
-# 2692 "parsing/parser.mly"
+# 2681 "parsing/parser.mly"
       ( _1 )
-# 10766 "parsing/parser.ml"
+# 10755 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10840,9 +10829,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10846 "parsing/parser.ml"
+# 10835 "parsing/parser.ml"
             
           in
           let _3 =
@@ -10850,21 +10839,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 10856 "parsing/parser.ml"
+# 10845 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 10862 "parsing/parser.ml"
+# 10851 "parsing/parser.ml"
             
           in
           
-# 2745 "parsing/parser.mly"
+# 2734 "parsing/parser.mly"
       ( Pexp_letmodule(_4, _5, _7), _3 )
-# 10868 "parsing/parser.ml"
+# 10857 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__7_ in
@@ -10872,10 +10861,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 10879 "parsing/parser.ml"
+# 10868 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -10960,9 +10949,9 @@ module Tables = struct
             let _3 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 10966 "parsing/parser.ml"
+# 10955 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos__1_inlined1_ in
@@ -10971,23 +10960,23 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 10977 "parsing/parser.ml"
+# 10966 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 3924 "parsing/parser.mly"
+# 3913 "parsing/parser.mly"
       ( let vars_jkinds, args, res = _2 in
         Jane_syntax.Extension_constructor.extension_constructor_of
             ~loc:(make_loc _sloc)
             ~name:_1
             ~attrs:_3
             (Jext_layout (Lext_decl (vars_jkinds, args, res))) )
-# 10991 "parsing/parser.ml"
+# 10980 "parsing/parser.ml"
             
           in
           let _3 =
@@ -10995,21 +10984,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11001 "parsing/parser.ml"
+# 10990 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11007 "parsing/parser.ml"
+# 10996 "parsing/parser.ml"
             
           in
           
-# 2747 "parsing/parser.mly"
+# 2736 "parsing/parser.mly"
       ( Pexp_letexception(_4, _6), _3 )
-# 11013 "parsing/parser.ml"
+# 11002 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__6_ in
@@ -11017,10 +11006,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11024 "parsing/parser.ml"
+# 11013 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11090,28 +11079,28 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11096 "parsing/parser.ml"
+# 11085 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11102 "parsing/parser.ml"
+# 11091 "parsing/parser.ml"
             
           in
           let _3 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 11108 "parsing/parser.ml"
+# 11097 "parsing/parser.ml"
            in
           
-# 2749 "parsing/parser.mly"
+# 2738 "parsing/parser.mly"
       ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in
         let od = Opn.mk _5 ~override:_3 ~loc:open_loc in
         Pexp_open(od, _7), _4 )
-# 11115 "parsing/parser.ml"
+# 11104 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__7_ in
@@ -11119,10 +11108,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11126 "parsing/parser.ml"
+# 11115 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11199,28 +11188,28 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11205 "parsing/parser.ml"
+# 11194 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11211 "parsing/parser.ml"
+# 11200 "parsing/parser.ml"
             
           in
           let _3 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 11217 "parsing/parser.ml"
+# 11206 "parsing/parser.ml"
            in
           
-# 2749 "parsing/parser.mly"
+# 2738 "parsing/parser.mly"
       ( let open_loc = make_loc (_startpos__2_, _endpos__5_) in
         let od = Opn.mk _5 ~override:_3 ~loc:open_loc in
         Pexp_open(od, _7), _4 )
-# 11224 "parsing/parser.ml"
+# 11213 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__7_ in
@@ -11228,10 +11217,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11235 "parsing/parser.ml"
+# 11224 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11294,18 +11283,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 11298 "parsing/parser.ml"
+# 11287 "parsing/parser.ml"
                in
               
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 11303 "parsing/parser.ml"
+# 11292 "parsing/parser.ml"
               
             in
             
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 11309 "parsing/parser.ml"
+# 11298 "parsing/parser.ml"
             
           in
           let _2 =
@@ -11313,21 +11302,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11319 "parsing/parser.ml"
+# 11308 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11325 "parsing/parser.ml"
+# 11314 "parsing/parser.ml"
             
           in
           
-# 2753 "parsing/parser.mly"
+# 2742 "parsing/parser.mly"
       ( Pexp_match(_3, _5), _2 )
-# 11331 "parsing/parser.ml"
+# 11320 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -11335,10 +11324,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11342 "parsing/parser.ml"
+# 11331 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11401,18 +11390,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 11405 "parsing/parser.ml"
+# 11394 "parsing/parser.ml"
                in
               
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 11410 "parsing/parser.ml"
+# 11399 "parsing/parser.ml"
               
             in
             
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 11416 "parsing/parser.ml"
+# 11405 "parsing/parser.ml"
             
           in
           let _2 =
@@ -11420,21 +11409,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11426 "parsing/parser.ml"
+# 11415 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11432 "parsing/parser.ml"
+# 11421 "parsing/parser.ml"
             
           in
           
-# 2755 "parsing/parser.mly"
+# 2744 "parsing/parser.mly"
       ( Pexp_try(_3, _5), _2 )
-# 11438 "parsing/parser.ml"
+# 11427 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -11442,10 +11431,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11449 "parsing/parser.ml"
+# 11438 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11508,21 +11497,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11514 "parsing/parser.ml"
+# 11503 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11520 "parsing/parser.ml"
+# 11509 "parsing/parser.ml"
             
           in
           
-# 2757 "parsing/parser.mly"
+# 2746 "parsing/parser.mly"
       ( syntax_error() )
-# 11526 "parsing/parser.ml"
+# 11515 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__5_ in
@@ -11530,10 +11519,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11537 "parsing/parser.ml"
+# 11526 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11608,27 +11597,27 @@ module Tables = struct
           let _7 =
             let _1 = _1_inlined4 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 11614 "parsing/parser.ml"
+# 11603 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 11619 "parsing/parser.ml"
+# 11608 "parsing/parser.ml"
             
           in
           let _5 =
             let _1 = _1_inlined3 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 11627 "parsing/parser.ml"
+# 11616 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 11632 "parsing/parser.ml"
+# 11621 "parsing/parser.ml"
             
           in
           let _2 =
@@ -11636,21 +11625,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11642 "parsing/parser.ml"
+# 11631 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11648 "parsing/parser.ml"
+# 11637 "parsing/parser.ml"
             
           in
           
-# 2759 "parsing/parser.mly"
+# 2748 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, Some _7), _2 )
-# 11654 "parsing/parser.ml"
+# 11643 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined4_ in
@@ -11658,10 +11647,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11665 "parsing/parser.ml"
+# 11654 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11762,18 +11751,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 11766 "parsing/parser.ml"
+# 11755 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 11771 "parsing/parser.ml"
+# 11760 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 11777 "parsing/parser.ml"
+# 11766 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -11782,47 +11771,47 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11788 "parsing/parser.ml"
+# 11777 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11794 "parsing/parser.ml"
+# 11783 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 11807 "parsing/parser.ml"
+# 11796 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 11813 "parsing/parser.ml"
+# 11802 "parsing/parser.ml"
             
           in
           let _5 =
             let _1 = _1_inlined3 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 11821 "parsing/parser.ml"
+# 11810 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 11826 "parsing/parser.ml"
+# 11815 "parsing/parser.ml"
             
           in
           let _2 =
@@ -11830,21 +11819,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11836 "parsing/parser.ml"
+# 11825 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 11842 "parsing/parser.ml"
+# 11831 "parsing/parser.ml"
             
           in
           
-# 2759 "parsing/parser.mly"
+# 2748 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, Some _7), _2 )
-# 11848 "parsing/parser.ml"
+# 11837 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -11852,10 +11841,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 11859 "parsing/parser.ml"
+# 11848 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -11951,14 +11940,14 @@ module Tables = struct
           let _7 =
             let _1 = _1_inlined6 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 11957 "parsing/parser.ml"
+# 11946 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 11962 "parsing/parser.ml"
+# 11951 "parsing/parser.ml"
             
           in
           let _5 =
@@ -11969,18 +11958,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 11973 "parsing/parser.ml"
+# 11962 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 11978 "parsing/parser.ml"
+# 11967 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 11984 "parsing/parser.ml"
+# 11973 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -11989,34 +11978,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 11995 "parsing/parser.ml"
+# 11984 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12001 "parsing/parser.ml"
+# 11990 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 12014 "parsing/parser.ml"
+# 12003 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 12020 "parsing/parser.ml"
+# 12009 "parsing/parser.ml"
             
           in
           let _2 =
@@ -12024,21 +12013,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12030 "parsing/parser.ml"
+# 12019 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12036 "parsing/parser.ml"
+# 12025 "parsing/parser.ml"
             
           in
           
-# 2759 "parsing/parser.mly"
+# 2748 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, Some _7), _2 )
-# 12042 "parsing/parser.ml"
+# 12031 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined6_ in
@@ -12046,10 +12035,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12053 "parsing/parser.ml"
+# 12042 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12171,18 +12160,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 12175 "parsing/parser.ml"
+# 12164 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 12180 "parsing/parser.ml"
+# 12169 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 12186 "parsing/parser.ml"
+# 12175 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -12191,34 +12180,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12197 "parsing/parser.ml"
+# 12186 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12203 "parsing/parser.ml"
+# 12192 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 12216 "parsing/parser.ml"
+# 12205 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 12222 "parsing/parser.ml"
+# 12211 "parsing/parser.ml"
             
           in
           let _5 =
@@ -12229,18 +12218,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 12233 "parsing/parser.ml"
+# 12222 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 12238 "parsing/parser.ml"
+# 12227 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 12244 "parsing/parser.ml"
+# 12233 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -12249,34 +12238,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12255 "parsing/parser.ml"
+# 12244 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12261 "parsing/parser.ml"
+# 12250 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 12274 "parsing/parser.ml"
+# 12263 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 12280 "parsing/parser.ml"
+# 12269 "parsing/parser.ml"
             
           in
           let _2 =
@@ -12284,21 +12273,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12290 "parsing/parser.ml"
+# 12279 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12296 "parsing/parser.ml"
+# 12285 "parsing/parser.ml"
             
           in
           
-# 2759 "parsing/parser.mly"
+# 2748 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, Some _7), _2 )
-# 12302 "parsing/parser.ml"
+# 12291 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_inlined1_ in
@@ -12306,10 +12295,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12313 "parsing/parser.ml"
+# 12302 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12370,14 +12359,14 @@ module Tables = struct
           let _5 =
             let _1 = _1_inlined3 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 12376 "parsing/parser.ml"
+# 12365 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 12381 "parsing/parser.ml"
+# 12370 "parsing/parser.ml"
             
           in
           let _2 =
@@ -12385,21 +12374,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12391 "parsing/parser.ml"
+# 12380 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12397 "parsing/parser.ml"
+# 12386 "parsing/parser.ml"
             
           in
           
-# 2761 "parsing/parser.mly"
+# 2750 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, None), _2 )
-# 12403 "parsing/parser.ml"
+# 12392 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined3_ in
@@ -12407,10 +12396,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12414 "parsing/parser.ml"
+# 12403 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12497,18 +12486,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 12501 "parsing/parser.ml"
+# 12490 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 12506 "parsing/parser.ml"
+# 12495 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 12512 "parsing/parser.ml"
+# 12501 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -12517,34 +12506,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12523 "parsing/parser.ml"
+# 12512 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12529 "parsing/parser.ml"
+# 12518 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 12542 "parsing/parser.ml"
+# 12531 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 12548 "parsing/parser.ml"
+# 12537 "parsing/parser.ml"
             
           in
           let _2 =
@@ -12552,21 +12541,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12558 "parsing/parser.ml"
+# 12547 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12564 "parsing/parser.ml"
+# 12553 "parsing/parser.ml"
             
           in
           
-# 2761 "parsing/parser.mly"
+# 2750 "parsing/parser.mly"
       ( Pexp_ifthenelse(_3, _5, None), _2 )
-# 12570 "parsing/parser.ml"
+# 12559 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -12574,10 +12563,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12581 "parsing/parser.ml"
+# 12570 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12643,30 +12632,30 @@ module Tables = struct
         let _endpos = _endpos__3_inlined1_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 2780 "parsing/parser.mly"
+# 2769 "parsing/parser.mly"
       ( e )
-# 12649 "parsing/parser.ml"
+# 12638 "parsing/parser.ml"
            in
           let _2 =
             let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12658 "parsing/parser.ml"
+# 12647 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12664 "parsing/parser.ml"
+# 12653 "parsing/parser.ml"
             
           in
           
-# 2763 "parsing/parser.mly"
+# 2752 "parsing/parser.mly"
       ( Pexp_while(_3, _4), _2 )
-# 12670 "parsing/parser.ml"
+# 12659 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_inlined1_ in
@@ -12674,10 +12663,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12681 "parsing/parser.ml"
+# 12670 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12747,9 +12736,9 @@ module Tables = struct
             let _loc__2_ = (_startpos__2_, _endpos__2_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2782 "parsing/parser.mly"
+# 2771 "parsing/parser.mly"
       ( unclosed "do" _loc__1_ "done" _loc__2_ )
-# 12753 "parsing/parser.ml"
+# 12742 "parsing/parser.ml"
             
           in
           let _2 =
@@ -12757,21 +12746,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12763 "parsing/parser.ml"
+# 12752 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12769 "parsing/parser.ml"
+# 12758 "parsing/parser.ml"
             
           in
           
-# 2763 "parsing/parser.mly"
+# 2752 "parsing/parser.mly"
       ( Pexp_while(_3, _4), _2 )
-# 12775 "parsing/parser.ml"
+# 12764 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_inlined1_ in
@@ -12779,10 +12768,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12786 "parsing/parser.ml"
+# 12775 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -12876,30 +12865,30 @@ module Tables = struct
         let _endpos = _endpos__3_inlined1_ in
         let _v : (Parsetree.expression) = let _1 =
           let _8 = 
-# 2780 "parsing/parser.mly"
+# 2769 "parsing/parser.mly"
       ( e )
-# 12882 "parsing/parser.ml"
+# 12871 "parsing/parser.ml"
            in
           let _2 =
             let (_1_inlined1, _1) = (_1_inlined2, _1_inlined1) in
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 12891 "parsing/parser.ml"
+# 12880 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 12897 "parsing/parser.ml"
+# 12886 "parsing/parser.ml"
             
           in
           
-# 2766 "parsing/parser.mly"
+# 2755 "parsing/parser.mly"
       ( Pexp_for(_3, _5, _7, _6, _8), _2 )
-# 12903 "parsing/parser.ml"
+# 12892 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_inlined1_ in
@@ -12907,10 +12896,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 12914 "parsing/parser.ml"
+# 12903 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13008,9 +12997,9 @@ module Tables = struct
             let _loc__2_ = (_startpos__2_, _endpos__2_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2782 "parsing/parser.mly"
+# 2771 "parsing/parser.mly"
       ( unclosed "do" _loc__1_ "done" _loc__2_ )
-# 13014 "parsing/parser.ml"
+# 13003 "parsing/parser.ml"
             
           in
           let _2 =
@@ -13018,21 +13007,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13024 "parsing/parser.ml"
+# 13013 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13030 "parsing/parser.ml"
+# 13019 "parsing/parser.ml"
             
           in
           
-# 2766 "parsing/parser.mly"
+# 2755 "parsing/parser.mly"
       ( Pexp_for(_3, _5, _7, _6, _8), _2 )
-# 13036 "parsing/parser.ml"
+# 13025 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_inlined1_ in
@@ -13040,10 +13029,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13047 "parsing/parser.ml"
+# 13036 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13092,21 +13081,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13098 "parsing/parser.ml"
+# 13087 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13104 "parsing/parser.ml"
+# 13093 "parsing/parser.ml"
             
           in
           
-# 2768 "parsing/parser.mly"
+# 2757 "parsing/parser.mly"
       ( Pexp_assert _3, _2 )
-# 13110 "parsing/parser.ml"
+# 13099 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -13114,10 +13103,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13121 "parsing/parser.ml"
+# 13110 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13166,21 +13155,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13172 "parsing/parser.ml"
+# 13161 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13178 "parsing/parser.ml"
+# 13167 "parsing/parser.ml"
             
           in
           
-# 2770 "parsing/parser.mly"
+# 2759 "parsing/parser.mly"
       ( Pexp_lazy _3, _2 )
-# 13184 "parsing/parser.ml"
+# 13173 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -13188,10 +13177,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13195 "parsing/parser.ml"
+# 13184 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13224,22 +13213,22 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 13230 "parsing/parser.ml"
+# 13219 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 13235 "parsing/parser.ml"
+# 13224 "parsing/parser.ml"
             
           in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2772 "parsing/parser.mly"
+# 2761 "parsing/parser.mly"
       ( let desc, attrs = mkuminus ~oploc:_loc__1_ _1 _2 in
         desc, (None, attrs) )
-# 13243 "parsing/parser.ml"
+# 13232 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined1_ in
@@ -13247,10 +13236,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13254 "parsing/parser.ml"
+# 13243 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13309,18 +13298,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 13313 "parsing/parser.ml"
+# 13302 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 13318 "parsing/parser.ml"
+# 13307 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 13324 "parsing/parser.ml"
+# 13313 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -13329,42 +13318,42 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13335 "parsing/parser.ml"
+# 13324 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13341 "parsing/parser.ml"
+# 13330 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 13354 "parsing/parser.ml"
+# 13343 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 13360 "parsing/parser.ml"
+# 13349 "parsing/parser.ml"
             
           in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2772 "parsing/parser.mly"
+# 2761 "parsing/parser.mly"
       ( let desc, attrs = mkuminus ~oploc:_loc__1_ _1 _2 in
         desc, (None, attrs) )
-# 13368 "parsing/parser.ml"
+# 13357 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -13372,10 +13361,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13379 "parsing/parser.ml"
+# 13368 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13408,22 +13397,22 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 13414 "parsing/parser.ml"
+# 13403 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 13419 "parsing/parser.ml"
+# 13408 "parsing/parser.ml"
             
           in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2775 "parsing/parser.mly"
+# 2764 "parsing/parser.mly"
       ( let desc, attrs = mkuplus ~oploc:_loc__1_ _1 _2 in
         desc, (None, attrs) )
-# 13427 "parsing/parser.ml"
+# 13416 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined1_ in
@@ -13431,10 +13420,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13438 "parsing/parser.ml"
+# 13427 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13493,18 +13482,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 13497 "parsing/parser.ml"
+# 13486 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 13502 "parsing/parser.ml"
+# 13491 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 13508 "parsing/parser.ml"
+# 13497 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -13513,42 +13502,42 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13519 "parsing/parser.ml"
+# 13508 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13525 "parsing/parser.ml"
+# 13514 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 13538 "parsing/parser.ml"
+# 13527 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 13544 "parsing/parser.ml"
+# 13533 "parsing/parser.ml"
             
           in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2775 "parsing/parser.mly"
+# 2764 "parsing/parser.mly"
       ( let desc, attrs = mkuplus ~oploc:_loc__1_ _1 _2 in
         desc, (None, attrs) )
-# 13552 "parsing/parser.ml"
+# 13541 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos_xs_ in
@@ -13556,10 +13545,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2694 "parsing/parser.mly"
+# 2683 "parsing/parser.mly"
       ( let desc, attrs = _1 in
         mkexp_attrs ~loc:_sloc desc attrs )
-# 13563 "parsing/parser.ml"
+# 13552 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13628,22 +13617,22 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 13634 "parsing/parser.ml"
+# 13623 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 13640 "parsing/parser.ml"
+# 13629 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__6_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2699 "parsing/parser.mly"
+# 2688 "parsing/parser.mly"
       ( let body_constraint =
           Option.map
             (fun x : N_ary.function_constraint ->
@@ -13654,7 +13643,7 @@ module Tables = struct
         in
         mkfunction _3 body_constraint _6 ~loc:_sloc ~attrs:_2
       )
-# 13658 "parsing/parser.ml"
+# 13647 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13688,12 +13677,12 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 13692 "parsing/parser.ml"
+# 13681 "parsing/parser.ml"
              in
             
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 13697 "parsing/parser.ml"
+# 13686 "parsing/parser.ml"
             
           in
           let _endpos__2_ = _endpos_xs_ in
@@ -13701,15 +13690,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2786 "parsing/parser.mly"
+# 2775 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_apply(_1, _2)) )
-# 13707 "parsing/parser.ml"
+# 13696 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 13713 "parsing/parser.ml"
+# 13702 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13736,12 +13725,12 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 13740 "parsing/parser.ml"
+# 13729 "parsing/parser.ml"
              in
             
-# 3323 "parsing/parser.mly"
+# 3312 "parsing/parser.mly"
     ( xs )
-# 13745 "parsing/parser.ml"
+# 13734 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_xs_) in
@@ -13749,15 +13738,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2788 "parsing/parser.mly"
+# 2777 "parsing/parser.mly"
       ( pexp_ltuple _sloc _1 )
-# 13755 "parsing/parser.ml"
+# 13744 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 13761 "parsing/parser.ml"
+# 13750 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13792,24 +13781,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 13798 "parsing/parser.ml"
+# 13787 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2790 "parsing/parser.mly"
+# 2779 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_construct(_1, Some _2)) )
-# 13807 "parsing/parser.ml"
+# 13796 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 13813 "parsing/parser.ml"
+# 13802 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13843,15 +13832,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2792 "parsing/parser.mly"
+# 2781 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_variant(_1, Some _2)) )
-# 13849 "parsing/parser.ml"
+# 13838 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 13855 "parsing/parser.ml"
+# 13844 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13883,9 +13872,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let op : (
-# 986 "parsing/parser.mly"
+# 975 "parsing/parser.mly"
        (string)
-# 13889 "parsing/parser.ml"
+# 13878 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -13894,46 +13883,46 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let e2 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 13900 "parsing/parser.ml"
+# 13889 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 13905 "parsing/parser.ml"
+# 13894 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_ in
           let op =
             let _1 = 
-# 4530 "parsing/parser.mly"
+# 4519 "parsing/parser.mly"
                   ( op )
-# 13913 "parsing/parser.ml"
+# 13902 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 13922 "parsing/parser.ml"
+# 13911 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 13931 "parsing/parser.ml"
+# 13920 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 13937 "parsing/parser.ml"
+# 13926 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -13986,9 +13975,9 @@ module Tables = struct
         let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let op : (
-# 986 "parsing/parser.mly"
+# 975 "parsing/parser.mly"
        (string)
-# 13992 "parsing/parser.ml"
+# 13981 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14002,18 +13991,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 14006 "parsing/parser.ml"
+# 13995 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 14011 "parsing/parser.ml"
+# 14000 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 14017 "parsing/parser.ml"
+# 14006 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -14022,66 +14011,66 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 14028 "parsing/parser.ml"
+# 14017 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 14034 "parsing/parser.ml"
+# 14023 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 14047 "parsing/parser.ml"
+# 14036 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14053 "parsing/parser.ml"
+# 14042 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4530 "parsing/parser.mly"
+# 4519 "parsing/parser.mly"
                   ( op )
-# 14061 "parsing/parser.ml"
+# 14050 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14070 "parsing/parser.ml"
+# 14059 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14079 "parsing/parser.ml"
+# 14068 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14085 "parsing/parser.ml"
+# 14074 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14113,9 +14102,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let op : (
-# 987 "parsing/parser.mly"
+# 976 "parsing/parser.mly"
        (string)
-# 14119 "parsing/parser.ml"
+# 14108 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14124,46 +14113,46 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let e2 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 14130 "parsing/parser.ml"
+# 14119 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14135 "parsing/parser.ml"
+# 14124 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_ in
           let op =
             let _1 = 
-# 4531 "parsing/parser.mly"
+# 4520 "parsing/parser.mly"
                   ( op )
-# 14143 "parsing/parser.ml"
+# 14132 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14152 "parsing/parser.ml"
+# 14141 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14161 "parsing/parser.ml"
+# 14150 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14167 "parsing/parser.ml"
+# 14156 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14216,9 +14205,9 @@ module Tables = struct
         let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let op : (
-# 987 "parsing/parser.mly"
+# 976 "parsing/parser.mly"
        (string)
-# 14222 "parsing/parser.ml"
+# 14211 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14232,18 +14221,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 14236 "parsing/parser.ml"
+# 14225 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 14241 "parsing/parser.ml"
+# 14230 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 14247 "parsing/parser.ml"
+# 14236 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -14252,66 +14241,66 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 14258 "parsing/parser.ml"
+# 14247 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 14264 "parsing/parser.ml"
+# 14253 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 14277 "parsing/parser.ml"
+# 14266 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14283 "parsing/parser.ml"
+# 14272 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4531 "parsing/parser.mly"
+# 4520 "parsing/parser.mly"
                   ( op )
-# 14291 "parsing/parser.ml"
+# 14280 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14300 "parsing/parser.ml"
+# 14289 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14309 "parsing/parser.ml"
+# 14298 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14315 "parsing/parser.ml"
+# 14304 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14343,9 +14332,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let op : (
-# 988 "parsing/parser.mly"
+# 977 "parsing/parser.mly"
        (string)
-# 14349 "parsing/parser.ml"
+# 14338 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14354,46 +14343,46 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let e2 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 14360 "parsing/parser.ml"
+# 14349 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14365 "parsing/parser.ml"
+# 14354 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_ in
           let op =
             let _1 = 
-# 4532 "parsing/parser.mly"
+# 4521 "parsing/parser.mly"
                   ( op )
-# 14373 "parsing/parser.ml"
+# 14362 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14382 "parsing/parser.ml"
+# 14371 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14391 "parsing/parser.ml"
+# 14380 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14397 "parsing/parser.ml"
+# 14386 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14446,9 +14435,9 @@ module Tables = struct
         let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let op : (
-# 988 "parsing/parser.mly"
+# 977 "parsing/parser.mly"
        (string)
-# 14452 "parsing/parser.ml"
+# 14441 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14462,18 +14451,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 14466 "parsing/parser.ml"
+# 14455 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 14471 "parsing/parser.ml"
+# 14460 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 14477 "parsing/parser.ml"
+# 14466 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -14482,66 +14471,66 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 14488 "parsing/parser.ml"
+# 14477 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 14494 "parsing/parser.ml"
+# 14483 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 14507 "parsing/parser.ml"
+# 14496 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14513 "parsing/parser.ml"
+# 14502 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4532 "parsing/parser.mly"
+# 4521 "parsing/parser.mly"
                   ( op )
-# 14521 "parsing/parser.ml"
+# 14510 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14530 "parsing/parser.ml"
+# 14519 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14539 "parsing/parser.ml"
+# 14528 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14545 "parsing/parser.ml"
+# 14534 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14573,9 +14562,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let op : (
-# 989 "parsing/parser.mly"
+# 978 "parsing/parser.mly"
        (string)
-# 14579 "parsing/parser.ml"
+# 14568 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14584,46 +14573,46 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let e2 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 14590 "parsing/parser.ml"
+# 14579 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14595 "parsing/parser.ml"
+# 14584 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_ in
           let op =
             let _1 = 
-# 4533 "parsing/parser.mly"
+# 4522 "parsing/parser.mly"
                   ( op )
-# 14603 "parsing/parser.ml"
+# 14592 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14612 "parsing/parser.ml"
+# 14601 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14621 "parsing/parser.ml"
+# 14610 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14627 "parsing/parser.ml"
+# 14616 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14676,9 +14665,9 @@ module Tables = struct
         let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let op : (
-# 989 "parsing/parser.mly"
+# 978 "parsing/parser.mly"
        (string)
-# 14682 "parsing/parser.ml"
+# 14671 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14692,18 +14681,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 14696 "parsing/parser.ml"
+# 14685 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 14701 "parsing/parser.ml"
+# 14690 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 14707 "parsing/parser.ml"
+# 14696 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -14712,66 +14701,66 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 14718 "parsing/parser.ml"
+# 14707 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 14724 "parsing/parser.ml"
+# 14713 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 14737 "parsing/parser.ml"
+# 14726 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14743 "parsing/parser.ml"
+# 14732 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4533 "parsing/parser.mly"
+# 4522 "parsing/parser.mly"
                   ( op )
-# 14751 "parsing/parser.ml"
+# 14740 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14760 "parsing/parser.ml"
+# 14749 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14769 "parsing/parser.ml"
+# 14758 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14775 "parsing/parser.ml"
+# 14764 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14803,9 +14792,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let op : (
-# 990 "parsing/parser.mly"
+# 979 "parsing/parser.mly"
        (string)
-# 14809 "parsing/parser.ml"
+# 14798 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14814,46 +14803,46 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let e2 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 14820 "parsing/parser.ml"
+# 14809 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14825 "parsing/parser.ml"
+# 14814 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_ in
           let op =
             let _1 = 
-# 4534 "parsing/parser.mly"
+# 4523 "parsing/parser.mly"
                   ( op )
-# 14833 "parsing/parser.ml"
+# 14822 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14842 "parsing/parser.ml"
+# 14831 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14851 "parsing/parser.ml"
+# 14840 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 14857 "parsing/parser.ml"
+# 14846 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -14906,9 +14895,9 @@ module Tables = struct
         let _1_inlined1 : (string Asttypes.loc option) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let op : (
-# 990 "parsing/parser.mly"
+# 979 "parsing/parser.mly"
        (string)
-# 14912 "parsing/parser.ml"
+# 14901 "parsing/parser.ml"
         ) = Obj.magic op in
         let e1 : (Parsetree.expression) = Obj.magic e1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -14922,18 +14911,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 14926 "parsing/parser.ml"
+# 14915 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 14931 "parsing/parser.ml"
+# 14920 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 14937 "parsing/parser.ml"
+# 14926 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -14942,66 +14931,66 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 14948 "parsing/parser.ml"
+# 14937 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 14954 "parsing/parser.ml"
+# 14943 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 14967 "parsing/parser.ml"
+# 14956 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 14973 "parsing/parser.ml"
+# 14962 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4534 "parsing/parser.mly"
+# 4523 "parsing/parser.mly"
                   ( op )
-# 14981 "parsing/parser.ml"
+# 14970 "parsing/parser.ml"
              in
             let (_endpos__1_, _startpos__1_) = (_endpos_op_, _startpos_op_) in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 14990 "parsing/parser.ml"
+# 14979 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 14999 "parsing/parser.ml"
+# 14988 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15005 "parsing/parser.ml"
+# 14994 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15041,45 +15030,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 15047 "parsing/parser.ml"
+# 15036 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15052 "parsing/parser.ml"
+# 15041 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4535 "parsing/parser.mly"
+# 4524 "parsing/parser.mly"
                    ("+")
-# 15060 "parsing/parser.ml"
+# 15049 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15068 "parsing/parser.ml"
+# 15057 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15077 "parsing/parser.ml"
+# 15066 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15083 "parsing/parser.ml"
+# 15072 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15145,18 +15134,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 15149 "parsing/parser.ml"
+# 15138 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 15154 "parsing/parser.ml"
+# 15143 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 15160 "parsing/parser.ml"
+# 15149 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -15165,65 +15154,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 15171 "parsing/parser.ml"
+# 15160 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 15177 "parsing/parser.ml"
+# 15166 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 15190 "parsing/parser.ml"
+# 15179 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15196 "parsing/parser.ml"
+# 15185 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4535 "parsing/parser.mly"
+# 4524 "parsing/parser.mly"
                    ("+")
-# 15204 "parsing/parser.ml"
+# 15193 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15212 "parsing/parser.ml"
+# 15201 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15221 "parsing/parser.ml"
+# 15210 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15227 "parsing/parser.ml"
+# 15216 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15263,45 +15252,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 15269 "parsing/parser.ml"
+# 15258 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15274 "parsing/parser.ml"
+# 15263 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4536 "parsing/parser.mly"
+# 4525 "parsing/parser.mly"
                   ("+.")
-# 15282 "parsing/parser.ml"
+# 15271 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15290 "parsing/parser.ml"
+# 15279 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15299 "parsing/parser.ml"
+# 15288 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15305 "parsing/parser.ml"
+# 15294 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15367,18 +15356,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 15371 "parsing/parser.ml"
+# 15360 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 15376 "parsing/parser.ml"
+# 15365 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 15382 "parsing/parser.ml"
+# 15371 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -15387,65 +15376,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 15393 "parsing/parser.ml"
+# 15382 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 15399 "parsing/parser.ml"
+# 15388 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 15412 "parsing/parser.ml"
+# 15401 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15418 "parsing/parser.ml"
+# 15407 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4536 "parsing/parser.mly"
+# 4525 "parsing/parser.mly"
                   ("+.")
-# 15426 "parsing/parser.ml"
+# 15415 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15434 "parsing/parser.ml"
+# 15423 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15443 "parsing/parser.ml"
+# 15432 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15449 "parsing/parser.ml"
+# 15438 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15485,45 +15474,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 15491 "parsing/parser.ml"
+# 15480 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15496 "parsing/parser.ml"
+# 15485 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4537 "parsing/parser.mly"
+# 4526 "parsing/parser.mly"
                   ("+=")
-# 15504 "parsing/parser.ml"
+# 15493 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15512 "parsing/parser.ml"
+# 15501 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15521 "parsing/parser.ml"
+# 15510 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15527 "parsing/parser.ml"
+# 15516 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15589,18 +15578,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 15593 "parsing/parser.ml"
+# 15582 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 15598 "parsing/parser.ml"
+# 15587 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 15604 "parsing/parser.ml"
+# 15593 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -15609,65 +15598,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 15615 "parsing/parser.ml"
+# 15604 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 15621 "parsing/parser.ml"
+# 15610 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 15634 "parsing/parser.ml"
+# 15623 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15640 "parsing/parser.ml"
+# 15629 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4537 "parsing/parser.mly"
+# 4526 "parsing/parser.mly"
                   ("+=")
-# 15648 "parsing/parser.ml"
+# 15637 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15656 "parsing/parser.ml"
+# 15645 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15665 "parsing/parser.ml"
+# 15654 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15671 "parsing/parser.ml"
+# 15660 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15707,45 +15696,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 15713 "parsing/parser.ml"
+# 15702 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15718 "parsing/parser.ml"
+# 15707 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4538 "parsing/parser.mly"
+# 4527 "parsing/parser.mly"
                    ("-")
-# 15726 "parsing/parser.ml"
+# 15715 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15734 "parsing/parser.ml"
+# 15723 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15743 "parsing/parser.ml"
+# 15732 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15749 "parsing/parser.ml"
+# 15738 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15811,18 +15800,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 15815 "parsing/parser.ml"
+# 15804 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 15820 "parsing/parser.ml"
+# 15809 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 15826 "parsing/parser.ml"
+# 15815 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -15831,65 +15820,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 15837 "parsing/parser.ml"
+# 15826 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 15843 "parsing/parser.ml"
+# 15832 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 15856 "parsing/parser.ml"
+# 15845 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15862 "parsing/parser.ml"
+# 15851 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4538 "parsing/parser.mly"
+# 4527 "parsing/parser.mly"
                    ("-")
-# 15870 "parsing/parser.ml"
+# 15859 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15878 "parsing/parser.ml"
+# 15867 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15887 "parsing/parser.ml"
+# 15876 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15893 "parsing/parser.ml"
+# 15882 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -15929,45 +15918,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 15935 "parsing/parser.ml"
+# 15924 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 15940 "parsing/parser.ml"
+# 15929 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4539 "parsing/parser.mly"
+# 4528 "parsing/parser.mly"
                   ("-.")
-# 15948 "parsing/parser.ml"
+# 15937 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 15956 "parsing/parser.ml"
+# 15945 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 15965 "parsing/parser.ml"
+# 15954 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 15971 "parsing/parser.ml"
+# 15960 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16033,18 +16022,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 16037 "parsing/parser.ml"
+# 16026 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 16042 "parsing/parser.ml"
+# 16031 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 16048 "parsing/parser.ml"
+# 16037 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -16053,65 +16042,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 16059 "parsing/parser.ml"
+# 16048 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 16065 "parsing/parser.ml"
+# 16054 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 16078 "parsing/parser.ml"
+# 16067 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16084 "parsing/parser.ml"
+# 16073 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4539 "parsing/parser.mly"
+# 4528 "parsing/parser.mly"
                   ("-.")
-# 16092 "parsing/parser.ml"
+# 16081 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16100 "parsing/parser.ml"
+# 16089 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16109 "parsing/parser.ml"
+# 16098 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16115 "parsing/parser.ml"
+# 16104 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16151,45 +16140,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 16157 "parsing/parser.ml"
+# 16146 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16162 "parsing/parser.ml"
+# 16151 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4540 "parsing/parser.mly"
+# 4529 "parsing/parser.mly"
                    ("*")
-# 16170 "parsing/parser.ml"
+# 16159 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16178 "parsing/parser.ml"
+# 16167 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16187 "parsing/parser.ml"
+# 16176 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16193 "parsing/parser.ml"
+# 16182 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16255,18 +16244,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 16259 "parsing/parser.ml"
+# 16248 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 16264 "parsing/parser.ml"
+# 16253 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 16270 "parsing/parser.ml"
+# 16259 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -16275,65 +16264,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 16281 "parsing/parser.ml"
+# 16270 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 16287 "parsing/parser.ml"
+# 16276 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 16300 "parsing/parser.ml"
+# 16289 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16306 "parsing/parser.ml"
+# 16295 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4540 "parsing/parser.mly"
+# 4529 "parsing/parser.mly"
                    ("*")
-# 16314 "parsing/parser.ml"
+# 16303 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16322 "parsing/parser.ml"
+# 16311 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16331 "parsing/parser.ml"
+# 16320 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16337 "parsing/parser.ml"
+# 16326 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16373,45 +16362,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 16379 "parsing/parser.ml"
+# 16368 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16384 "parsing/parser.ml"
+# 16373 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4541 "parsing/parser.mly"
+# 4530 "parsing/parser.mly"
                    ("%")
-# 16392 "parsing/parser.ml"
+# 16381 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16400 "parsing/parser.ml"
+# 16389 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16409 "parsing/parser.ml"
+# 16398 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16415 "parsing/parser.ml"
+# 16404 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16477,18 +16466,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 16481 "parsing/parser.ml"
+# 16470 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 16486 "parsing/parser.ml"
+# 16475 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 16492 "parsing/parser.ml"
+# 16481 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -16497,65 +16486,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 16503 "parsing/parser.ml"
+# 16492 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 16509 "parsing/parser.ml"
+# 16498 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 16522 "parsing/parser.ml"
+# 16511 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16528 "parsing/parser.ml"
+# 16517 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4541 "parsing/parser.mly"
+# 4530 "parsing/parser.mly"
                    ("%")
-# 16536 "parsing/parser.ml"
+# 16525 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16544 "parsing/parser.ml"
+# 16533 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16553 "parsing/parser.ml"
+# 16542 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16559 "parsing/parser.ml"
+# 16548 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16595,45 +16584,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 16601 "parsing/parser.ml"
+# 16590 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16606 "parsing/parser.ml"
+# 16595 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4542 "parsing/parser.mly"
+# 4531 "parsing/parser.mly"
                    ("=")
-# 16614 "parsing/parser.ml"
+# 16603 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16622 "parsing/parser.ml"
+# 16611 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16631 "parsing/parser.ml"
+# 16620 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16637 "parsing/parser.ml"
+# 16626 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16699,18 +16688,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 16703 "parsing/parser.ml"
+# 16692 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 16708 "parsing/parser.ml"
+# 16697 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 16714 "parsing/parser.ml"
+# 16703 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -16719,65 +16708,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 16725 "parsing/parser.ml"
+# 16714 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 16731 "parsing/parser.ml"
+# 16720 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 16744 "parsing/parser.ml"
+# 16733 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16750 "parsing/parser.ml"
+# 16739 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4542 "parsing/parser.mly"
+# 4531 "parsing/parser.mly"
                    ("=")
-# 16758 "parsing/parser.ml"
+# 16747 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16766 "parsing/parser.ml"
+# 16755 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16775 "parsing/parser.ml"
+# 16764 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16781 "parsing/parser.ml"
+# 16770 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16817,45 +16806,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 16823 "parsing/parser.ml"
+# 16812 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16828 "parsing/parser.ml"
+# 16817 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4543 "parsing/parser.mly"
+# 4532 "parsing/parser.mly"
                    ("<")
-# 16836 "parsing/parser.ml"
+# 16825 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16844 "parsing/parser.ml"
+# 16833 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16853 "parsing/parser.ml"
+# 16842 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 16859 "parsing/parser.ml"
+# 16848 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -16921,18 +16910,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 16925 "parsing/parser.ml"
+# 16914 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 16930 "parsing/parser.ml"
+# 16919 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 16936 "parsing/parser.ml"
+# 16925 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -16941,65 +16930,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 16947 "parsing/parser.ml"
+# 16936 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 16953 "parsing/parser.ml"
+# 16942 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 16966 "parsing/parser.ml"
+# 16955 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 16972 "parsing/parser.ml"
+# 16961 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4543 "parsing/parser.mly"
+# 4532 "parsing/parser.mly"
                    ("<")
-# 16980 "parsing/parser.ml"
+# 16969 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 16988 "parsing/parser.ml"
+# 16977 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 16997 "parsing/parser.ml"
+# 16986 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17003 "parsing/parser.ml"
+# 16992 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17039,45 +17028,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 17045 "parsing/parser.ml"
+# 17034 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17050 "parsing/parser.ml"
+# 17039 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4544 "parsing/parser.mly"
+# 4533 "parsing/parser.mly"
                    (">")
-# 17058 "parsing/parser.ml"
+# 17047 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17066 "parsing/parser.ml"
+# 17055 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17075 "parsing/parser.ml"
+# 17064 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17081 "parsing/parser.ml"
+# 17070 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17143,18 +17132,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 17147 "parsing/parser.ml"
+# 17136 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 17152 "parsing/parser.ml"
+# 17141 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 17158 "parsing/parser.ml"
+# 17147 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -17163,65 +17152,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 17169 "parsing/parser.ml"
+# 17158 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 17175 "parsing/parser.ml"
+# 17164 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 17188 "parsing/parser.ml"
+# 17177 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17194 "parsing/parser.ml"
+# 17183 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4544 "parsing/parser.mly"
+# 4533 "parsing/parser.mly"
                    (">")
-# 17202 "parsing/parser.ml"
+# 17191 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17210 "parsing/parser.ml"
+# 17199 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17219 "parsing/parser.ml"
+# 17208 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17225 "parsing/parser.ml"
+# 17214 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17261,45 +17250,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 17267 "parsing/parser.ml"
+# 17256 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17272 "parsing/parser.ml"
+# 17261 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4545 "parsing/parser.mly"
+# 4534 "parsing/parser.mly"
                   ("or")
-# 17280 "parsing/parser.ml"
+# 17269 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17288 "parsing/parser.ml"
+# 17277 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17297 "parsing/parser.ml"
+# 17286 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17303 "parsing/parser.ml"
+# 17292 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17365,18 +17354,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 17369 "parsing/parser.ml"
+# 17358 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 17374 "parsing/parser.ml"
+# 17363 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 17380 "parsing/parser.ml"
+# 17369 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -17385,65 +17374,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 17391 "parsing/parser.ml"
+# 17380 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 17397 "parsing/parser.ml"
+# 17386 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 17410 "parsing/parser.ml"
+# 17399 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17416 "parsing/parser.ml"
+# 17405 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4545 "parsing/parser.mly"
+# 4534 "parsing/parser.mly"
                   ("or")
-# 17424 "parsing/parser.ml"
+# 17413 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17432 "parsing/parser.ml"
+# 17421 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17441 "parsing/parser.ml"
+# 17430 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17447 "parsing/parser.ml"
+# 17436 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17483,45 +17472,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 17489 "parsing/parser.ml"
+# 17478 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17494 "parsing/parser.ml"
+# 17483 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4546 "parsing/parser.mly"
+# 4535 "parsing/parser.mly"
                   ("||")
-# 17502 "parsing/parser.ml"
+# 17491 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17510 "parsing/parser.ml"
+# 17499 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17519 "parsing/parser.ml"
+# 17508 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17525 "parsing/parser.ml"
+# 17514 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17587,18 +17576,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 17591 "parsing/parser.ml"
+# 17580 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 17596 "parsing/parser.ml"
+# 17585 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 17602 "parsing/parser.ml"
+# 17591 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -17607,65 +17596,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 17613 "parsing/parser.ml"
+# 17602 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 17619 "parsing/parser.ml"
+# 17608 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 17632 "parsing/parser.ml"
+# 17621 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17638 "parsing/parser.ml"
+# 17627 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4546 "parsing/parser.mly"
+# 4535 "parsing/parser.mly"
                   ("||")
-# 17646 "parsing/parser.ml"
+# 17635 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17654 "parsing/parser.ml"
+# 17643 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17663 "parsing/parser.ml"
+# 17652 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17669 "parsing/parser.ml"
+# 17658 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17705,45 +17694,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 17711 "parsing/parser.ml"
+# 17700 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17716 "parsing/parser.ml"
+# 17705 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4547 "parsing/parser.mly"
+# 4536 "parsing/parser.mly"
                    ("&")
-# 17724 "parsing/parser.ml"
+# 17713 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17732 "parsing/parser.ml"
+# 17721 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17741 "parsing/parser.ml"
+# 17730 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17747 "parsing/parser.ml"
+# 17736 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17809,18 +17798,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 17813 "parsing/parser.ml"
+# 17802 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 17818 "parsing/parser.ml"
+# 17807 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 17824 "parsing/parser.ml"
+# 17813 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -17829,65 +17818,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 17835 "parsing/parser.ml"
+# 17824 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 17841 "parsing/parser.ml"
+# 17830 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 17854 "parsing/parser.ml"
+# 17843 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17860 "parsing/parser.ml"
+# 17849 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4547 "parsing/parser.mly"
+# 4536 "parsing/parser.mly"
                    ("&")
-# 17868 "parsing/parser.ml"
+# 17857 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17876 "parsing/parser.ml"
+# 17865 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17885 "parsing/parser.ml"
+# 17874 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17891 "parsing/parser.ml"
+# 17880 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -17927,45 +17916,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 17933 "parsing/parser.ml"
+# 17922 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 17938 "parsing/parser.ml"
+# 17927 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4548 "parsing/parser.mly"
+# 4537 "parsing/parser.mly"
                   ("&&")
-# 17946 "parsing/parser.ml"
+# 17935 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 17954 "parsing/parser.ml"
+# 17943 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 17963 "parsing/parser.ml"
+# 17952 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 17969 "parsing/parser.ml"
+# 17958 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18031,18 +18020,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 18035 "parsing/parser.ml"
+# 18024 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 18040 "parsing/parser.ml"
+# 18029 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 18046 "parsing/parser.ml"
+# 18035 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -18051,65 +18040,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 18057 "parsing/parser.ml"
+# 18046 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 18063 "parsing/parser.ml"
+# 18052 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 18076 "parsing/parser.ml"
+# 18065 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18082 "parsing/parser.ml"
+# 18071 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4548 "parsing/parser.mly"
+# 4537 "parsing/parser.mly"
                   ("&&")
-# 18090 "parsing/parser.ml"
+# 18079 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 18098 "parsing/parser.ml"
+# 18087 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 18107 "parsing/parser.ml"
+# 18096 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 18113 "parsing/parser.ml"
+# 18102 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18149,45 +18138,45 @@ module Tables = struct
           let e2 =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 18155 "parsing/parser.ml"
+# 18144 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18160 "parsing/parser.ml"
+# 18149 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos__1_inlined1_ in
           let op =
             let _1 = 
-# 4549 "parsing/parser.mly"
+# 4538 "parsing/parser.mly"
                   (":=")
-# 18168 "parsing/parser.ml"
+# 18157 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 18176 "parsing/parser.ml"
+# 18165 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 18185 "parsing/parser.ml"
+# 18174 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 18191 "parsing/parser.ml"
+# 18180 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18253,18 +18242,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 18257 "parsing/parser.ml"
+# 18246 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 18262 "parsing/parser.ml"
+# 18251 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 18268 "parsing/parser.ml"
+# 18257 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -18273,65 +18262,65 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 18279 "parsing/parser.ml"
+# 18268 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 18285 "parsing/parser.ml"
+# 18274 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 18298 "parsing/parser.ml"
+# 18287 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18304 "parsing/parser.ml"
+# 18293 "parsing/parser.ml"
             
           in
           let _endpos_e2_ = _endpos_xs_ in
           let op =
             let _1 = 
-# 4549 "parsing/parser.mly"
+# 4538 "parsing/parser.mly"
                   (":=")
-# 18312 "parsing/parser.ml"
+# 18301 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 18320 "parsing/parser.ml"
+# 18309 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_e2_ in
           let _symbolstartpos = _startpos_e1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2794 "parsing/parser.mly"
+# 2783 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (mkinfix e1 op e2) )
-# 18329 "parsing/parser.ml"
+# 18318 "parsing/parser.ml"
           
         in
         
-# 2710 "parsing/parser.mly"
+# 2699 "parsing/parser.mly"
       ( _1 )
-# 18335 "parsing/parser.ml"
+# 18324 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18371,9 +18360,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2712 "parsing/parser.mly"
+# 2701 "parsing/parser.mly"
       ( expr_of_let_bindings ~loc:_sloc _1 _3 )
-# 18377 "parsing/parser.ml"
+# 18366 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18413,9 +18402,9 @@ module Tables = struct
         let _3 : unit = Obj.magic _3 in
         let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in
         let _1 : (
-# 992 "parsing/parser.mly"
+# 981 "parsing/parser.mly"
        (string)
-# 18419 "parsing/parser.ml"
+# 18408 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -18425,9 +18414,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 18431 "parsing/parser.ml"
+# 18420 "parsing/parser.ml"
           
         in
         let _startpos_pbop_op_ = _startpos__1_ in
@@ -18435,13 +18424,13 @@ module Tables = struct
         let _symbolstartpos = _startpos_pbop_op_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2714 "parsing/parser.mly"
+# 2703 "parsing/parser.mly"
       ( let (pbop_pat, pbop_exp, rev_ands) = bindings in
         let ands = List.rev rev_ands in
         let pbop_loc = make_loc _sloc in
         let let_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in
         mkexp ~loc:_sloc (Pexp_letop{ let_; ands; body}) )
-# 18445 "parsing/parser.ml"
+# 18434 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18480,14 +18469,14 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _3 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 18486 "parsing/parser.ml"
+# 18475 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18491 "parsing/parser.ml"
+# 18480 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos__1_inlined1_ in
@@ -18496,9 +18485,9 @@ module Tables = struct
         let _loc__2_ = (_startpos__2_, _endpos__2_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2720 "parsing/parser.mly"
+# 2709 "parsing/parser.mly"
       ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) )
-# 18502 "parsing/parser.ml"
+# 18491 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18563,18 +18552,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 18567 "parsing/parser.ml"
+# 18556 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 18572 "parsing/parser.ml"
+# 18561 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 18578 "parsing/parser.ml"
+# 18567 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -18583,34 +18572,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 18589 "parsing/parser.ml"
+# 18578 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 18595 "parsing/parser.ml"
+# 18584 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 18608 "parsing/parser.ml"
+# 18597 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18614 "parsing/parser.ml"
+# 18603 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos_xs_ in
@@ -18619,9 +18608,9 @@ module Tables = struct
         let _loc__2_ = (_startpos__2_, _endpos__2_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2720 "parsing/parser.mly"
+# 2709 "parsing/parser.mly"
       ( mkexp_cons ~loc:_sloc _loc__2_ (ghexp ~loc:_sloc (Pexp_tuple[_1;_3])) )
-# 18625 "parsing/parser.ml"
+# 18614 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18654,9 +18643,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 18660 "parsing/parser.ml"
+# 18649 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -18664,39 +18653,39 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _3 =
           let _1 = _1_inlined1 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 18670 "parsing/parser.ml"
+# 18659 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18675 "parsing/parser.ml"
+# 18664 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos__1_inlined1_ in
         let _1 =
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 18683 "parsing/parser.ml"
+# 18672 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 18691 "parsing/parser.ml"
+# 18680 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2722 "parsing/parser.mly"
+# 2711 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) )
-# 18700 "parsing/parser.ml"
+# 18689 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18750,9 +18739,9 @@ module Tables = struct
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 18756 "parsing/parser.ml"
+# 18745 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -18765,18 +18754,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 18769 "parsing/parser.ml"
+# 18758 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 18774 "parsing/parser.ml"
+# 18763 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 18780 "parsing/parser.ml"
+# 18769 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -18785,59 +18774,59 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 18791 "parsing/parser.ml"
+# 18780 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 18797 "parsing/parser.ml"
+# 18786 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 18810 "parsing/parser.ml"
+# 18799 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18816 "parsing/parser.ml"
+# 18805 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos_xs_ in
         let _1 =
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 18824 "parsing/parser.ml"
+# 18813 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 18832 "parsing/parser.ml"
+# 18821 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2722 "parsing/parser.mly"
+# 2711 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_setinstvar(_1, _3)) )
-# 18841 "parsing/parser.ml"
+# 18830 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18890,14 +18879,14 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _5 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 18896 "parsing/parser.ml"
+# 18885 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 18901 "parsing/parser.ml"
+# 18890 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
@@ -18907,18 +18896,18 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 18913 "parsing/parser.ml"
+# 18902 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2724 "parsing/parser.mly"
+# 2713 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) )
-# 18922 "parsing/parser.ml"
+# 18911 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -18997,18 +18986,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 19001 "parsing/parser.ml"
+# 18990 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 19006 "parsing/parser.ml"
+# 18995 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 19012 "parsing/parser.ml"
+# 19001 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -19017,34 +19006,34 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 19023 "parsing/parser.ml"
+# 19012 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 19029 "parsing/parser.ml"
+# 19018 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 19042 "parsing/parser.ml"
+# 19031 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19048 "parsing/parser.ml"
+# 19037 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos_xs_ in
@@ -19054,18 +19043,18 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 19060 "parsing/parser.ml"
+# 19049 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2724 "parsing/parser.mly"
+# 2713 "parsing/parser.mly"
       ( mkexp ~loc:_sloc (Pexp_setfield(_1, _3, _5)) )
-# 19069 "parsing/parser.ml"
+# 19058 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19134,26 +19123,26 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 19140 "parsing/parser.ml"
+# 19129 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19145 "parsing/parser.ml"
+# 19134 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19151 "parsing/parser.ml"
+# 19140 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 19157 "parsing/parser.ml"
+# 19146 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -19161,9 +19150,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19167 "parsing/parser.ml"
+# 19156 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19258,18 +19247,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 19262 "parsing/parser.ml"
+# 19251 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 19267 "parsing/parser.ml"
+# 19256 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 19273 "parsing/parser.ml"
+# 19262 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -19278,46 +19267,46 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 19284 "parsing/parser.ml"
+# 19273 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 19290 "parsing/parser.ml"
+# 19279 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 19303 "parsing/parser.ml"
+# 19292 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19309 "parsing/parser.ml"
+# 19298 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19315 "parsing/parser.ml"
+# 19304 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 19321 "parsing/parser.ml"
+# 19310 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -19325,9 +19314,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19331 "parsing/parser.ml"
+# 19320 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19396,26 +19385,26 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 19402 "parsing/parser.ml"
+# 19391 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19407 "parsing/parser.ml"
+# 19396 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19413 "parsing/parser.ml"
+# 19402 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 19419 "parsing/parser.ml"
+# 19408 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -19423,9 +19412,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19429 "parsing/parser.ml"
+# 19418 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19520,18 +19509,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 19524 "parsing/parser.ml"
+# 19513 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 19529 "parsing/parser.ml"
+# 19518 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 19535 "parsing/parser.ml"
+# 19524 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -19540,46 +19529,46 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 19546 "parsing/parser.ml"
+# 19535 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 19552 "parsing/parser.ml"
+# 19541 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 19565 "parsing/parser.ml"
+# 19554 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19571 "parsing/parser.ml"
+# 19560 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19577 "parsing/parser.ml"
+# 19566 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 19583 "parsing/parser.ml"
+# 19572 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -19587,9 +19576,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19593 "parsing/parser.ml"
+# 19582 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19658,26 +19647,26 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 19664 "parsing/parser.ml"
+# 19653 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19669 "parsing/parser.ml"
+# 19658 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19675 "parsing/parser.ml"
+# 19664 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 19681 "parsing/parser.ml"
+# 19670 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -19685,9 +19674,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19691 "parsing/parser.ml"
+# 19680 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19782,18 +19771,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 19786 "parsing/parser.ml"
+# 19775 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 19791 "parsing/parser.ml"
+# 19780 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 19797 "parsing/parser.ml"
+# 19786 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -19802,46 +19791,46 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 19808 "parsing/parser.ml"
+# 19797 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 19814 "parsing/parser.ml"
+# 19803 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 19827 "parsing/parser.ml"
+# 19816 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19833 "parsing/parser.ml"
+# 19822 "parsing/parser.ml"
               
             in
             
-# 2725 "parsing/parser.mly"
+# 2714 "parsing/parser.mly"
                                                  (Some v)
-# 19839 "parsing/parser.ml"
+# 19828 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 19845 "parsing/parser.ml"
+# 19834 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -19849,9 +19838,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2726 "parsing/parser.mly"
+# 2715 "parsing/parser.mly"
     ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 19855 "parsing/parser.ml"
+# 19844 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -19911,9 +19900,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 19917 "parsing/parser.ml"
+# 19906 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -19924,43 +19913,43 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 19930 "parsing/parser.ml"
+# 19919 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 19935 "parsing/parser.ml"
+# 19924 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 19941 "parsing/parser.ml"
+# 19930 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 19947 "parsing/parser.ml"
+# 19936 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 19953 "parsing/parser.ml"
+# 19942 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 19958 "parsing/parser.ml"
+# 19947 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 19964 "parsing/parser.ml"
+# 19953 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -19968,9 +19957,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 19974 "parsing/parser.ml"
+# 19963 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20051,9 +20040,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20057 "parsing/parser.ml"
+# 20046 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -20069,18 +20058,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 20073 "parsing/parser.ml"
+# 20062 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 20078 "parsing/parser.ml"
+# 20067 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 20084 "parsing/parser.ml"
+# 20073 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -20089,63 +20078,63 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 20095 "parsing/parser.ml"
+# 20084 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 20101 "parsing/parser.ml"
+# 20090 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 20114 "parsing/parser.ml"
+# 20103 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20120 "parsing/parser.ml"
+# 20109 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20126 "parsing/parser.ml"
+# 20115 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20132 "parsing/parser.ml"
+# 20121 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 20138 "parsing/parser.ml"
+# 20127 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20143 "parsing/parser.ml"
+# 20132 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 20149 "parsing/parser.ml"
+# 20138 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -20153,9 +20142,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20159 "parsing/parser.ml"
+# 20148 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20227,9 +20216,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20233 "parsing/parser.ml"
+# 20222 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -20243,51 +20232,51 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 20249 "parsing/parser.ml"
+# 20238 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20254 "parsing/parser.ml"
+# 20243 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20260 "parsing/parser.ml"
+# 20249 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20266 "parsing/parser.ml"
+# 20255 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 20274 "parsing/parser.ml"
+# 20263 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 20279 "parsing/parser.ml"
+# 20268 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20285 "parsing/parser.ml"
+# 20274 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 20291 "parsing/parser.ml"
+# 20280 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in
@@ -20295,9 +20284,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20301 "parsing/parser.ml"
+# 20290 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20390,9 +20379,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20396 "parsing/parser.ml"
+# 20385 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -20411,18 +20400,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 20415 "parsing/parser.ml"
+# 20404 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 20420 "parsing/parser.ml"
+# 20409 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 20426 "parsing/parser.ml"
+# 20415 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -20431,71 +20420,71 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 20437 "parsing/parser.ml"
+# 20426 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 20443 "parsing/parser.ml"
+# 20432 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 20456 "parsing/parser.ml"
+# 20445 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20462 "parsing/parser.ml"
+# 20451 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20468 "parsing/parser.ml"
+# 20457 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20474 "parsing/parser.ml"
+# 20463 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 20482 "parsing/parser.ml"
+# 20471 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 20487 "parsing/parser.ml"
+# 20476 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20493 "parsing/parser.ml"
+# 20482 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 20499 "parsing/parser.ml"
+# 20488 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -20503,9 +20492,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20509 "parsing/parser.ml"
+# 20498 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20565,9 +20554,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20571 "parsing/parser.ml"
+# 20560 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -20578,43 +20567,43 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 20584 "parsing/parser.ml"
+# 20573 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20589 "parsing/parser.ml"
+# 20578 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20595 "parsing/parser.ml"
+# 20584 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20601 "parsing/parser.ml"
+# 20590 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 20607 "parsing/parser.ml"
+# 20596 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20612 "parsing/parser.ml"
+# 20601 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 20618 "parsing/parser.ml"
+# 20607 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -20622,9 +20611,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20628 "parsing/parser.ml"
+# 20617 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20705,9 +20694,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20711 "parsing/parser.ml"
+# 20700 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -20723,18 +20712,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 20727 "parsing/parser.ml"
+# 20716 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 20732 "parsing/parser.ml"
+# 20721 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 20738 "parsing/parser.ml"
+# 20727 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -20743,63 +20732,63 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 20749 "parsing/parser.ml"
+# 20738 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 20755 "parsing/parser.ml"
+# 20744 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 20768 "parsing/parser.ml"
+# 20757 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20774 "parsing/parser.ml"
+# 20763 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20780 "parsing/parser.ml"
+# 20769 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20786 "parsing/parser.ml"
+# 20775 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 20792 "parsing/parser.ml"
+# 20781 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20797 "parsing/parser.ml"
+# 20786 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 20803 "parsing/parser.ml"
+# 20792 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -20807,9 +20796,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20813 "parsing/parser.ml"
+# 20802 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -20881,9 +20870,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 20887 "parsing/parser.ml"
+# 20876 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -20897,51 +20886,51 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 20903 "parsing/parser.ml"
+# 20892 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 20908 "parsing/parser.ml"
+# 20897 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 20914 "parsing/parser.ml"
+# 20903 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 20920 "parsing/parser.ml"
+# 20909 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 20928 "parsing/parser.ml"
+# 20917 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 20933 "parsing/parser.ml"
+# 20922 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 20939 "parsing/parser.ml"
+# 20928 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 20945 "parsing/parser.ml"
+# 20934 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in
@@ -20949,9 +20938,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 20955 "parsing/parser.ml"
+# 20944 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21044,9 +21033,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 21050 "parsing/parser.ml"
+# 21039 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -21065,18 +21054,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 21069 "parsing/parser.ml"
+# 21058 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 21074 "parsing/parser.ml"
+# 21063 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 21080 "parsing/parser.ml"
+# 21069 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -21085,71 +21074,71 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 21091 "parsing/parser.ml"
+# 21080 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 21097 "parsing/parser.ml"
+# 21086 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 21110 "parsing/parser.ml"
+# 21099 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 21116 "parsing/parser.ml"
+# 21105 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 21122 "parsing/parser.ml"
+# 21111 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 21128 "parsing/parser.ml"
+# 21117 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 21136 "parsing/parser.ml"
+# 21125 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 21141 "parsing/parser.ml"
+# 21130 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 21147 "parsing/parser.ml"
+# 21136 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 21153 "parsing/parser.ml"
+# 21142 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -21157,9 +21146,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 21163 "parsing/parser.ml"
+# 21152 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21219,9 +21208,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 21225 "parsing/parser.ml"
+# 21214 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -21232,43 +21221,43 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 21238 "parsing/parser.ml"
+# 21227 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 21243 "parsing/parser.ml"
+# 21232 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 21249 "parsing/parser.ml"
+# 21238 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 21255 "parsing/parser.ml"
+# 21244 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 21261 "parsing/parser.ml"
+# 21250 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 21266 "parsing/parser.ml"
+# 21255 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 21272 "parsing/parser.ml"
+# 21261 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_array_) in
@@ -21276,9 +21265,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 21282 "parsing/parser.ml"
+# 21271 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21359,9 +21348,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 21365 "parsing/parser.ml"
+# 21354 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -21377,18 +21366,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 21381 "parsing/parser.ml"
+# 21370 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 21386 "parsing/parser.ml"
+# 21375 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 21392 "parsing/parser.ml"
+# 21381 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -21397,63 +21386,63 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 21403 "parsing/parser.ml"
+# 21392 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 21409 "parsing/parser.ml"
+# 21398 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 21422 "parsing/parser.ml"
+# 21411 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 21428 "parsing/parser.ml"
+# 21417 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 21434 "parsing/parser.ml"
+# 21423 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 21440 "parsing/parser.ml"
+# 21429 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 21446 "parsing/parser.ml"
+# 21435 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 21451 "parsing/parser.ml"
+# 21440 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 21457 "parsing/parser.ml"
+# 21446 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -21461,9 +21450,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 21467 "parsing/parser.ml"
+# 21456 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21535,9 +21524,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 21541 "parsing/parser.ml"
+# 21530 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -21551,51 +21540,51 @@ module Tables = struct
             let v =
               let _1 = _1_inlined1 in
               let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 21557 "parsing/parser.ml"
+# 21546 "parsing/parser.ml"
                in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 21562 "parsing/parser.ml"
+# 21551 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 21568 "parsing/parser.ml"
+# 21557 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 21574 "parsing/parser.ml"
+# 21563 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 21582 "parsing/parser.ml"
+# 21571 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 21587 "parsing/parser.ml"
+# 21576 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 21593 "parsing/parser.ml"
+# 21582 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 21599 "parsing/parser.ml"
+# 21588 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos_array_) in
@@ -21603,9 +21592,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 21609 "parsing/parser.ml"
+# 21598 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21698,9 +21687,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 21704 "parsing/parser.ml"
+# 21693 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -21719,18 +21708,18 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 21723 "parsing/parser.ml"
+# 21712 "parsing/parser.ml"
                      in
                     
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 21728 "parsing/parser.ml"
+# 21717 "parsing/parser.ml"
                     
                   in
                   
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 21734 "parsing/parser.ml"
+# 21723 "parsing/parser.ml"
                   
                 in
                 let _endpos__3_ = _endpos_xs_ in
@@ -21739,71 +21728,71 @@ module Tables = struct
                   let _2 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 21745 "parsing/parser.ml"
+# 21734 "parsing/parser.ml"
                     
                   in
                   
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 21751 "parsing/parser.ml"
+# 21740 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos__3_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 21764 "parsing/parser.ml"
+# 21753 "parsing/parser.ml"
                 
               in
               
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 21770 "parsing/parser.ml"
+# 21759 "parsing/parser.ml"
               
             in
             
-# 2727 "parsing/parser.mly"
+# 2716 "parsing/parser.mly"
                                                                    (Some v)
-# 21776 "parsing/parser.ml"
+# 21765 "parsing/parser.ml"
             
           in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 21782 "parsing/parser.ml"
+# 21771 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 21790 "parsing/parser.ml"
+# 21779 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 21795 "parsing/parser.ml"
+# 21784 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 21801 "parsing/parser.ml"
+# 21790 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 21807 "parsing/parser.ml"
+# 21796 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_array_) in
@@ -21811,9 +21800,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2728 "parsing/parser.mly"
+# 2717 "parsing/parser.mly"
     ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 21817 "parsing/parser.ml"
+# 21806 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21843,9 +21832,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.expression) = 
-# 2730 "parsing/parser.mly"
+# 2719 "parsing/parser.mly"
       ( Exp.attr _1 _2 )
-# 21849 "parsing/parser.ml"
+# 21838 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21869,9 +21858,9 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 2733 "parsing/parser.mly"
+# 2722 "parsing/parser.mly"
      ( not_expecting _loc__1_ "wildcard \"_\"" )
-# 21875 "parsing/parser.ml"
+# 21864 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21905,18 +21894,18 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4252 "parsing/parser.mly"
+# 4241 "parsing/parser.mly"
        ( Mode.Const.mk "local" (make_loc _sloc) )
-# 21911 "parsing/parser.ml"
+# 21900 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2736 "parsing/parser.mly"
+# 2725 "parsing/parser.mly"
      ( mkexp_with_modes ~loc:_sloc (Mode.singleton _1) _2 )
-# 21920 "parsing/parser.ml"
+# 21909 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21950,18 +21939,18 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4254 "parsing/parser.mly"
+# 4243 "parsing/parser.mly"
        ( Mode.Const.mk "unique" (make_loc _sloc) )
-# 21956 "parsing/parser.ml"
+# 21945 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2736 "parsing/parser.mly"
+# 2725 "parsing/parser.mly"
      ( mkexp_with_modes ~loc:_sloc (Mode.singleton _1) _2 )
-# 21965 "parsing/parser.ml"
+# 21954 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -21995,18 +21984,18 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4256 "parsing/parser.mly"
+# 4245 "parsing/parser.mly"
        ( Mode.Const.mk "once" (make_loc _sloc) )
-# 22001 "parsing/parser.ml"
+# 21990 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2736 "parsing/parser.mly"
+# 2725 "parsing/parser.mly"
      ( mkexp_with_modes ~loc:_sloc (Mode.singleton _1) _2 )
-# 22010 "parsing/parser.ml"
+# 21999 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22040,9 +22029,9 @@ module Tables = struct
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2738 "parsing/parser.mly"
+# 2727 "parsing/parser.mly"
      ( mkexp_exclave ~loc:_sloc ~kwd_loc:(_loc__1_) _2 )
-# 22046 "parsing/parser.ml"
+# 22035 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22089,7 +22078,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3214 "parsing/parser.mly"
+# 3203 "parsing/parser.mly"
       ( (* We desugar (type a b c) to (type a) (type b) (type c).
             If we do this desugaring, the loc for each parameter is a ghost.
         *)
@@ -22105,7 +22094,7 @@ module Tables = struct
              })
           ty_params
       )
-# 22109 "parsing/parser.ml"
+# 22098 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22157,9 +22146,9 @@ module Tables = struct
         let _5 : (Jane_asttypes.jkind_annotation) = Obj.magic _5 in
         let _4 : unit = Obj.magic _4 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 22163 "parsing/parser.ml"
+# 22152 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -22172,22 +22161,22 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 22178 "parsing/parser.ml"
+# 22167 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__6_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3230 "parsing/parser.mly"
+# 3219 "parsing/parser.mly"
       ( [ { N_ary.pparam_loc = make_loc _sloc;
             pparam_desc = Pparam_newtype (_3, Some _5)
           }
         ]
       )
-# 22191 "parsing/parser.ml"
+# 22180 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22213,14 +22202,14 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3236 "parsing/parser.mly"
+# 3225 "parsing/parser.mly"
       ( let a, b, c = _1 in
         [ { N_ary.pparam_loc = make_loc _sloc;
             pparam_desc = Pparam_val (a, b, c)
           }
         ]
       )
-# 22224 "parsing/parser.ml"
+# 22213 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22246,18 +22235,18 @@ module Tables = struct
           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 22250 "parsing/parser.ml"
+# 22239 "parsing/parser.ml"
            in
           
-# 1325 "parsing/parser.mly"
+# 1314 "parsing/parser.mly"
     ( xs )
-# 22255 "parsing/parser.ml"
+# 22244 "parsing/parser.ml"
           
         in
         
-# 3244 "parsing/parser.mly"
+# 3233 "parsing/parser.mly"
                                        ( _1 )
-# 22261 "parsing/parser.ml"
+# 22250 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22280,9 +22269,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = 
-# 2575 "parsing/parser.mly"
+# 2564 "parsing/parser.mly"
                                   ( _1 )
-# 22286 "parsing/parser.ml"
+# 22275 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22312,9 +22301,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.expression) = 
-# 2576 "parsing/parser.mly"
+# 2565 "parsing/parser.mly"
                                   ( _1 )
-# 22318 "parsing/parser.ml"
+# 22307 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22352,24 +22341,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2578 "parsing/parser.mly"
+# 2567 "parsing/parser.mly"
     ( Pexp_sequence(_1, _3) )
-# 22358 "parsing/parser.ml"
+# 22347 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 22367 "parsing/parser.ml"
+# 22356 "parsing/parser.ml"
           
         in
         
-# 2579 "parsing/parser.mly"
+# 2568 "parsing/parser.mly"
     ( _1 )
-# 22373 "parsing/parser.ml"
+# 22362 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22423,11 +22412,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2581 "parsing/parser.mly"
+# 2570 "parsing/parser.mly"
     ( let seq = mkexp ~loc:_sloc (Pexp_sequence (_1, _5)) in
       let payload = PStr [mkstrexp seq []] in
       mkexp ~loc:_sloc (Pexp_extension (_4, payload)) )
-# 22431 "parsing/parser.ml"
+# 22420 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22450,9 +22439,9 @@ module Tables = struct
         let _startpos = _startpos_ty_ in
         let _endpos = _endpos_ty_ in
         let _v : (Parsetree.core_type) = 
-# 4160 "parsing/parser.mly"
+# 4149 "parsing/parser.mly"
       ( ty )
-# 22456 "parsing/parser.ml"
+# 22445 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22475,9 +22464,9 @@ module Tables = struct
         let _startpos = _startpos_ty_ in
         let _endpos = _endpos_ty_ in
         let _v : (Parsetree.core_type) = 
-# 4162 "parsing/parser.mly"
+# 4151 "parsing/parser.mly"
       ( ty )
-# 22481 "parsing/parser.ml"
+# 22470 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22508,9 +22497,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Lexing.position * Parsetree.functor_parameter) = let _startpos = _startpos__1_ in
         
-# 1611 "parsing/parser.mly"
+# 1600 "parsing/parser.mly"
       ( _startpos, Unit )
-# 22514 "parsing/parser.ml"
+# 22503 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22566,16 +22555,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 22572 "parsing/parser.ml"
+# 22561 "parsing/parser.ml"
           
         in
         let _startpos = _startpos__1_ in
         
-# 1614 "parsing/parser.mly"
+# 1603 "parsing/parser.mly"
       ( _startpos, Named (x, mty) )
-# 22579 "parsing/parser.ml"
+# 22568 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22592,9 +22581,9 @@ module Tables = struct
         let _endpos = _startpos in
         let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list *
   Parsetree.constructor_arguments * Parsetree.core_type option) = 
-# 3933 "parsing/parser.mly"
+# 3922 "parsing/parser.mly"
                                   ( ([],Pcstr_tuple [],None) )
-# 22598 "parsing/parser.ml"
+# 22587 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22625,9 +22614,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list *
   Parsetree.constructor_arguments * Parsetree.core_type option) = 
-# 3934 "parsing/parser.mly"
+# 3923 "parsing/parser.mly"
                                   ( ([],_2,None) )
-# 22631 "parsing/parser.ml"
+# 22620 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22672,9 +22661,9 @@ module Tables = struct
         let _endpos = _endpos__4_ in
         let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list *
   Parsetree.constructor_arguments * Parsetree.core_type option) = 
-# 3936 "parsing/parser.mly"
+# 3925 "parsing/parser.mly"
                                   ( ([],_2,Some _4) )
-# 22678 "parsing/parser.ml"
+# 22667 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22737,24 +22726,24 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 22741 "parsing/parser.ml"
+# 22730 "parsing/parser.ml"
              in
             
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 22746 "parsing/parser.ml"
+# 22735 "parsing/parser.ml"
             
           in
           
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 22752 "parsing/parser.ml"
+# 22741 "parsing/parser.ml"
           
         in
         
-# 3939 "parsing/parser.mly"
+# 3928 "parsing/parser.mly"
                                   ( (_2,_4,Some _6) )
-# 22758 "parsing/parser.ml"
+# 22747 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22785,9 +22774,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list *
   Parsetree.constructor_arguments * Parsetree.core_type option) = 
-# 3941 "parsing/parser.mly"
+# 3930 "parsing/parser.mly"
                                   ( ([],Pcstr_tuple [],Some _2) )
-# 22791 "parsing/parser.ml"
+# 22780 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22836,24 +22825,24 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 22840 "parsing/parser.ml"
+# 22829 "parsing/parser.ml"
              in
             
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 22845 "parsing/parser.ml"
+# 22834 "parsing/parser.ml"
             
           in
           
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 22851 "parsing/parser.ml"
+# 22840 "parsing/parser.ml"
           
         in
         
-# 3943 "parsing/parser.mly"
+# 3932 "parsing/parser.mly"
                                   ( (_2,Pcstr_tuple [],Some _4) )
-# 22857 "parsing/parser.ml"
+# 22846 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22903,9 +22892,9 @@ module Tables = struct
   Parsetree.attributes * Location.t * Docstrings.info) = let attrs =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 22909 "parsing/parser.ml"
+# 22898 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined2_ in
@@ -22915,23 +22904,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 22921 "parsing/parser.ml"
+# 22910 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3872 "parsing/parser.mly"
+# 3861 "parsing/parser.mly"
     (
       let vars, args, res = vars_args_res in
       let info = symbol_info _endpos in
       let loc = make_loc _sloc in
       cid, vars, args, res, attrs, loc, info
     )
-# 22935 "parsing/parser.ml"
+# 22924 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -22974,9 +22963,9 @@ module Tables = struct
   Parsetree.attributes * Location.t * Docstrings.info) = let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 22980 "parsing/parser.ml"
+# 22969 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined1_ in
@@ -22985,29 +22974,29 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 22991 "parsing/parser.ml"
+# 22980 "parsing/parser.ml"
           
         in
         let _startpos_cid_ = _startpos__1_ in
         let _1 = 
-# 4653 "parsing/parser.mly"
+# 4642 "parsing/parser.mly"
     ( () )
-# 22998 "parsing/parser.ml"
+# 22987 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs_ in
         let _symbolstartpos = _startpos_cid_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3872 "parsing/parser.mly"
+# 3861 "parsing/parser.mly"
     (
       let vars, args, res = vars_args_res in
       let info = symbol_info _endpos in
       let loc = make_loc _sloc in
       cid, vars, args, res, attrs, loc, info
     )
-# 23011 "parsing/parser.ml"
+# 23000 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23085,9 +23074,9 @@ module Tables = struct
         let _1_inlined3 : unit = Obj.magic _1_inlined3 in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 23091 "parsing/parser.ml"
+# 23080 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -23100,9 +23089,9 @@ module Tables = struct
   Parsetree.type_declaration) = let attrs2 =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 23106 "parsing/parser.ml"
+# 23095 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -23111,24 +23100,24 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 23115 "parsing/parser.ml"
+# 23104 "parsing/parser.ml"
              in
             
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 23120 "parsing/parser.ml"
+# 23109 "parsing/parser.ml"
             
           in
           
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 23126 "parsing/parser.ml"
+# 23115 "parsing/parser.ml"
           
         in
         let kind_priv_manifest = 
-# 3777 "parsing/parser.mly"
+# 3766 "parsing/parser.mly"
       ( _2 )
-# 23132 "parsing/parser.ml"
+# 23121 "parsing/parser.ml"
          in
         let id =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
@@ -23136,29 +23125,29 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 23142 "parsing/parser.ml"
+# 23131 "parsing/parser.ml"
           
         in
         let flag = 
-# 4673 "parsing/parser.mly"
+# 4662 "parsing/parser.mly"
                 ( Recursive )
-# 23148 "parsing/parser.ml"
+# 23137 "parsing/parser.ml"
          in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 23155 "parsing/parser.ml"
+# 23144 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3711 "parsing/parser.mly"
+# 3700 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -23168,7 +23157,7 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:None ~jkind
     )
-# 23172 "parsing/parser.ml"
+# 23161 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23252,9 +23241,9 @@ module Tables = struct
         let _1_inlined4 : unit = Obj.magic _1_inlined4 in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined3 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 23258 "parsing/parser.ml"
+# 23247 "parsing/parser.ml"
         ) = Obj.magic _1_inlined3 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined2 : unit = Obj.magic _1_inlined2 in
@@ -23268,9 +23257,9 @@ module Tables = struct
   Parsetree.type_declaration) = let attrs2 =
           let _1 = _1_inlined5 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 23274 "parsing/parser.ml"
+# 23263 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined5_ in
@@ -23279,24 +23268,24 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 23283 "parsing/parser.ml"
+# 23272 "parsing/parser.ml"
              in
             
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 23288 "parsing/parser.ml"
+# 23277 "parsing/parser.ml"
             
           in
           
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 23294 "parsing/parser.ml"
+# 23283 "parsing/parser.ml"
           
         in
         let kind_priv_manifest = 
-# 3777 "parsing/parser.mly"
+# 3766 "parsing/parser.mly"
       ( _2 )
-# 23300 "parsing/parser.ml"
+# 23289 "parsing/parser.ml"
          in
         let id =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in
@@ -23304,9 +23293,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 23310 "parsing/parser.ml"
+# 23299 "parsing/parser.ml"
           
         in
         let flag =
@@ -23315,24 +23304,24 @@ module Tables = struct
           let _startpos = _startpos__1_ in
           let _loc = (_startpos, _endpos) in
           
-# 4675 "parsing/parser.mly"
+# 4664 "parsing/parser.mly"
                 ( not_expecting _loc "nonrec flag" )
-# 23321 "parsing/parser.ml"
+# 23310 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 23329 "parsing/parser.ml"
+# 23318 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3711 "parsing/parser.mly"
+# 3700 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -23342,7 +23331,7 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:None ~jkind
     )
-# 23346 "parsing/parser.ml"
+# 23335 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23413,9 +23402,9 @@ module Tables = struct
         let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 23419 "parsing/parser.ml"
+# 23408 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -23428,9 +23417,9 @@ module Tables = struct
   Parsetree.type_declaration) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 23434 "parsing/parser.ml"
+# 23423 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -23439,18 +23428,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 23443 "parsing/parser.ml"
+# 23432 "parsing/parser.ml"
              in
             
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 23448 "parsing/parser.ml"
+# 23437 "parsing/parser.ml"
             
           in
           
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 23454 "parsing/parser.ml"
+# 23443 "parsing/parser.ml"
           
         in
         let id =
@@ -23459,29 +23448,29 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 23465 "parsing/parser.ml"
+# 23454 "parsing/parser.ml"
           
         in
         let flag = 
-# 4669 "parsing/parser.mly"
+# 4658 "parsing/parser.mly"
                                                 ( Recursive )
-# 23471 "parsing/parser.ml"
+# 23460 "parsing/parser.ml"
          in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 23478 "parsing/parser.ml"
+# 23467 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3711 "parsing/parser.mly"
+# 3700 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -23491,7 +23480,7 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:None ~jkind
     )
-# 23495 "parsing/parser.ml"
+# 23484 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23568,9 +23557,9 @@ module Tables = struct
         let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined3 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 23574 "parsing/parser.ml"
+# 23563 "parsing/parser.ml"
         ) = Obj.magic _1_inlined3 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined2 : unit = Obj.magic _1_inlined2 in
@@ -23584,9 +23573,9 @@ module Tables = struct
   Parsetree.type_declaration) = let attrs2 =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 23590 "parsing/parser.ml"
+# 23579 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -23595,18 +23584,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 23599 "parsing/parser.ml"
+# 23588 "parsing/parser.ml"
              in
             
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 23604 "parsing/parser.ml"
+# 23593 "parsing/parser.ml"
             
           in
           
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 23610 "parsing/parser.ml"
+# 23599 "parsing/parser.ml"
           
         in
         let id =
@@ -23615,29 +23604,29 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 23621 "parsing/parser.ml"
+# 23610 "parsing/parser.ml"
           
         in
         let flag = 
-# 4670 "parsing/parser.mly"
+# 4659 "parsing/parser.mly"
                                                 ( Nonrecursive )
-# 23627 "parsing/parser.ml"
+# 23616 "parsing/parser.ml"
          in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 23634 "parsing/parser.ml"
+# 23623 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3711 "parsing/parser.mly"
+# 3700 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -23647,7 +23636,7 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:None ~jkind
     )
-# 23651 "parsing/parser.ml"
+# 23640 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23666,17 +23655,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 23672 "parsing/parser.ml"
+# 23661 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4502 "parsing/parser.mly"
+# 4491 "parsing/parser.mly"
                               ( _1 )
-# 23680 "parsing/parser.ml"
+# 23669 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23695,17 +23684,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 23701 "parsing/parser.ml"
+# 23690 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4503 "parsing/parser.mly"
+# 4492 "parsing/parser.mly"
                               ( _1 )
-# 23709 "parsing/parser.ml"
+# 23698 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23735,9 +23724,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.structure) = 
-# 1478 "parsing/parser.mly"
+# 1467 "parsing/parser.mly"
     ( _1 )
-# 23741 "parsing/parser.ml"
+# 23730 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23760,9 +23749,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (bool) = 
-# 1866 "parsing/parser.mly"
+# 1855 "parsing/parser.mly"
       ( false )
-# 23766 "parsing/parser.ml"
+# 23755 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23792,9 +23781,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (bool) = 
-# 1868 "parsing/parser.mly"
+# 1857 "parsing/parser.mly"
       ( true )
-# 23798 "parsing/parser.ml"
+# 23787 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23810,9 +23799,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (string) = 
-# 4552 "parsing/parser.mly"
+# 4541 "parsing/parser.mly"
   ( "" )
-# 23816 "parsing/parser.ml"
+# 23805 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23842,9 +23831,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (string) = 
-# 4553 "parsing/parser.mly"
+# 4542 "parsing/parser.mly"
               ( ";.." )
-# 23848 "parsing/parser.ml"
+# 23837 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23874,9 +23863,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.signature) = 
-# 1485 "parsing/parser.mly"
+# 1474 "parsing/parser.mly"
     ( _1 )
-# 23880 "parsing/parser.ml"
+# 23869 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23920,9 +23909,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Parsetree.extension) = 
-# 4866 "parsing/parser.mly"
+# 4855 "parsing/parser.mly"
                                                     ( (_2, _3) )
-# 23926 "parsing/parser.ml"
+# 23915 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23941,9 +23930,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1057 "parsing/parser.mly"
+# 1046 "parsing/parser.mly"
        (string * Location.t * string * Location.t * string option)
-# 23947 "parsing/parser.ml"
+# 23936 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -23952,9 +23941,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4868 "parsing/parser.mly"
+# 4857 "parsing/parser.mly"
     ( mk_quotedext ~loc:_sloc _1 )
-# 23958 "parsing/parser.ml"
+# 23947 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -23980,9 +23969,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3791 "parsing/parser.mly"
+# 3780 "parsing/parser.mly"
         ( mkloc (Jane_asttypes.jkind_of_string _1) (make_loc _sloc) )
-# 23986 "parsing/parser.ml"
+# 23975 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24012,9 +24001,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Jane_asttypes.jkind_annotation) = 
-# 3795 "parsing/parser.mly"
+# 3784 "parsing/parser.mly"
                          ( _2 )
-# 24018 "parsing/parser.ml"
+# 24007 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24060,9 +24049,9 @@ module Tables = struct
         let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in
         let _3 : unit = Obj.magic _3 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24066 "parsing/parser.ml"
+# 24055 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : (Asttypes.mutable_flag * Mode.t) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -24071,34 +24060,34 @@ module Tables = struct
         let _v : (Parsetree.label_declaration) = let _5 =
           let _1 = _1_inlined3 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 24077 "parsing/parser.ml"
+# 24066 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined3_ in
         let _4 =
           let _1 = _1_inlined2 in
           
-# 4105 "parsing/parser.mly"
+# 4094 "parsing/parser.mly"
     ( _1 )
-# 24086 "parsing/parser.ml"
+# 24075 "parsing/parser.ml"
           
         in
         let _2 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 24094 "parsing/parser.ml"
+# 24083 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 24102 "parsing/parser.ml"
+# 24091 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
@@ -24109,12 +24098,12 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3966 "parsing/parser.mly"
+# 3955 "parsing/parser.mly"
       ( let info = symbol_info _endpos in
         let mut, gbl = _1 in
         let typ = mktyp_with_modes gbl _4 in
         Type.field _2 typ ~mut ~attrs:_5 ~loc:(make_loc _sloc) ~info)
-# 24118 "parsing/parser.ml"
+# 24107 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24174,9 +24163,9 @@ module Tables = struct
         let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in
         let _3 : unit = Obj.magic _3 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24180 "parsing/parser.ml"
+# 24169 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : (Asttypes.mutable_flag * Mode.t) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -24185,43 +24174,43 @@ module Tables = struct
         let _v : (Parsetree.label_declaration) = let _7 =
           let _1 = _1_inlined4 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 24191 "parsing/parser.ml"
+# 24180 "parsing/parser.ml"
           
         in
         let _endpos__7_ = _endpos__1_inlined4_ in
         let _5 =
           let _1 = _1_inlined3 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 24200 "parsing/parser.ml"
+# 24189 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined3_ in
         let _4 =
           let _1 = _1_inlined2 in
           
-# 4105 "parsing/parser.mly"
+# 4094 "parsing/parser.mly"
     ( _1 )
-# 24209 "parsing/parser.ml"
+# 24198 "parsing/parser.ml"
           
         in
         let _2 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 24217 "parsing/parser.ml"
+# 24206 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 24225 "parsing/parser.ml"
+# 24214 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
@@ -24232,7 +24221,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3974 "parsing/parser.mly"
+# 3963 "parsing/parser.mly"
       ( let info =
           match rhs_info _endpos__5_ with
           | Some _ as info_before_semi -> info_before_semi
@@ -24241,7 +24230,7 @@ module Tables = struct
        let mut, gbl = _1 in
        let typ = mktyp_with_modes gbl _4 in
        Type.field _2 typ ~mut ~attrs:(_5 @ _7) ~loc:(make_loc _sloc) ~info)
-# 24245 "parsing/parser.ml"
+# 24234 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24264,9 +24253,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.label_declaration list) = 
-# 3960 "parsing/parser.mly"
+# 3949 "parsing/parser.mly"
                                                 ( [_1] )
-# 24270 "parsing/parser.ml"
+# 24259 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24289,9 +24278,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.label_declaration list) = 
-# 3961 "parsing/parser.mly"
+# 3950 "parsing/parser.mly"
                                                 ( [_1] )
-# 24295 "parsing/parser.ml"
+# 24284 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24321,9 +24310,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.label_declaration list) = 
-# 3962 "parsing/parser.mly"
+# 3951 "parsing/parser.mly"
                                                 ( _1 :: _2 )
-# 24327 "parsing/parser.ml"
+# 24316 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24342,9 +24331,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24348 "parsing/parser.ml"
+# 24337 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -24355,24 +24344,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 24361 "parsing/parser.ml"
+# 24350 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2647 "parsing/parser.mly"
+# 2636 "parsing/parser.mly"
       ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
-# 24370 "parsing/parser.ml"
+# 24359 "parsing/parser.ml"
           
         in
         
-# 2631 "parsing/parser.mly"
+# 2620 "parsing/parser.mly"
       ( x )
-# 24376 "parsing/parser.ml"
+# 24365 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24405,9 +24394,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24411 "parsing/parser.ml"
+# 24400 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -24418,18 +24407,18 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 24424 "parsing/parser.ml"
+# 24413 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2647 "parsing/parser.mly"
+# 2636 "parsing/parser.mly"
       ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
-# 24433 "parsing/parser.ml"
+# 24422 "parsing/parser.ml"
           
         in
         let _startpos_x_ = _startpos__1_ in
@@ -24437,11 +24426,11 @@ module Tables = struct
         let _symbolstartpos = _startpos_x_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2633 "parsing/parser.mly"
+# 2622 "parsing/parser.mly"
       ( let lab, pat = x in
         lab,
         mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) )
-# 24445 "parsing/parser.ml"
+# 24434 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24488,9 +24477,9 @@ module Tables = struct
         let xs : ((Asttypes.label Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = Obj.magic xs in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24494 "parsing/parser.ml"
+# 24483 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -24502,24 +24491,24 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 24506 "parsing/parser.ml"
+# 24495 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 24511 "parsing/parser.ml"
+# 24500 "parsing/parser.ml"
                 
               in
               
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 24517 "parsing/parser.ml"
+# 24506 "parsing/parser.ml"
               
             in
             
-# 2640 "parsing/parser.mly"
+# 2629 "parsing/parser.mly"
                   ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 24523 "parsing/parser.ml"
+# 24512 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in
@@ -24527,9 +24516,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 24533 "parsing/parser.ml"
+# 24522 "parsing/parser.ml"
           
         in
         let _endpos_cty_ = _endpos_inner_type_ in
@@ -24539,18 +24528,18 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 24545 "parsing/parser.ml"
+# 24534 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2647 "parsing/parser.mly"
+# 2636 "parsing/parser.mly"
       ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
-# 24554 "parsing/parser.ml"
+# 24543 "parsing/parser.ml"
           
         in
         let _startpos_x_ = _startpos__1_ in
@@ -24558,11 +24547,11 @@ module Tables = struct
         let _symbolstartpos = _startpos_x_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2641 "parsing/parser.mly"
+# 2630 "parsing/parser.mly"
       ( let lab, pat = x in
         lab,
         mkpat ~loc:_sloc (Ppat_constraint (pat, cty)) )
-# 24566 "parsing/parser.ml"
+# 24555 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24585,9 +24574,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4584 "parsing/parser.mly"
+# 4573 "parsing/parser.mly"
                                         ( _1 )
-# 24591 "parsing/parser.ml"
+# 24580 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24610,9 +24599,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.arg_label * Parsetree.expression) = 
-# 3020 "parsing/parser.mly"
+# 3009 "parsing/parser.mly"
       ( (Nolabel, _1) )
-# 24616 "parsing/parser.ml"
+# 24605 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24638,17 +24627,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.expression) = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 24644 "parsing/parser.ml"
+# 24633 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.arg_label * Parsetree.expression) = 
-# 3022 "parsing/parser.mly"
+# 3011 "parsing/parser.mly"
       ( (Labelled _1, _2) )
-# 24652 "parsing/parser.ml"
+# 24641 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24673,9 +24662,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24679 "parsing/parser.ml"
+# 24668 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -24683,10 +24672,10 @@ module Tables = struct
         let _endpos = _endpos_label_ in
         let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in
         
-# 3024 "parsing/parser.mly"
+# 3013 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         (Labelled label, mkexpvar ~loc label) )
-# 24690 "parsing/parser.ml"
+# 24679 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24731,9 +24720,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24737 "parsing/parser.ml"
+# 24726 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -24743,10 +24732,10 @@ module Tables = struct
         let _v : (Asttypes.arg_label * Parsetree.expression) = let _endpos = _endpos__5_ in
         let _loc_label_ = (_startpos_label_, _endpos_label_) in
         
-# 3027 "parsing/parser.mly"
+# 3016 "parsing/parser.mly"
       ( (Labelled label, mkexp_constraint ~loc:(_startpos__2_, _endpos)
                            (mkexpvar ~loc:_loc_label_ label) ty) )
-# 24750 "parsing/parser.ml"
+# 24739 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24771,9 +24760,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 24777 "parsing/parser.ml"
+# 24766 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -24781,10 +24770,10 @@ module Tables = struct
         let _endpos = _endpos_label_ in
         let _v : (Asttypes.arg_label * Parsetree.expression) = let _loc_label_ = (_startpos_label_, _endpos_label_) in
         
-# 3030 "parsing/parser.mly"
+# 3019 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         (Optional label, mkexpvar ~loc label) )
-# 24788 "parsing/parser.ml"
+# 24777 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24810,17 +24799,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.expression) = Obj.magic _2 in
         let _1 : (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
-# 24816 "parsing/parser.ml"
+# 24805 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.arg_label * Parsetree.expression) = 
-# 3033 "parsing/parser.mly"
+# 3022 "parsing/parser.mly"
       ( (Optional _1, _2) )
-# 24824 "parsing/parser.ml"
+# 24813 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24873,20 +24862,20 @@ module Tables = struct
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 =
           let _1 = _1_inlined1 in
           
-# 2627 "parsing/parser.mly"
+# 2616 "parsing/parser.mly"
     ( _1 )
-# 24879 "parsing/parser.ml"
+# 24868 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 24885 "parsing/parser.ml"
+# 24874 "parsing/parser.ml"
          in
         
-# 2590 "parsing/parser.mly"
+# 2579 "parsing/parser.mly"
       ( (Optional (fst _4), _5, mkpat_with_modes _3 (snd _4) ) )
-# 24890 "parsing/parser.ml"
+# 24879 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24946,9 +24935,9 @@ module Tables = struct
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 =
           let _1 = _1_inlined2 in
           
-# 2627 "parsing/parser.mly"
+# 2616 "parsing/parser.mly"
     ( _1 )
-# 24952 "parsing/parser.ml"
+# 24941 "parsing/parser.ml"
           
         in
         let _3 =
@@ -24958,21 +24947,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 24964 "parsing/parser.ml"
+# 24953 "parsing/parser.ml"
             
           in
           
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 24970 "parsing/parser.ml"
+# 24959 "parsing/parser.ml"
           
         in
         
-# 2590 "parsing/parser.mly"
+# 2579 "parsing/parser.mly"
       ( (Optional (fst _4), _5, mkpat_with_modes _3 (snd _4) ) )
-# 24976 "parsing/parser.ml"
+# 24965 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -24997,9 +24986,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 25003 "parsing/parser.ml"
+# 24992 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -25012,24 +25001,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 25018 "parsing/parser.ml"
+# 25007 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2647 "parsing/parser.mly"
+# 2636 "parsing/parser.mly"
       ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
-# 25027 "parsing/parser.ml"
+# 25016 "parsing/parser.ml"
           
         in
         
-# 2592 "parsing/parser.mly"
+# 2581 "parsing/parser.mly"
       ( (Optional (fst _2), None, snd _2) )
-# 25033 "parsing/parser.ml"
+# 25022 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25076,9 +25065,9 @@ module Tables = struct
         let _4 : (Parsetree.pattern) = Obj.magic _4 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
-# 25082 "parsing/parser.ml"
+# 25071 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -25086,20 +25075,20 @@ module Tables = struct
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 =
           let _1 = _1_inlined1 in
           
-# 2627 "parsing/parser.mly"
+# 2616 "parsing/parser.mly"
     ( _1 )
-# 25092 "parsing/parser.ml"
+# 25081 "parsing/parser.ml"
           
         in
         let _3 = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 25098 "parsing/parser.ml"
+# 25087 "parsing/parser.ml"
          in
         
-# 2594 "parsing/parser.mly"
+# 2583 "parsing/parser.mly"
       ( (Optional _1, _5, mkpat_with_modes _3 _4) )
-# 25103 "parsing/parser.ml"
+# 25092 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25153,9 +25142,9 @@ module Tables = struct
         let _1_inlined1 : (Mode.Const.t list) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
-# 25159 "parsing/parser.ml"
+# 25148 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -25163,9 +25152,9 @@ module Tables = struct
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _5 =
           let _1 = _1_inlined2 in
           
-# 2627 "parsing/parser.mly"
+# 2616 "parsing/parser.mly"
     ( _1 )
-# 25169 "parsing/parser.ml"
+# 25158 "parsing/parser.ml"
           
         in
         let _3 =
@@ -25175,21 +25164,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 25181 "parsing/parser.ml"
+# 25170 "parsing/parser.ml"
             
           in
           
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 25187 "parsing/parser.ml"
+# 25176 "parsing/parser.ml"
           
         in
         
-# 2594 "parsing/parser.mly"
+# 2583 "parsing/parser.mly"
       ( (Optional _1, _5, mkpat_with_modes _3 _4) )
-# 25193 "parsing/parser.ml"
+# 25182 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25215,17 +25204,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.pattern) = Obj.magic _2 in
         let _1 : (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
-# 25221 "parsing/parser.ml"
+# 25210 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = 
-# 2596 "parsing/parser.mly"
+# 2585 "parsing/parser.mly"
       ( (Optional _1, None, _2) )
-# 25229 "parsing/parser.ml"
+# 25218 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25269,15 +25258,15 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = let _3 = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 25275 "parsing/parser.ml"
+# 25264 "parsing/parser.ml"
          in
         
-# 2598 "parsing/parser.mly"
+# 2587 "parsing/parser.mly"
       ( (Labelled (fst _4), None,
          mkpat_with_modes _3 (snd _4) ) )
-# 25281 "parsing/parser.ml"
+# 25270 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25334,22 +25323,22 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 25340 "parsing/parser.ml"
+# 25329 "parsing/parser.ml"
             
           in
           
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 25346 "parsing/parser.ml"
+# 25335 "parsing/parser.ml"
           
         in
         
-# 2598 "parsing/parser.mly"
+# 2587 "parsing/parser.mly"
       ( (Labelled (fst _4), None,
          mkpat_with_modes _3 (snd _4) ) )
-# 25353 "parsing/parser.ml"
+# 25342 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25374,9 +25363,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 25380 "parsing/parser.ml"
+# 25369 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -25389,24 +25378,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 25395 "parsing/parser.ml"
+# 25384 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2647 "parsing/parser.mly"
+# 2636 "parsing/parser.mly"
       ( (_1.Location.txt, mkpat ~loc:_sloc (Ppat_var _1)) )
-# 25404 "parsing/parser.ml"
+# 25393 "parsing/parser.ml"
           
         in
         
-# 2601 "parsing/parser.mly"
+# 2590 "parsing/parser.mly"
       ( (Labelled (fst _2), None, snd _2) )
-# 25410 "parsing/parser.ml"
+# 25399 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25432,17 +25421,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.pattern) = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 25438 "parsing/parser.ml"
+# 25427 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = 
-# 2603 "parsing/parser.mly"
+# 2592 "parsing/parser.mly"
       ( (Labelled _1, None, _2) )
-# 25446 "parsing/parser.ml"
+# 25435 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25489,9 +25478,9 @@ module Tables = struct
         let _1_inlined1 : (Mode.Const.t list) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 25495 "parsing/parser.ml"
+# 25484 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -25502,15 +25491,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 25508 "parsing/parser.ml"
+# 25497 "parsing/parser.ml"
           
         in
         
-# 2605 "parsing/parser.mly"
+# 2594 "parsing/parser.mly"
       ( (Labelled _1, None, mkpat_with_modes _3 _4 ) )
-# 25514 "parsing/parser.ml"
+# 25503 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25533,9 +25522,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.arg_label * Parsetree.expression option * Parsetree.pattern) = 
-# 2607 "parsing/parser.mly"
+# 2596 "parsing/parser.mly"
       ( (Nolabel, None, _1) )
-# 25539 "parsing/parser.ml"
+# 25528 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25584,15 +25573,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 25590 "parsing/parser.ml"
+# 25579 "parsing/parser.ml"
           
         in
         
-# 2609 "parsing/parser.mly"
+# 2598 "parsing/parser.mly"
       ( (Nolabel, None, mkpat_with_modes _2 _3 ) )
-# 25596 "parsing/parser.ml"
+# 25585 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25660,9 +25649,9 @@ module Tables = struct
         let pat : (Parsetree.pattern) = Obj.magic pat in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 25666 "parsing/parser.ml"
+# 25655 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -25677,24 +25666,24 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 25681 "parsing/parser.ml"
+# 25670 "parsing/parser.ml"
                        in
                       
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 25686 "parsing/parser.ml"
+# 25675 "parsing/parser.ml"
                       
                     in
                     
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 25692 "parsing/parser.ml"
+# 25681 "parsing/parser.ml"
                     
                   in
                   
-# 2665 "parsing/parser.mly"
+# 2654 "parsing/parser.mly"
               ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 25698 "parsing/parser.ml"
+# 25687 "parsing/parser.ml"
                   
                 in
                 let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in
@@ -25702,15 +25691,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 25708 "parsing/parser.ml"
+# 25697 "parsing/parser.ml"
                 
               in
               
-# 2666 "parsing/parser.mly"
+# 2655 "parsing/parser.mly"
         ( Ppat_constraint(pat, cty) )
-# 25714 "parsing/parser.ml"
+# 25703 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in
@@ -25718,21 +25707,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 25724 "parsing/parser.ml"
+# 25713 "parsing/parser.ml"
             
           in
           
-# 2667 "parsing/parser.mly"
+# 2656 "parsing/parser.mly"
       ( _1 )
-# 25730 "parsing/parser.ml"
+# 25719 "parsing/parser.ml"
           
         in
         
-# 2611 "parsing/parser.mly"
+# 2600 "parsing/parser.mly"
       ( (Labelled _1, None, _3) )
-# 25736 "parsing/parser.ml"
+# 25725 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25807,9 +25796,9 @@ module Tables = struct
         let _1_inlined1 : (Mode.Const.t list) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 25813 "parsing/parser.ml"
+# 25802 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -25824,24 +25813,24 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 25828 "parsing/parser.ml"
+# 25817 "parsing/parser.ml"
                        in
                       
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 25833 "parsing/parser.ml"
+# 25822 "parsing/parser.ml"
                       
                     in
                     
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 25839 "parsing/parser.ml"
+# 25828 "parsing/parser.ml"
                     
                   in
                   
-# 2665 "parsing/parser.mly"
+# 2654 "parsing/parser.mly"
               ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 25845 "parsing/parser.ml"
+# 25834 "parsing/parser.ml"
                   
                 in
                 let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in
@@ -25849,15 +25838,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 25855 "parsing/parser.ml"
+# 25844 "parsing/parser.ml"
                 
               in
               
-# 2666 "parsing/parser.mly"
+# 2655 "parsing/parser.mly"
         ( Ppat_constraint(pat, cty) )
-# 25861 "parsing/parser.ml"
+# 25850 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in
@@ -25865,15 +25854,15 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 25871 "parsing/parser.ml"
+# 25860 "parsing/parser.ml"
             
           in
           
-# 2667 "parsing/parser.mly"
+# 2656 "parsing/parser.mly"
       ( _1 )
-# 25877 "parsing/parser.ml"
+# 25866 "parsing/parser.ml"
           
         in
         let _3 =
@@ -25882,15 +25871,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 25888 "parsing/parser.ml"
+# 25877 "parsing/parser.ml"
           
         in
         
-# 2613 "parsing/parser.mly"
+# 2602 "parsing/parser.mly"
       ( (Labelled _1, None, mkpat_with_modes _3 _4) )
-# 25894 "parsing/parser.ml"
+# 25883 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -25964,24 +25953,24 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 25968 "parsing/parser.ml"
+# 25957 "parsing/parser.ml"
                        in
                       
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 25973 "parsing/parser.ml"
+# 25962 "parsing/parser.ml"
                       
                     in
                     
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 25979 "parsing/parser.ml"
+# 25968 "parsing/parser.ml"
                     
                   in
                   
-# 2665 "parsing/parser.mly"
+# 2654 "parsing/parser.mly"
               ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 25985 "parsing/parser.ml"
+# 25974 "parsing/parser.ml"
                   
                 in
                 let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in
@@ -25989,15 +25978,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 25995 "parsing/parser.ml"
+# 25984 "parsing/parser.ml"
                 
               in
               
-# 2666 "parsing/parser.mly"
+# 2655 "parsing/parser.mly"
         ( Ppat_constraint(pat, cty) )
-# 26001 "parsing/parser.ml"
+# 25990 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in
@@ -26005,21 +25994,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 26011 "parsing/parser.ml"
+# 26000 "parsing/parser.ml"
             
           in
           
-# 2667 "parsing/parser.mly"
+# 2656 "parsing/parser.mly"
       ( _1 )
-# 26017 "parsing/parser.ml"
+# 26006 "parsing/parser.ml"
           
         in
         
-# 2615 "parsing/parser.mly"
+# 2604 "parsing/parser.mly"
       ( (Nolabel, None, _2) )
-# 26023 "parsing/parser.ml"
+# 26012 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26058,15 +26047,15 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 26064 "parsing/parser.ml"
+# 26053 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 26070 "parsing/parser.ml"
+# 26059 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26104,9 +26093,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26110 "parsing/parser.ml"
+# 26099 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in
@@ -26116,15 +26105,15 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26122 "parsing/parser.ml"
+# 26111 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 26128 "parsing/parser.ml"
+# 26117 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26161,9 +26150,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26167 "parsing/parser.ml"
+# 26156 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -26174,16 +26163,16 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 26181 "parsing/parser.ml"
+# 26170 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 26187 "parsing/parser.ml"
+# 26176 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26247,9 +26236,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26253 "parsing/parser.ml"
+# 26242 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -26261,17 +26250,17 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 26269 "parsing/parser.ml"
+# 26258 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 26275 "parsing/parser.ml"
+# 26264 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26310,20 +26299,20 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 26316 "parsing/parser.ml"
+# 26305 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 26322 "parsing/parser.ml"
+# 26311 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26327 "parsing/parser.ml"
+# 26316 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26361,9 +26350,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26367 "parsing/parser.ml"
+# 26356 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Parsetree.pattern) = Obj.magic _1 in
@@ -26373,20 +26362,20 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26379 "parsing/parser.ml"
+# 26368 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 26385 "parsing/parser.ml"
+# 26374 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26390 "parsing/parser.ml"
+# 26379 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26423,9 +26412,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26429 "parsing/parser.ml"
+# 26418 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -26436,21 +26425,21 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 26443 "parsing/parser.ml"
+# 26432 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 26449 "parsing/parser.ml"
+# 26438 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26454 "parsing/parser.ml"
+# 26443 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26514,9 +26503,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26520 "parsing/parser.ml"
+# 26509 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -26528,22 +26517,22 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 26536 "parsing/parser.ml"
+# 26525 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 26542 "parsing/parser.ml"
+# 26531 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26547 "parsing/parser.ml"
+# 26536 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26583,9 +26572,9 @@ module Tables = struct
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26589 "parsing/parser.ml"
+# 26578 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -26593,23 +26582,23 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 26599 "parsing/parser.ml"
+# 26588 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26607 "parsing/parser.ml"
+# 26596 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26613 "parsing/parser.ml"
+# 26602 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26653,16 +26642,16 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26659 "parsing/parser.ml"
+# 26648 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26666 "parsing/parser.ml"
+# 26655 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -26670,23 +26659,23 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined2, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26676 "parsing/parser.ml"
+# 26665 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26684 "parsing/parser.ml"
+# 26673 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26690 "parsing/parser.ml"
+# 26679 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26729,17 +26718,17 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26735 "parsing/parser.ml"
+# 26724 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26743 "parsing/parser.ml"
+# 26732 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -26747,24 +26736,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 26754 "parsing/parser.ml"
+# 26743 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26762 "parsing/parser.ml"
+# 26751 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26768 "parsing/parser.ml"
+# 26757 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26834,18 +26823,18 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26840 "parsing/parser.ml"
+# 26829 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined2 : unit = Obj.magic _2_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26849 "parsing/parser.ml"
+# 26838 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -26853,25 +26842,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 26861 "parsing/parser.ml"
+# 26850 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 26869 "parsing/parser.ml"
+# 26858 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26875 "parsing/parser.ml"
+# 26864 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26910,9 +26899,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26916 "parsing/parser.ml"
+# 26905 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -26921,24 +26910,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 26927 "parsing/parser.ml"
+# 26916 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 26936 "parsing/parser.ml"
+# 26925 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 26942 "parsing/parser.ml"
+# 26931 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -26982,15 +26971,15 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 26988 "parsing/parser.ml"
+# 26977 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 26994 "parsing/parser.ml"
+# 26983 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -26999,24 +26988,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 27005 "parsing/parser.ml"
+# 26994 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27014 "parsing/parser.ml"
+# 27003 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27020 "parsing/parser.ml"
+# 27009 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27059,16 +27048,16 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27065 "parsing/parser.ml"
+# 27054 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27072 "parsing/parser.ml"
+# 27061 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -27078,25 +27067,25 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27085 "parsing/parser.ml"
+# 27074 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27094 "parsing/parser.ml"
+# 27083 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27100 "parsing/parser.ml"
+# 27089 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27166,17 +27155,17 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27172 "parsing/parser.ml"
+# 27161 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27180 "parsing/parser.ml"
+# 27169 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -27186,26 +27175,26 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27194 "parsing/parser.ml"
+# 27183 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27203 "parsing/parser.ml"
+# 27192 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27209 "parsing/parser.ml"
+# 27198 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27271,9 +27260,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27277 "parsing/parser.ml"
+# 27266 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -27283,25 +27272,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 27289 "parsing/parser.ml"
+# 27278 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27299 "parsing/parser.ml"
+# 27288 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27305 "parsing/parser.ml"
+# 27294 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27369,18 +27358,18 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 27375 "parsing/parser.ml"
+# 27364 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _6 : unit = Obj.magic _6 in
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27384 "parsing/parser.ml"
+# 27373 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -27390,25 +27379,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined2, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 27396 "parsing/parser.ml"
+# 27385 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27406 "parsing/parser.ml"
+# 27395 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27412 "parsing/parser.ml"
+# 27401 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27475,9 +27464,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27481 "parsing/parser.ml"
+# 27470 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -27485,9 +27474,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27491 "parsing/parser.ml"
+# 27480 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -27498,26 +27487,26 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27505 "parsing/parser.ml"
+# 27494 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27515 "parsing/parser.ml"
+# 27504 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27521 "parsing/parser.ml"
+# 27510 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27611,9 +27600,9 @@ module Tables = struct
         let cty_inlined1 : (Parsetree.core_type) = Obj.magic cty_inlined1 in
         let _4_inlined1 : unit = Obj.magic _4_inlined1 in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27617 "parsing/parser.ml"
+# 27606 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _2_inlined2 : unit = Obj.magic _2_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -27622,9 +27611,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27628 "parsing/parser.ml"
+# 27617 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -27635,27 +27624,27 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, cty, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, cty_inlined1, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27643 "parsing/parser.ml"
+# 27632 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27653 "parsing/parser.ml"
+# 27642 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 27659 "parsing/parser.ml"
+# 27648 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27693,9 +27682,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : ((string option * Parsetree.pattern) list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         
-# 3486 "parsing/parser.mly"
+# 3475 "parsing/parser.mly"
       ( expecting _loc__3_ "pattern" )
-# 27699 "parsing/parser.ml"
+# 27688 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27734,15 +27723,15 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 27740 "parsing/parser.ml"
+# 27729 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 27746 "parsing/parser.ml"
+# 27735 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27780,9 +27769,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 27786 "parsing/parser.ml"
+# 27775 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : ((string option * Parsetree.pattern) list) = Obj.magic _1 in
@@ -27792,15 +27781,15 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 27798 "parsing/parser.ml"
+# 27787 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 27804 "parsing/parser.ml"
+# 27793 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27837,9 +27826,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27843 "parsing/parser.ml"
+# 27832 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -27850,16 +27839,16 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 27857 "parsing/parser.ml"
+# 27846 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 27863 "parsing/parser.ml"
+# 27852 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27923,9 +27912,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 27929 "parsing/parser.ml"
+# 27918 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -27937,17 +27926,17 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 27945 "parsing/parser.ml"
+# 27934 "parsing/parser.ml"
           
         in
         
-# 3482 "parsing/parser.mly"
+# 3471 "parsing/parser.mly"
       ( _3 :: _1 )
-# 27951 "parsing/parser.ml"
+# 27940 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -27986,20 +27975,20 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 27992 "parsing/parser.ml"
+# 27981 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 27998 "parsing/parser.ml"
+# 27987 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28003 "parsing/parser.ml"
+# 27992 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28037,9 +28026,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28043 "parsing/parser.ml"
+# 28032 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Parsetree.pattern) = Obj.magic _1 in
@@ -28049,20 +28038,20 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28055 "parsing/parser.ml"
+# 28044 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 28061 "parsing/parser.ml"
+# 28050 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28066 "parsing/parser.ml"
+# 28055 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28099,9 +28088,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28105 "parsing/parser.ml"
+# 28094 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -28112,21 +28101,21 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28119 "parsing/parser.ml"
+# 28108 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 28125 "parsing/parser.ml"
+# 28114 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28130 "parsing/parser.ml"
+# 28119 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28190,9 +28179,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28196 "parsing/parser.ml"
+# 28185 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -28204,22 +28193,22 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 28212 "parsing/parser.ml"
+# 28201 "parsing/parser.ml"
           
         in
         let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 28218 "parsing/parser.ml"
+# 28207 "parsing/parser.ml"
          in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28223 "parsing/parser.ml"
+# 28212 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28259,9 +28248,9 @@ module Tables = struct
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28265 "parsing/parser.ml"
+# 28254 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -28269,23 +28258,23 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 28275 "parsing/parser.ml"
+# 28264 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28283 "parsing/parser.ml"
+# 28272 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28289 "parsing/parser.ml"
+# 28278 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28329,16 +28318,16 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28335 "parsing/parser.ml"
+# 28324 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28342 "parsing/parser.ml"
+# 28331 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -28346,23 +28335,23 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined2, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28352 "parsing/parser.ml"
+# 28341 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28360 "parsing/parser.ml"
+# 28349 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28366 "parsing/parser.ml"
+# 28355 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28405,17 +28394,17 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28411 "parsing/parser.ml"
+# 28400 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28419 "parsing/parser.ml"
+# 28408 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -28423,24 +28412,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28430 "parsing/parser.ml"
+# 28419 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28438 "parsing/parser.ml"
+# 28427 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28444 "parsing/parser.ml"
+# 28433 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28510,18 +28499,18 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28516 "parsing/parser.ml"
+# 28505 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined2 : unit = Obj.magic _2_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28525 "parsing/parser.ml"
+# 28514 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -28529,25 +28518,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 28537 "parsing/parser.ml"
+# 28526 "parsing/parser.ml"
           
         in
         let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28545 "parsing/parser.ml"
+# 28534 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28551 "parsing/parser.ml"
+# 28540 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28586,9 +28575,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.pattern) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28592 "parsing/parser.ml"
+# 28581 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -28597,24 +28586,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 28603 "parsing/parser.ml"
+# 28592 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28612 "parsing/parser.ml"
+# 28601 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28618 "parsing/parser.ml"
+# 28607 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28658,15 +28647,15 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 28664 "parsing/parser.ml"
+# 28653 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28670 "parsing/parser.ml"
+# 28659 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -28675,24 +28664,24 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 28681 "parsing/parser.ml"
+# 28670 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28690 "parsing/parser.ml"
+# 28679 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28696 "parsing/parser.ml"
+# 28685 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28735,16 +28724,16 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28741 "parsing/parser.ml"
+# 28730 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28748 "parsing/parser.ml"
+# 28737 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -28754,25 +28743,25 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28761 "parsing/parser.ml"
+# 28750 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28770 "parsing/parser.ml"
+# 28759 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28776 "parsing/parser.ml"
+# 28765 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28842,17 +28831,17 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28848 "parsing/parser.ml"
+# 28837 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28856 "parsing/parser.ml"
+# 28845 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -28862,26 +28851,26 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 28870 "parsing/parser.ml"
+# 28859 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 28879 "parsing/parser.ml"
+# 28868 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28885 "parsing/parser.ml"
+# 28874 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -28947,9 +28936,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 28953 "parsing/parser.ml"
+# 28942 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -28959,25 +28948,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let _1 = _1_inlined1 in
           
-# 3457 "parsing/parser.mly"
+# 3446 "parsing/parser.mly"
          ( None, _1 )
-# 28965 "parsing/parser.ml"
+# 28954 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 28975 "parsing/parser.ml"
+# 28964 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 28981 "parsing/parser.ml"
+# 28970 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29045,18 +29034,18 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined2 : (Parsetree.pattern) = Obj.magic _2_inlined2 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 29051 "parsing/parser.ml"
+# 29040 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _6 : unit = Obj.magic _6 in
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 29060 "parsing/parser.ml"
+# 29049 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -29066,25 +29055,25 @@ module Tables = struct
         let _v : ((string option * Parsetree.pattern) list) = let _3 =
           let (_2, _1) = (_2_inlined2, _1_inlined1) in
           
-# 3459 "parsing/parser.mly"
+# 3448 "parsing/parser.mly"
       ( Some _1, _2 )
-# 29072 "parsing/parser.ml"
+# 29061 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 29082 "parsing/parser.ml"
+# 29071 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 29088 "parsing/parser.ml"
+# 29077 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29151,9 +29140,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 29157 "parsing/parser.ml"
+# 29146 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -29161,9 +29150,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 29167 "parsing/parser.ml"
+# 29156 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -29174,26 +29163,26 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3461 "parsing/parser.mly"
+# 3450 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 29181 "parsing/parser.ml"
+# 29170 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 29191 "parsing/parser.ml"
+# 29180 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 29197 "parsing/parser.ml"
+# 29186 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29287,9 +29276,9 @@ module Tables = struct
         let cty_inlined1 : (Parsetree.core_type) = Obj.magic cty_inlined1 in
         let _4_inlined1 : unit = Obj.magic _4_inlined1 in
         let label_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 29293 "parsing/parser.ml"
+# 29282 "parsing/parser.ml"
         ) = Obj.magic label_inlined1 in
         let _2_inlined2 : unit = Obj.magic _2_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -29298,9 +29287,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 29304 "parsing/parser.ml"
+# 29293 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -29311,27 +29300,27 @@ module Tables = struct
           let (_endpos_label_, _startpos_label_, cty, label) = (_endpos_label_inlined1_, _startpos_label_inlined1_, cty_inlined1, label_inlined1) in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3464 "parsing/parser.mly"
+# 3453 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 29319 "parsing/parser.ml"
+# 29308 "parsing/parser.ml"
           
         in
         let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 29329 "parsing/parser.ml"
+# 29318 "parsing/parser.ml"
           
         in
         
-# 3484 "parsing/parser.mly"
+# 3473 "parsing/parser.mly"
       ( [ _3; _1 ] )
-# 29335 "parsing/parser.ml"
+# 29324 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29369,9 +29358,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : ((string option * Parsetree.pattern) list) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         
-# 3486 "parsing/parser.mly"
+# 3475 "parsing/parser.mly"
       ( expecting _loc__3_ "pattern" )
-# 29375 "parsing/parser.ml"
+# 29364 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29397,9 +29386,9 @@ module Tables = struct
         let _v : ((Parsetree.pattern * Parsetree.expression *
    Parsetree.value_constraint option * bool) *
   Parsetree.attribute list) = 
-# 3105 "parsing/parser.mly"
+# 3094 "parsing/parser.mly"
       ( let p,e,c,attrs = _1 in (p,e,c,false), attrs )
-# 29403 "parsing/parser.ml"
+# 29392 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29427,9 +29416,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _loc = (_startpos, _endpos) in
         
-# 3108 "parsing/parser.mly"
+# 3097 "parsing/parser.mly"
       ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1, None, true), [] )
-# 29433 "parsing/parser.ml"
+# 29422 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29462,9 +29451,9 @@ module Tables = struct
   Parsetree.value_constraint option * Parsetree.attribute list) = let _2 =
           let _1 = _1_inlined1 in
           
-# 3184 "parsing/parser.mly"
+# 3173 "parsing/parser.mly"
     (_1 Mode.empty)
-# 29468 "parsing/parser.ml"
+# 29457 "parsing/parser.ml"
           
         in
         let _1 =
@@ -29472,15 +29461,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 29478 "parsing/parser.ml"
+# 29467 "parsing/parser.ml"
           
         in
         
-# 3044 "parsing/parser.mly"
+# 3033 "parsing/parser.mly"
       ( (_1, _2, None, []) )
-# 29484 "parsing/parser.ml"
+# 29473 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29529,16 +29518,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 29535 "parsing/parser.ml"
+# 29524 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_ in
         let modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 29542 "parsing/parser.ml"
+# 29531 "parsing/parser.ml"
          in
         let (_endpos_modes_, _startpos_modes_) = (_endpos__0_, _endpos__0_) in
         let _endpos = _endpos__5_ in
@@ -29548,7 +29537,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3048 "parsing/parser.mly"
+# 3037 "parsing/parser.mly"
       ( let v = _2 in (* PR#7344 *)
         let t =
           match _3 with
@@ -29560,7 +29549,7 @@ module Tables = struct
         let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in
         (v, exp, Some t, let_binding_mode_attrs modes)
       )
-# 29564 "parsing/parser.ml"
+# 29553 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29617,9 +29606,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 29623 "parsing/parser.ml"
+# 29612 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
@@ -29629,15 +29618,15 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 29635 "parsing/parser.ml"
+# 29624 "parsing/parser.ml"
             
           in
           
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 29641 "parsing/parser.ml"
+# 29630 "parsing/parser.ml"
           
         in
         let (_endpos_modes_, _startpos_modes_) = (_endpos__1_, _startpos__1_) in
@@ -29648,7 +29637,7 @@ module Tables = struct
           _startpos__2_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3048 "parsing/parser.mly"
+# 3037 "parsing/parser.mly"
       ( let v = _2 in (* PR#7344 *)
         let t =
           match _3 with
@@ -29660,7 +29649,7 @@ module Tables = struct
         let exp = mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost _5 in
         (v, exp, Some t, let_binding_mode_attrs modes)
       )
-# 29664 "parsing/parser.ml"
+# 29653 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29732,24 +29721,24 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 29736 "parsing/parser.ml"
+# 29725 "parsing/parser.ml"
                in
               
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 29741 "parsing/parser.ml"
+# 29730 "parsing/parser.ml"
               
             in
             
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 29747 "parsing/parser.ml"
+# 29736 "parsing/parser.ml"
             
           in
           
-# 4089 "parsing/parser.mly"
+# 4078 "parsing/parser.mly"
     ( (_1, _3) )
-# 29753 "parsing/parser.ml"
+# 29742 "parsing/parser.ml"
           
         in
         let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in
@@ -29758,16 +29747,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 29764 "parsing/parser.ml"
+# 29753 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_ in
         let modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 29771 "parsing/parser.ml"
+# 29760 "parsing/parser.ml"
          in
         let (_endpos_modes_, _startpos_modes_) = (_endpos__0_, _endpos__0_) in
         let _endpos = _endpos__6_ in
@@ -29778,7 +29767,7 @@ module Tables = struct
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3060 "parsing/parser.mly"
+# 3049 "parsing/parser.mly"
       ( let bound_vars, inner_type = _4 in
         let ltyp = Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } in
         let typ_loc = Location.ghostify (make_loc _loc__4_) in
@@ -29790,7 +29779,7 @@ module Tables = struct
         (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }),
          let_binding_mode_attrs modes)
       )
-# 29794 "parsing/parser.ml"
+# 29783 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -29869,24 +29858,24 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 29873 "parsing/parser.ml"
+# 29862 "parsing/parser.ml"
                in
               
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 29878 "parsing/parser.ml"
+# 29867 "parsing/parser.ml"
               
             in
             
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 29884 "parsing/parser.ml"
+# 29873 "parsing/parser.ml"
             
           in
           
-# 4089 "parsing/parser.mly"
+# 4078 "parsing/parser.mly"
     ( (_1, _3) )
-# 29890 "parsing/parser.ml"
+# 29879 "parsing/parser.ml"
           
         in
         let (_endpos__4_, _startpos__4_) = (_endpos__3_inlined1_, _startpos_xs_) in
@@ -29896,9 +29885,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 29902 "parsing/parser.ml"
+# 29891 "parsing/parser.ml"
           
         in
         let _startpos__2_ = _startpos__1_inlined1_ in
@@ -29908,15 +29897,15 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 29914 "parsing/parser.ml"
+# 29903 "parsing/parser.ml"
             
           in
           
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 29920 "parsing/parser.ml"
+# 29909 "parsing/parser.ml"
           
         in
         let (_endpos_modes_, _startpos_modes_) = (_endpos__1_, _startpos__1_) in
@@ -29928,7 +29917,7 @@ module Tables = struct
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3060 "parsing/parser.mly"
+# 3049 "parsing/parser.mly"
       ( let bound_vars, inner_type = _4 in
         let ltyp = Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } in
         let typ_loc = Location.ghostify (make_loc _loc__4_) in
@@ -29940,7 +29929,7 @@ module Tables = struct
         (_2, exp, Some (Pvc_constraint { locally_abstract_univars = []; typ }),
          let_binding_mode_attrs modes)
       )
-# 29944 "parsing/parser.ml"
+# 29933 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30017,9 +30006,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 30023 "parsing/parser.ml"
+# 30012 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__8_ in
@@ -30027,14 +30016,14 @@ module Tables = struct
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3088 "parsing/parser.mly"
+# 3077 "parsing/parser.mly"
       ( let exp, poly =
           wrap_type_annotation ~loc:_sloc ~typloc:_loc__6_ _4 _6 _8
         in
         let loc = (_startpos__1_, _endpos__6_) in
         (ghpat ~loc (Ppat_constraint(_1, poly)), exp, None, [])
        )
-# 30038 "parsing/parser.ml"
+# 30027 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30072,9 +30061,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.pattern * Parsetree.expression *
   Parsetree.value_constraint option * Parsetree.attribute list) = 
-# 3095 "parsing/parser.mly"
+# 3084 "parsing/parser.mly"
       ( (_1, _3, None, []) )
-# 30078 "parsing/parser.ml"
+# 30067 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30126,9 +30115,9 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.pattern * Parsetree.expression *
   Parsetree.value_constraint option * Parsetree.attribute list) = 
-# 3097 "parsing/parser.mly"
+# 3086 "parsing/parser.mly"
       ( (_1, _5, Some(Pvc_constraint { locally_abstract_univars=[]; typ=_3 }), []) )
-# 30132 "parsing/parser.ml"
+# 30121 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30171,9 +30160,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 30177 "parsing/parser.ml"
+# 30166 "parsing/parser.ml"
           
         in
         let modes =
@@ -30181,9 +30170,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 30187 "parsing/parser.ml"
+# 30176 "parsing/parser.ml"
           
         in
         let _startpos_modes_ = _startpos__1_ in
@@ -30191,11 +30180,11 @@ module Tables = struct
         let _symbolstartpos = _startpos_modes_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3099 "parsing/parser.mly"
+# 3088 "parsing/parser.mly"
       ( let modes_ghost = Mode.ghostify modes in
         (_2, mkexp_with_modes ~ghost:true ~loc:_sloc modes_ghost (_3 modes_ghost), None,
          let_binding_mode_attrs modes) )
-# 30199 "parsing/parser.ml"
+# 30188 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30258,37 +30247,37 @@ module Tables = struct
           let attrs3 =
             let _1 = _1_inlined2 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 30264 "parsing/parser.ml"
+# 30253 "parsing/parser.ml"
             
           in
           let _endpos_attrs3_ = _endpos__1_inlined2_ in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 30273 "parsing/parser.ml"
+# 30262 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs3_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3128 "parsing/parser.mly"
+# 3117 "parsing/parser.mly"
     (
       let body, attrs2 = body_with_attrs2 in
       let attrs = attrs1 @ attrs2 @ attrs3 in
       mklbs ext rec_flag (mklb ~loc:_sloc true body attrs)
     )
-# 30286 "parsing/parser.ml"
+# 30275 "parsing/parser.ml"
           
         in
         
-# 3118 "parsing/parser.mly"
+# 3107 "parsing/parser.mly"
                                                 ( _1 )
-# 30292 "parsing/parser.ml"
+# 30281 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30318,9 +30307,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (let_bindings) = 
-# 3119 "parsing/parser.mly"
+# 3108 "parsing/parser.mly"
                                                 ( addlb _1 _2 )
-# 30324 "parsing/parser.ml"
+# 30313 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30376,42 +30365,42 @@ module Tables = struct
           let attrs3 =
             let _1 = _1_inlined2 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 30382 "parsing/parser.ml"
+# 30371 "parsing/parser.ml"
             
           in
           let _endpos_attrs3_ = _endpos__1_inlined2_ in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 30391 "parsing/parser.ml"
+# 30380 "parsing/parser.ml"
             
           in
           let ext = 
-# 4852 "parsing/parser.mly"
+# 4841 "parsing/parser.mly"
                     ( None )
-# 30397 "parsing/parser.ml"
+# 30386 "parsing/parser.ml"
            in
           let _endpos = _endpos_attrs3_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3128 "parsing/parser.mly"
+# 3117 "parsing/parser.mly"
     (
       let body, attrs2 = body_with_attrs2 in
       let attrs = attrs1 @ attrs2 @ attrs3 in
       mklbs ext rec_flag (mklb ~loc:_sloc true body attrs)
     )
-# 30409 "parsing/parser.ml"
+# 30398 "parsing/parser.ml"
           
         in
         
-# 3118 "parsing/parser.mly"
+# 3107 "parsing/parser.mly"
                                                 ( _1 )
-# 30415 "parsing/parser.ml"
+# 30404 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30481,18 +30470,18 @@ module Tables = struct
           let attrs3 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 30487 "parsing/parser.ml"
+# 30476 "parsing/parser.ml"
             
           in
           let _endpos_attrs3_ = _endpos__1_inlined3_ in
           let attrs1 =
             let _1 = _1_inlined2 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 30496 "parsing/parser.ml"
+# 30485 "parsing/parser.ml"
             
           in
           let ext =
@@ -30501,28 +30490,28 @@ module Tables = struct
             let _startpos = _startpos__1_ in
             let _loc = (_startpos, _endpos) in
             
-# 4854 "parsing/parser.mly"
+# 4843 "parsing/parser.mly"
                     ( not_expecting _loc "extension" )
-# 30507 "parsing/parser.ml"
+# 30496 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs3_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3128 "parsing/parser.mly"
+# 3117 "parsing/parser.mly"
     (
       let body, attrs2 = body_with_attrs2 in
       let attrs = attrs1 @ attrs2 @ attrs3 in
       mklbs ext rec_flag (mklb ~loc:_sloc true body attrs)
     )
-# 30520 "parsing/parser.ml"
+# 30509 "parsing/parser.ml"
           
         in
         
-# 3118 "parsing/parser.mly"
+# 3107 "parsing/parser.mly"
                                                 ( _1 )
-# 30526 "parsing/parser.ml"
+# 30515 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30552,9 +30541,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (let_bindings) = 
-# 3119 "parsing/parser.mly"
+# 3108 "parsing/parser.mly"
                                                 ( addlb _1 _2 )
-# 30558 "parsing/parser.ml"
+# 30547 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30577,9 +30566,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = 
-# 2651 "parsing/parser.mly"
+# 2640 "parsing/parser.mly"
       ( _1 )
-# 30583 "parsing/parser.ml"
+# 30572 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30617,24 +30606,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 2653 "parsing/parser.mly"
+# 2642 "parsing/parser.mly"
       ( Ppat_constraint(_1, _3) )
-# 30623 "parsing/parser.ml"
+# 30612 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 30632 "parsing/parser.ml"
+# 30621 "parsing/parser.ml"
           
         in
         
-# 2654 "parsing/parser.mly"
+# 2643 "parsing/parser.mly"
       ( _1 )
-# 30638 "parsing/parser.ml"
+# 30627 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30694,24 +30683,24 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 30698 "parsing/parser.ml"
+# 30687 "parsing/parser.ml"
                        in
                       
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 30703 "parsing/parser.ml"
+# 30692 "parsing/parser.ml"
                       
                     in
                     
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 30709 "parsing/parser.ml"
+# 30698 "parsing/parser.ml"
                     
                   in
                   
-# 2665 "parsing/parser.mly"
+# 2654 "parsing/parser.mly"
               ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 30715 "parsing/parser.ml"
+# 30704 "parsing/parser.ml"
                   
                 in
                 let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_xs_) in
@@ -30719,15 +30708,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 30725 "parsing/parser.ml"
+# 30714 "parsing/parser.ml"
                 
               in
               
-# 2666 "parsing/parser.mly"
+# 2655 "parsing/parser.mly"
         ( Ppat_constraint(pat, cty) )
-# 30731 "parsing/parser.ml"
+# 30720 "parsing/parser.ml"
               
             in
             let (_endpos__1_, _startpos__1_) = (_endpos_inner_type_, _startpos_pat_) in
@@ -30735,21 +30724,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 30741 "parsing/parser.ml"
+# 30730 "parsing/parser.ml"
             
           in
           
-# 2667 "parsing/parser.mly"
+# 2656 "parsing/parser.mly"
       ( _1 )
-# 30747 "parsing/parser.ml"
+# 30736 "parsing/parser.ml"
           
         in
         
-# 2656 "parsing/parser.mly"
+# 2645 "parsing/parser.mly"
       ( _1 )
-# 30753 "parsing/parser.ml"
+# 30742 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30781,9 +30770,9 @@ module Tables = struct
         let _v : (Parsetree.pattern * Parsetree.expression) = let exp =
           let _1 = _1_inlined1 in
           
-# 3184 "parsing/parser.mly"
+# 3173 "parsing/parser.mly"
     (_1 Mode.empty)
-# 30787 "parsing/parser.ml"
+# 30776 "parsing/parser.ml"
           
         in
         let pat =
@@ -30791,15 +30780,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3040 "parsing/parser.mly"
+# 3029 "parsing/parser.mly"
               ( mkpatvar ~loc:_sloc _1 )
-# 30797 "parsing/parser.ml"
+# 30786 "parsing/parser.ml"
           
         in
         
-# 3147 "parsing/parser.mly"
+# 3136 "parsing/parser.mly"
       ( (pat, exp) )
-# 30803 "parsing/parser.ml"
+# 30792 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30825,9 +30814,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _loc = (_startpos, _endpos) in
         
-# 3150 "parsing/parser.mly"
+# 3139 "parsing/parser.mly"
       ( (mkpatvar ~loc:_loc _1, mkexpvar ~loc:_loc _1) )
-# 30831 "parsing/parser.ml"
+# 30820 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30878,10 +30867,10 @@ module Tables = struct
         let _startpos = _startpos_pat_ in
         let _endpos = _endpos_exp_ in
         let _v : (Parsetree.pattern * Parsetree.expression) = 
-# 3152 "parsing/parser.mly"
+# 3141 "parsing/parser.mly"
       ( let loc = (_startpos_pat_, _endpos_typ_) in
         (ghpat ~loc (Ppat_constraint(pat, typ)), exp) )
-# 30885 "parsing/parser.ml"
+# 30874 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30918,9 +30907,9 @@ module Tables = struct
         let _startpos = _startpos_pat_ in
         let _endpos = _endpos_exp_ in
         let _v : (Parsetree.pattern * Parsetree.expression) = 
-# 3155 "parsing/parser.mly"
+# 3144 "parsing/parser.mly"
       ( (pat, exp) )
-# 30924 "parsing/parser.ml"
+# 30913 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30943,10 +30932,10 @@ module Tables = struct
         let _startpos = _startpos_body_ in
         let _endpos = _endpos_body_ in
         let _v : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = 
-# 3159 "parsing/parser.mly"
+# 3148 "parsing/parser.mly"
       ( let let_pat, let_exp = body in
         let_pat, let_exp, [] )
-# 30950 "parsing/parser.ml"
+# 30939 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -30978,9 +30967,9 @@ module Tables = struct
         } = _menhir_stack in
         let body : (Parsetree.pattern * Parsetree.expression) = Obj.magic body in
         let _1 : (
-# 993 "parsing/parser.mly"
+# 982 "parsing/parser.mly"
        (string)
-# 30984 "parsing/parser.ml"
+# 30973 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let bindings : (Parsetree.pattern * Parsetree.expression * Parsetree.binding_op list) = Obj.magic bindings in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -30991,22 +30980,22 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 30997 "parsing/parser.ml"
+# 30986 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_body_ in
         let _symbolstartpos = _startpos_bindings_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3162 "parsing/parser.mly"
+# 3151 "parsing/parser.mly"
       ( let let_pat, let_exp, rev_ands = bindings in
         let pbop_pat, pbop_exp = body in
         let pbop_loc = make_loc _sloc in
         let and_ = {pbop_op; pbop_pat; pbop_exp; pbop_loc} in
         let_pat, let_exp, and_ :: rev_ands )
-# 31010 "parsing/parser.ml"
+# 30999 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31024,7 +31013,7 @@ module Tables = struct
         let _v : (Parsetree.class_declaration list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31028 "parsing/parser.ml"
+# 31017 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31088,9 +31077,9 @@ module Tables = struct
         let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in
         let body : (Parsetree.class_expr) = Obj.magic body in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 31094 "parsing/parser.ml"
+# 31083 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -31103,9 +31092,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31109 "parsing/parser.ml"
+# 31098 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31115,24 +31104,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31121 "parsing/parser.ml"
+# 31110 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31129 "parsing/parser.ml"
+# 31118 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2214 "parsing/parser.mly"
+# 2203 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
@@ -31140,13 +31129,13 @@ module Tables = struct
     let text = symbol_text _symbolstartpos in
     Ci.mk id body ~virt ~params ~attrs ~loc ~text ~docs
   )
-# 31144 "parsing/parser.ml"
+# 31133 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31150 "parsing/parser.ml"
+# 31139 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31164,7 +31153,7 @@ module Tables = struct
         let _v : (Parsetree.class_description list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31168 "parsing/parser.ml"
+# 31157 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31235,9 +31224,9 @@ module Tables = struct
         let cty : (Parsetree.class_type) = Obj.magic cty in
         let _6 : unit = Obj.magic _6 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 31241 "parsing/parser.ml"
+# 31230 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -31250,9 +31239,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31256 "parsing/parser.ml"
+# 31245 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31262,24 +31251,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31268 "parsing/parser.ml"
+# 31257 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31276 "parsing/parser.ml"
+# 31265 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2505 "parsing/parser.mly"
+# 2494 "parsing/parser.mly"
     (
       let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
@@ -31287,13 +31276,13 @@ module Tables = struct
       let text = symbol_text _symbolstartpos in
       Ci.mk id cty ~virt ~params ~attrs ~loc ~text ~docs
     )
-# 31291 "parsing/parser.ml"
+# 31280 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31297 "parsing/parser.ml"
+# 31286 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31311,7 +31300,7 @@ module Tables = struct
         let _v : (Parsetree.class_type_declaration list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31315 "parsing/parser.ml"
+# 31304 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31382,9 +31371,9 @@ module Tables = struct
         let csig : (Parsetree.class_type) = Obj.magic csig in
         let _6 : unit = Obj.magic _6 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 31388 "parsing/parser.ml"
+# 31377 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -31397,9 +31386,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31403 "parsing/parser.ml"
+# 31392 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31409,24 +31398,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31415 "parsing/parser.ml"
+# 31404 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31423 "parsing/parser.ml"
+# 31412 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2544 "parsing/parser.mly"
+# 2533 "parsing/parser.mly"
     (
       let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
@@ -31434,13 +31423,13 @@ module Tables = struct
       let text = symbol_text _symbolstartpos in
       Ci.mk id csig ~virt ~params ~attrs ~loc ~text ~docs
     )
-# 31438 "parsing/parser.ml"
+# 31427 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31444 "parsing/parser.ml"
+# 31433 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31458,7 +31447,7 @@ module Tables = struct
         let _v : (Parsetree.module_binding list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31462 "parsing/parser.ml"
+# 31451 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31519,9 +31508,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31525 "parsing/parser.ml"
+# 31514 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31531,24 +31520,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31537 "parsing/parser.ml"
+# 31526 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31545 "parsing/parser.ml"
+# 31534 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1851 "parsing/parser.mly"
+# 1840 "parsing/parser.mly"
   (
     let loc = make_loc _sloc in
     let attrs = attrs1 @ attrs2 in
@@ -31556,13 +31545,13 @@ module Tables = struct
     let text = symbol_text _symbolstartpos in
     Mb.mk name body ~attrs ~loc ~text ~docs
   )
-# 31560 "parsing/parser.ml"
+# 31549 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31566 "parsing/parser.ml"
+# 31555 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31580,7 +31569,7 @@ module Tables = struct
         let _v : (Parsetree.module_declaration list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31584 "parsing/parser.ml"
+# 31573 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31648,9 +31637,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31654 "parsing/parser.ml"
+# 31643 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31660,24 +31649,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31666 "parsing/parser.ml"
+# 31655 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31674 "parsing/parser.ml"
+# 31663 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2155 "parsing/parser.mly"
+# 2144 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let docs = symbol_docs _sloc in
@@ -31685,13 +31674,13 @@ module Tables = struct
     let text = symbol_text _symbolstartpos in
     Md.mk name mty ~attrs ~loc ~text ~docs
   )
-# 31689 "parsing/parser.ml"
+# 31678 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31695 "parsing/parser.ml"
+# 31684 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31709,7 +31698,7 @@ module Tables = struct
         let _v : (Parsetree.attributes) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31713 "parsing/parser.ml"
+# 31702 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31741,7 +31730,7 @@ module Tables = struct
         let _v : (Parsetree.attributes) = 
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31745 "parsing/parser.ml"
+# 31734 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31759,7 +31748,7 @@ module Tables = struct
         let _v : (Parsetree.type_declaration list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31763 "parsing/parser.ml"
+# 31752 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31831,9 +31820,9 @@ module Tables = struct
         let kind_priv_manifest : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = Obj.magic kind_priv_manifest in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 31837 "parsing/parser.ml"
+# 31826 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -31846,9 +31835,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined3 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 31852 "parsing/parser.ml"
+# 31841 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -31857,18 +31846,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 31861 "parsing/parser.ml"
+# 31850 "parsing/parser.ml"
                in
               
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 31866 "parsing/parser.ml"
+# 31855 "parsing/parser.ml"
               
             in
             
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 31872 "parsing/parser.ml"
+# 31861 "parsing/parser.ml"
             
           in
           let id =
@@ -31877,24 +31866,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 31883 "parsing/parser.ml"
+# 31872 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 31891 "parsing/parser.ml"
+# 31880 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3730 "parsing/parser.mly"
+# 3719 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -31904,13 +31893,13 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~jkind ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:(Some text)
     )
-# 31908 "parsing/parser.ml"
+# 31897 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 31914 "parsing/parser.ml"
+# 31903 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -31928,7 +31917,7 @@ module Tables = struct
         let _v : (Parsetree.type_declaration list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 31932 "parsing/parser.ml"
+# 31921 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32007,9 +31996,9 @@ module Tables = struct
         let _1_inlined3 : unit = Obj.magic _1_inlined3 in
         let jkind : (Jane_asttypes.jkind_annotation option) = Obj.magic jkind in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 32013 "parsing/parser.ml"
+# 32002 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -32022,9 +32011,9 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined4 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 32028 "parsing/parser.ml"
+# 32017 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -32033,24 +32022,24 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 32037 "parsing/parser.ml"
+# 32026 "parsing/parser.ml"
                in
               
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 32042 "parsing/parser.ml"
+# 32031 "parsing/parser.ml"
               
             in
             
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 32048 "parsing/parser.ml"
+# 32037 "parsing/parser.ml"
             
           in
           let kind_priv_manifest = 
-# 3777 "parsing/parser.mly"
+# 3766 "parsing/parser.mly"
       ( _2 )
-# 32054 "parsing/parser.ml"
+# 32043 "parsing/parser.ml"
            in
           let id =
             let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
@@ -32058,24 +32047,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 32064 "parsing/parser.ml"
+# 32053 "parsing/parser.ml"
             
           in
           let attrs1 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 32072 "parsing/parser.ml"
+# 32061 "parsing/parser.ml"
             
           in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3730 "parsing/parser.mly"
+# 3719 "parsing/parser.mly"
     (
       let (kind, priv, manifest) = kind_priv_manifest in
       let docs = symbol_docs _sloc in
@@ -32085,13 +32074,13 @@ module Tables = struct
       Jane_syntax.Layouts.type_declaration_of
         id ~params ~jkind ~cstrs ~kind ~priv ~manifest ~attrs ~loc ~docs ~text:(Some text)
     )
-# 32089 "parsing/parser.ml"
+# 32078 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32095 "parsing/parser.ml"
+# 32084 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32109,7 +32098,7 @@ module Tables = struct
         let _v : (Parsetree.attributes) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32113 "parsing/parser.ml"
+# 32102 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32141,7 +32130,7 @@ module Tables = struct
         let _v : (Parsetree.attributes) = 
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32145 "parsing/parser.ml"
+# 32134 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32159,7 +32148,7 @@ module Tables = struct
         let _v : (Parsetree.signature_item list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32163 "parsing/parser.ml"
+# 32152 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32192,21 +32181,21 @@ module Tables = struct
           let _1 =
             let _startpos = _startpos__1_ in
             
-# 1210 "parsing/parser.mly"
+# 1199 "parsing/parser.mly"
   ( text_sig _startpos )
-# 32198 "parsing/parser.ml"
+# 32187 "parsing/parser.ml"
             
           in
           
-# 2004 "parsing/parser.mly"
+# 1993 "parsing/parser.mly"
       ( _1 )
-# 32204 "parsing/parser.ml"
+# 32193 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32210 "parsing/parser.ml"
+# 32199 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32239,21 +32228,21 @@ module Tables = struct
           let _1 =
             let _startpos = _startpos__1_ in
             
-# 1208 "parsing/parser.mly"
+# 1197 "parsing/parser.mly"
   ( text_sig _startpos @ [_1] )
-# 32245 "parsing/parser.ml"
+# 32234 "parsing/parser.ml"
             
           in
           
-# 2004 "parsing/parser.mly"
+# 1993 "parsing/parser.mly"
       ( _1 )
-# 32251 "parsing/parser.ml"
+# 32240 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32257 "parsing/parser.ml"
+# 32246 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32271,7 +32260,7 @@ module Tables = struct
         let _v : (Parsetree.structure_item list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32275 "parsing/parser.ml"
+# 32264 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32304,40 +32293,40 @@ module Tables = struct
           let _1 =
             let ys =
               let items = 
-# 1273 "parsing/parser.mly"
+# 1262 "parsing/parser.mly"
     ( [] )
-# 32310 "parsing/parser.ml"
+# 32299 "parsing/parser.ml"
                in
               
-# 1723 "parsing/parser.mly"
+# 1712 "parsing/parser.mly"
     ( items )
-# 32315 "parsing/parser.ml"
+# 32304 "parsing/parser.ml"
               
             in
             let xs =
               let _startpos = _startpos__1_ in
               
-# 1206 "parsing/parser.mly"
+# 1195 "parsing/parser.mly"
   ( text_str _startpos )
-# 32323 "parsing/parser.ml"
+# 32312 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 32329 "parsing/parser.ml"
+# 32318 "parsing/parser.ml"
             
           in
           
-# 1739 "parsing/parser.mly"
+# 1728 "parsing/parser.mly"
       ( _1 )
-# 32335 "parsing/parser.ml"
+# 32324 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32341 "parsing/parser.ml"
+# 32330 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32389,70 +32378,70 @@ module Tables = struct
                   let _1 =
                     let _1 =
                       let attrs = 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 32395 "parsing/parser.ml"
+# 32384 "parsing/parser.ml"
                        in
                       
-# 1730 "parsing/parser.mly"
+# 1719 "parsing/parser.mly"
     ( mkstrexp e attrs )
-# 32400 "parsing/parser.ml"
+# 32389 "parsing/parser.ml"
                       
                     in
                     let _startpos__1_ = _startpos_e_ in
                     let _startpos = _startpos__1_ in
                     
-# 1204 "parsing/parser.mly"
+# 1193 "parsing/parser.mly"
   ( text_str _startpos @ [_1] )
-# 32408 "parsing/parser.ml"
+# 32397 "parsing/parser.ml"
                     
                   in
                   let _startpos__1_ = _startpos_e_ in
                   let _endpos = _endpos__1_ in
                   let _startpos = _startpos__1_ in
                   
-# 1223 "parsing/parser.mly"
+# 1212 "parsing/parser.mly"
   ( mark_rhs_docs _startpos _endpos;
     _1 )
-# 32418 "parsing/parser.ml"
+# 32407 "parsing/parser.ml"
                   
                 in
                 
-# 1275 "parsing/parser.mly"
+# 1264 "parsing/parser.mly"
     ( x )
-# 32424 "parsing/parser.ml"
+# 32413 "parsing/parser.ml"
                 
               in
               
-# 1723 "parsing/parser.mly"
+# 1712 "parsing/parser.mly"
     ( items )
-# 32430 "parsing/parser.ml"
+# 32419 "parsing/parser.ml"
               
             in
             let xs =
               let _startpos = _startpos__1_ in
               
-# 1206 "parsing/parser.mly"
+# 1195 "parsing/parser.mly"
   ( text_str _startpos )
-# 32438 "parsing/parser.ml"
+# 32427 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 32444 "parsing/parser.ml"
+# 32433 "parsing/parser.ml"
             
           in
           
-# 1739 "parsing/parser.mly"
+# 1728 "parsing/parser.mly"
       ( _1 )
-# 32450 "parsing/parser.ml"
+# 32439 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32456 "parsing/parser.ml"
+# 32445 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32485,21 +32474,21 @@ module Tables = struct
           let _1 =
             let _startpos = _startpos__1_ in
             
-# 1204 "parsing/parser.mly"
+# 1193 "parsing/parser.mly"
   ( text_str _startpos @ [_1] )
-# 32491 "parsing/parser.ml"
+# 32480 "parsing/parser.ml"
             
           in
           
-# 1739 "parsing/parser.mly"
+# 1728 "parsing/parser.mly"
       ( _1 )
-# 32497 "parsing/parser.ml"
+# 32486 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32503 "parsing/parser.ml"
+# 32492 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32517,7 +32506,7 @@ module Tables = struct
         let _v : (Parsetree.class_type_field list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32521 "parsing/parser.ml"
+# 32510 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32549,15 +32538,15 @@ module Tables = struct
         let _v : (Parsetree.class_type_field list list) = let x =
           let _startpos = _startpos__1_ in
           
-# 1218 "parsing/parser.mly"
+# 1207 "parsing/parser.mly"
   ( text_csig _startpos @ [_1] )
-# 32555 "parsing/parser.ml"
+# 32544 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32561 "parsing/parser.ml"
+# 32550 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32575,7 +32564,7 @@ module Tables = struct
         let _v : (Parsetree.class_field list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32579 "parsing/parser.ml"
+# 32568 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32607,15 +32596,15 @@ module Tables = struct
         let _v : (Parsetree.class_field list list) = let x =
           let _startpos = _startpos__1_ in
           
-# 1216 "parsing/parser.mly"
+# 1205 "parsing/parser.mly"
   ( text_cstr _startpos @ [_1] )
-# 32613 "parsing/parser.ml"
+# 32602 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32619 "parsing/parser.ml"
+# 32608 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32633,7 +32622,7 @@ module Tables = struct
         let _v : (Parsetree.structure_item list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32637 "parsing/parser.ml"
+# 32626 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32665,15 +32654,15 @@ module Tables = struct
         let _v : (Parsetree.structure_item list list) = let x =
           let _startpos = _startpos__1_ in
           
-# 1204 "parsing/parser.mly"
+# 1193 "parsing/parser.mly"
   ( text_str _startpos @ [_1] )
-# 32671 "parsing/parser.ml"
+# 32660 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32677 "parsing/parser.ml"
+# 32666 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32691,7 +32680,7 @@ module Tables = struct
         let _v : (Parsetree.toplevel_phrase list list) = 
 # 211 "<standard.mly>"
     ( [] )
-# 32695 "parsing/parser.ml"
+# 32684 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32724,32 +32713,32 @@ module Tables = struct
           let _1 =
             let x =
               let _1 = 
-# 1273 "parsing/parser.mly"
+# 1262 "parsing/parser.mly"
     ( [] )
-# 32730 "parsing/parser.ml"
+# 32719 "parsing/parser.ml"
                in
               
-# 1525 "parsing/parser.mly"
+# 1514 "parsing/parser.mly"
     ( _1 )
-# 32735 "parsing/parser.ml"
+# 32724 "parsing/parser.ml"
               
             in
             
 # 183 "<standard.mly>"
     ( x )
-# 32741 "parsing/parser.ml"
+# 32730 "parsing/parser.ml"
             
           in
           
-# 1537 "parsing/parser.mly"
+# 1526 "parsing/parser.mly"
       ( _1 )
-# 32747 "parsing/parser.ml"
+# 32736 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32753 "parsing/parser.ml"
+# 32742 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32801,58 +32790,58 @@ module Tables = struct
                   let _1 =
                     let _1 =
                       let attrs = 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 32807 "parsing/parser.ml"
+# 32796 "parsing/parser.ml"
                        in
                       
-# 1730 "parsing/parser.mly"
+# 1719 "parsing/parser.mly"
     ( mkstrexp e attrs )
-# 32812 "parsing/parser.ml"
+# 32801 "parsing/parser.ml"
                       
                     in
                     
-# 1214 "parsing/parser.mly"
+# 1203 "parsing/parser.mly"
   ( Ptop_def [_1] )
-# 32818 "parsing/parser.ml"
+# 32807 "parsing/parser.ml"
                     
                   in
                   let _startpos__1_ = _startpos_e_ in
                   let _startpos = _startpos__1_ in
                   
-# 1212 "parsing/parser.mly"
+# 1201 "parsing/parser.mly"
   ( text_def _startpos @ [_1] )
-# 32826 "parsing/parser.ml"
+# 32815 "parsing/parser.ml"
                   
                 in
                 
-# 1275 "parsing/parser.mly"
+# 1264 "parsing/parser.mly"
     ( x )
-# 32832 "parsing/parser.ml"
+# 32821 "parsing/parser.ml"
                 
               in
               
-# 1525 "parsing/parser.mly"
+# 1514 "parsing/parser.mly"
     ( _1 )
-# 32838 "parsing/parser.ml"
+# 32827 "parsing/parser.ml"
               
             in
             
 # 183 "<standard.mly>"
     ( x )
-# 32844 "parsing/parser.ml"
+# 32833 "parsing/parser.ml"
             
           in
           
-# 1537 "parsing/parser.mly"
+# 1526 "parsing/parser.mly"
       ( _1 )
-# 32850 "parsing/parser.ml"
+# 32839 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32856 "parsing/parser.ml"
+# 32845 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32884,27 +32873,27 @@ module Tables = struct
         let _v : (Parsetree.toplevel_phrase list list) = let x =
           let _1 =
             let _1 = 
-# 1214 "parsing/parser.mly"
+# 1203 "parsing/parser.mly"
   ( Ptop_def [_1] )
-# 32890 "parsing/parser.ml"
+# 32879 "parsing/parser.ml"
              in
             let _startpos = _startpos__1_ in
             
-# 1212 "parsing/parser.mly"
+# 1201 "parsing/parser.mly"
   ( text_def _startpos @ [_1] )
-# 32896 "parsing/parser.ml"
+# 32885 "parsing/parser.ml"
             
           in
           
-# 1537 "parsing/parser.mly"
+# 1526 "parsing/parser.mly"
       ( _1 )
-# 32902 "parsing/parser.ml"
+# 32891 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32908 "parsing/parser.ml"
+# 32897 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -32939,29 +32928,29 @@ module Tables = struct
               let _endpos = _endpos__1_ in
               let _startpos = _startpos__1_ in
               
-# 1223 "parsing/parser.mly"
+# 1212 "parsing/parser.mly"
   ( mark_rhs_docs _startpos _endpos;
     _1 )
-# 32946 "parsing/parser.ml"
+# 32935 "parsing/parser.ml"
               
             in
             let _startpos = _startpos__1_ in
             
-# 1212 "parsing/parser.mly"
+# 1201 "parsing/parser.mly"
   ( text_def _startpos @ [_1] )
-# 32953 "parsing/parser.ml"
+# 32942 "parsing/parser.ml"
             
           in
           
-# 1537 "parsing/parser.mly"
+# 1526 "parsing/parser.mly"
       ( _1 )
-# 32959 "parsing/parser.ml"
+# 32948 "parsing/parser.ml"
           
         in
         
 # 213 "<standard.mly>"
     ( x :: xs )
-# 32965 "parsing/parser.ml"
+# 32954 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33000,7 +32989,7 @@ module Tables = struct
         let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 33004 "parsing/parser.ml"
+# 32993 "parsing/parser.ml"
          in
         let x =
           let label =
@@ -33008,9 +32997,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33014 "parsing/parser.ml"
+# 33003 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -33018,7 +33007,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3613 "parsing/parser.mly"
+# 3602 "parsing/parser.mly"
     ( let constraint_loc, label, pat =
         match opat with
         | None ->
@@ -33032,13 +33021,13 @@ module Tables = struct
       in
       label, mkpat_opt_constraint ~loc:constraint_loc pat octy
     )
-# 33036 "parsing/parser.ml"
+# 33025 "parsing/parser.ml"
           
         in
         
-# 1462 "parsing/parser.mly"
+# 1451 "parsing/parser.mly"
     ( [x], None )
-# 33042 "parsing/parser.ml"
+# 33031 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33084,7 +33073,7 @@ module Tables = struct
         let _v : ((Longident.t Asttypes.loc * Parsetree.pattern) list * unit option) = let _2 = 
 # 126 "<standard.mly>"
     ( Some x )
-# 33088 "parsing/parser.ml"
+# 33077 "parsing/parser.ml"
          in
         let x =
           let label =
@@ -33092,9 +33081,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33098 "parsing/parser.ml"
+# 33087 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -33102,7 +33091,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3613 "parsing/parser.mly"
+# 3602 "parsing/parser.mly"
     ( let constraint_loc, label, pat =
         match opat with
         | None ->
@@ -33116,13 +33105,13 @@ module Tables = struct
       in
       label, mkpat_opt_constraint ~loc:constraint_loc pat octy
     )
-# 33120 "parsing/parser.ml"
+# 33109 "parsing/parser.ml"
           
         in
         
-# 1462 "parsing/parser.mly"
+# 1451 "parsing/parser.mly"
     ( [x], None )
-# 33126 "parsing/parser.ml"
+# 33115 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33185,9 +33174,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33191 "parsing/parser.ml"
+# 33180 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -33195,7 +33184,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3613 "parsing/parser.mly"
+# 3602 "parsing/parser.mly"
     ( let constraint_loc, label, pat =
         match opat with
         | None ->
@@ -33209,13 +33198,13 @@ module Tables = struct
       in
       label, mkpat_opt_constraint ~loc:constraint_loc pat octy
     )
-# 33213 "parsing/parser.ml"
+# 33202 "parsing/parser.ml"
           
         in
         
-# 1464 "parsing/parser.mly"
+# 1453 "parsing/parser.mly"
     ( [x], Some y )
-# 33219 "parsing/parser.ml"
+# 33208 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33271,9 +33260,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33277 "parsing/parser.ml"
+# 33266 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -33281,7 +33270,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3613 "parsing/parser.mly"
+# 3602 "parsing/parser.mly"
     ( let constraint_loc, label, pat =
         match opat with
         | None ->
@@ -33295,14 +33284,14 @@ module Tables = struct
       in
       label, mkpat_opt_constraint ~loc:constraint_loc pat octy
     )
-# 33299 "parsing/parser.ml"
+# 33288 "parsing/parser.ml"
           
         in
         
-# 1468 "parsing/parser.mly"
+# 1457 "parsing/parser.mly"
     ( let xs, y = tail in
       x :: xs, y )
-# 33306 "parsing/parser.ml"
+# 33295 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33339,9 +33328,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.case) = 
-# 3206 "parsing/parser.mly"
+# 3195 "parsing/parser.mly"
       ( Exp.case _1 _3 )
-# 33345 "parsing/parser.ml"
+# 33334 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33392,9 +33381,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.case) = 
-# 3208 "parsing/parser.mly"
+# 3197 "parsing/parser.mly"
       ( Exp.case _1 ~guard:_3 _5 )
-# 33398 "parsing/parser.ml"
+# 33387 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33432,9 +33421,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.case) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         
-# 3210 "parsing/parser.mly"
+# 3199 "parsing/parser.mly"
       ( Exp.case _1 (Exp.unreachable ~loc:(make_loc _loc__3_) ()) )
-# 33438 "parsing/parser.ml"
+# 33427 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33495,9 +33484,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 33501 "parsing/parser.ml"
+# 33490 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -33506,49 +33495,49 @@ module Tables = struct
           let _6 =
             let _1 = _1_inlined3 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 33512 "parsing/parser.ml"
+# 33501 "parsing/parser.ml"
             
           in
           let _endpos__6_ = _endpos__1_inlined3_ in
           let _4 =
             let _1 = _1_inlined2 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 33521 "parsing/parser.ml"
+# 33510 "parsing/parser.ml"
             
           in
           let _endpos__4_ = _endpos__1_inlined2_ in
           let _3 =
             let _1 = _1_inlined1 in
             
-# 4105 "parsing/parser.mly"
+# 4094 "parsing/parser.mly"
     ( _1 )
-# 33530 "parsing/parser.ml"
+# 33519 "parsing/parser.ml"
             
           in
           let _1 =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 33537 "parsing/parser.ml"
+# 33526 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33545 "parsing/parser.ml"
+# 33534 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__6_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4448 "parsing/parser.mly"
+# 4437 "parsing/parser.mly"
     ( let info =
         match rhs_info _endpos__4_ with
         | Some _ as info_before_semi -> info_before_semi
@@ -33556,13 +33545,13 @@ module Tables = struct
       in
       let attrs = add_info_attrs info (_4 @ _6) in
       Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 )
-# 33560 "parsing/parser.ml"
+# 33549 "parsing/parser.ml"
           
         in
         
-# 4429 "parsing/parser.mly"
+# 4418 "parsing/parser.mly"
       ( let (f, c) = tail in (head :: f, c) )
-# 33566 "parsing/parser.ml"
+# 33555 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33603,15 +33592,15 @@ module Tables = struct
           let _symbolstartpos = _startpos_ty_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4459 "parsing/parser.mly"
+# 4448 "parsing/parser.mly"
     ( Of.inherit_ ~loc:(make_loc _sloc) ty )
-# 33609 "parsing/parser.ml"
+# 33598 "parsing/parser.ml"
           
         in
         
-# 4429 "parsing/parser.mly"
+# 4418 "parsing/parser.mly"
       ( let (f, c) = tail in (head :: f, c) )
-# 33615 "parsing/parser.ml"
+# 33604 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33665,9 +33654,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 33671 "parsing/parser.ml"
+# 33660 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -33676,49 +33665,49 @@ module Tables = struct
           let _6 =
             let _1 = _1_inlined3 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 33682 "parsing/parser.ml"
+# 33671 "parsing/parser.ml"
             
           in
           let _endpos__6_ = _endpos__1_inlined3_ in
           let _4 =
             let _1 = _1_inlined2 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 33691 "parsing/parser.ml"
+# 33680 "parsing/parser.ml"
             
           in
           let _endpos__4_ = _endpos__1_inlined2_ in
           let _3 =
             let _1 = _1_inlined1 in
             
-# 4105 "parsing/parser.mly"
+# 4094 "parsing/parser.mly"
     ( _1 )
-# 33700 "parsing/parser.ml"
+# 33689 "parsing/parser.ml"
             
           in
           let _1 =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 33707 "parsing/parser.ml"
+# 33696 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33715 "parsing/parser.ml"
+# 33704 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__6_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4448 "parsing/parser.mly"
+# 4437 "parsing/parser.mly"
     ( let info =
         match rhs_info _endpos__4_ with
         | Some _ as info_before_semi -> info_before_semi
@@ -33726,13 +33715,13 @@ module Tables = struct
       in
       let attrs = add_info_attrs info (_4 @ _6) in
       Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 )
-# 33730 "parsing/parser.ml"
+# 33719 "parsing/parser.ml"
           
         in
         
-# 4432 "parsing/parser.mly"
+# 4421 "parsing/parser.mly"
       ( [head], Closed )
-# 33736 "parsing/parser.ml"
+# 33725 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33766,15 +33755,15 @@ module Tables = struct
           let _symbolstartpos = _startpos_ty_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4459 "parsing/parser.mly"
+# 4448 "parsing/parser.mly"
     ( Of.inherit_ ~loc:(make_loc _sloc) ty )
-# 33772 "parsing/parser.ml"
+# 33761 "parsing/parser.ml"
           
         in
         
-# 4432 "parsing/parser.mly"
+# 4421 "parsing/parser.mly"
       ( [head], Closed )
-# 33778 "parsing/parser.ml"
+# 33767 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33814,9 +33803,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.core_type) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 33820 "parsing/parser.ml"
+# 33809 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -33825,50 +33814,50 @@ module Tables = struct
           let _4 =
             let _1 = _1_inlined2 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 33831 "parsing/parser.ml"
+# 33820 "parsing/parser.ml"
             
           in
           let _endpos__4_ = _endpos__1_inlined2_ in
           let _3 =
             let _1 = _1_inlined1 in
             
-# 4105 "parsing/parser.mly"
+# 4094 "parsing/parser.mly"
     ( _1 )
-# 33840 "parsing/parser.ml"
+# 33829 "parsing/parser.ml"
             
           in
           let _1 =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 33847 "parsing/parser.ml"
+# 33836 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 33855 "parsing/parser.ml"
+# 33844 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__4_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4441 "parsing/parser.mly"
+# 4430 "parsing/parser.mly"
     ( let info = symbol_info _endpos in
       let attrs = add_info_attrs info _4 in
       Of.tag ~loc:(make_loc _sloc) ~attrs _1 _3 )
-# 33866 "parsing/parser.ml"
+# 33855 "parsing/parser.ml"
           
         in
         
-# 4435 "parsing/parser.mly"
+# 4424 "parsing/parser.mly"
       ( [head], Closed )
-# 33872 "parsing/parser.ml"
+# 33861 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33895,15 +33884,15 @@ module Tables = struct
           let _symbolstartpos = _startpos_ty_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4459 "parsing/parser.mly"
+# 4448 "parsing/parser.mly"
     ( Of.inherit_ ~loc:(make_loc _sloc) ty )
-# 33901 "parsing/parser.ml"
+# 33890 "parsing/parser.ml"
           
         in
         
-# 4435 "parsing/parser.mly"
+# 4424 "parsing/parser.mly"
       ( [head], Closed )
-# 33907 "parsing/parser.ml"
+# 33896 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33926,9 +33915,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.object_field list * Asttypes.closed_flag) = 
-# 4437 "parsing/parser.mly"
+# 4426 "parsing/parser.mly"
       ( [], Open )
-# 33932 "parsing/parser.ml"
+# 33921 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -33973,9 +33962,9 @@ module Tables = struct
         let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 33979 "parsing/parser.ml"
+# 33968 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let private_ : (Asttypes.private_flag) = Obj.magic private_ in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -33987,41 +33976,41 @@ module Tables = struct
   Parsetree.attributes) = let ty =
           let _1 = _1_inlined2 in
           
-# 4101 "parsing/parser.mly"
+# 4090 "parsing/parser.mly"
     ( _1 )
-# 33993 "parsing/parser.ml"
+# 33982 "parsing/parser.ml"
           
         in
         let label =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34001 "parsing/parser.ml"
+# 33990 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34009 "parsing/parser.ml"
+# 33998 "parsing/parser.ml"
           
         in
         let attrs = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34015 "parsing/parser.ml"
+# 34004 "parsing/parser.ml"
          in
         let _1 = 
-# 4743 "parsing/parser.mly"
+# 4732 "parsing/parser.mly"
                                                 ( Fresh )
-# 34020 "parsing/parser.ml"
+# 34009 "parsing/parser.ml"
          in
         
-# 2352 "parsing/parser.mly"
+# 2341 "parsing/parser.mly"
       ( (label, private_, Cfk_virtual ty), attrs )
-# 34025 "parsing/parser.ml"
+# 34014 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34059,9 +34048,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1_inlined2 : (Jane_syntax.Mode_expr.t -> Parsetree.expression) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34065 "parsing/parser.ml"
+# 34054 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -34073,44 +34062,44 @@ module Tables = struct
   Parsetree.attributes) = let _5 =
           let _1 = _1_inlined2 in
           
-# 3184 "parsing/parser.mly"
+# 3173 "parsing/parser.mly"
     (_1 Mode.empty)
-# 34079 "parsing/parser.ml"
+# 34068 "parsing/parser.ml"
           
         in
         let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34087 "parsing/parser.ml"
+# 34076 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34095 "parsing/parser.ml"
+# 34084 "parsing/parser.ml"
           
         in
         let _2 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34101 "parsing/parser.ml"
+# 34090 "parsing/parser.ml"
          in
         let _1 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 34106 "parsing/parser.ml"
+# 34095 "parsing/parser.ml"
          in
         
-# 2354 "parsing/parser.mly"
+# 2343 "parsing/parser.mly"
       ( let e = _5 in
         let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in
         (_4, _3,
         Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 )
-# 34114 "parsing/parser.ml"
+# 34103 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34154,9 +34143,9 @@ module Tables = struct
         } = _menhir_stack in
         let _1_inlined3 : (Jane_syntax.Mode_expr.t -> Parsetree.expression) = Obj.magic _1_inlined3 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34160 "parsing/parser.ml"
+# 34149 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -34169,47 +34158,47 @@ module Tables = struct
   Parsetree.attributes) = let _5 =
           let _1 = _1_inlined3 in
           
-# 3184 "parsing/parser.mly"
+# 3173 "parsing/parser.mly"
     (_1 Mode.empty)
-# 34175 "parsing/parser.ml"
+# 34164 "parsing/parser.ml"
           
         in
         let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34183 "parsing/parser.ml"
+# 34172 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34191 "parsing/parser.ml"
+# 34180 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34199 "parsing/parser.ml"
+# 34188 "parsing/parser.ml"
           
         in
         let _1 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 34205 "parsing/parser.ml"
+# 34194 "parsing/parser.ml"
          in
         
-# 2354 "parsing/parser.mly"
+# 2343 "parsing/parser.mly"
       ( let e = _5 in
         let loc = Location.(e.pexp_loc.loc_start, e.pexp_loc.loc_end) in
         (_4, _3,
         Cfk_concrete (_1, ghexp ~loc (Pexp_poly (e, None)))), _2 )
-# 34213 "parsing/parser.ml"
+# 34202 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34268,9 +34257,9 @@ module Tables = struct
         let _1_inlined2 : (Parsetree.core_type) = Obj.magic _1_inlined2 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34274 "parsing/parser.ml"
+# 34263 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -34282,45 +34271,45 @@ module Tables = struct
   Parsetree.attributes) = let _6 =
           let _1 = _1_inlined2 in
           
-# 4101 "parsing/parser.mly"
+# 4090 "parsing/parser.mly"
     ( _1 )
-# 34288 "parsing/parser.ml"
+# 34277 "parsing/parser.ml"
           
         in
         let _startpos__6_ = _startpos__1_inlined2_ in
         let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34297 "parsing/parser.ml"
+# 34286 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34305 "parsing/parser.ml"
+# 34294 "parsing/parser.ml"
           
         in
         let _2 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34311 "parsing/parser.ml"
+# 34300 "parsing/parser.ml"
          in
         let _1 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 34316 "parsing/parser.ml"
+# 34305 "parsing/parser.ml"
          in
         
-# 2360 "parsing/parser.mly"
+# 2349 "parsing/parser.mly"
       ( let poly_exp =
           let loc = (_startpos__6_, _endpos__8_) in
           ghexp ~loc (Pexp_poly(_8, Some _6)) in
         (_4, _3, Cfk_concrete (_1, poly_exp)), _2 )
-# 34324 "parsing/parser.ml"
+# 34313 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34385,9 +34374,9 @@ module Tables = struct
         let _1_inlined3 : (Parsetree.core_type) = Obj.magic _1_inlined3 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34391 "parsing/parser.ml"
+# 34380 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -34400,48 +34389,48 @@ module Tables = struct
   Parsetree.attributes) = let _6 =
           let _1 = _1_inlined3 in
           
-# 4101 "parsing/parser.mly"
+# 4090 "parsing/parser.mly"
     ( _1 )
-# 34406 "parsing/parser.ml"
+# 34395 "parsing/parser.ml"
           
         in
         let _startpos__6_ = _startpos__1_inlined3_ in
         let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34415 "parsing/parser.ml"
+# 34404 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34423 "parsing/parser.ml"
+# 34412 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34431 "parsing/parser.ml"
+# 34420 "parsing/parser.ml"
           
         in
         let _1 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 34437 "parsing/parser.ml"
+# 34426 "parsing/parser.ml"
          in
         
-# 2360 "parsing/parser.mly"
+# 2349 "parsing/parser.mly"
       ( let poly_exp =
           let loc = (_startpos__6_, _endpos__8_) in
           ghexp ~loc (Pexp_poly(_8, Some _6)) in
         (_4, _3, Cfk_concrete (_1, poly_exp)), _2 )
-# 34445 "parsing/parser.ml"
+# 34434 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34521,9 +34510,9 @@ module Tables = struct
         let _6 : unit = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34527 "parsing/parser.ml"
+# 34516 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -34535,30 +34524,30 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34541 "parsing/parser.ml"
+# 34530 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34549 "parsing/parser.ml"
+# 34538 "parsing/parser.ml"
           
         in
         let _startpos__4_ = _startpos__1_inlined1_ in
         let _2 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34556 "parsing/parser.ml"
+# 34545 "parsing/parser.ml"
          in
         let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in
         let _1 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 34562 "parsing/parser.ml"
+# 34551 "parsing/parser.ml"
          in
         let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in
         let _endpos = _endpos__11_ in
@@ -34574,7 +34563,7 @@ module Tables = struct
               _startpos__4_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2366 "parsing/parser.mly"
+# 2355 "parsing/parser.mly"
       ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in
         let poly_exp =
           let exp, poly =
@@ -34585,7 +34574,7 @@ module Tables = struct
           ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in
         (_4, _3,
         Cfk_concrete (_1, poly_exp)), _2 )
-# 34589 "parsing/parser.ml"
+# 34578 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34671,9 +34660,9 @@ module Tables = struct
         let _6 : unit = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34677 "parsing/parser.ml"
+# 34666 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.private_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -34686,33 +34675,33 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 34692 "parsing/parser.ml"
+# 34681 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 34700 "parsing/parser.ml"
+# 34689 "parsing/parser.ml"
           
         in
         let _startpos__4_ = _startpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 34709 "parsing/parser.ml"
+# 34698 "parsing/parser.ml"
           
         in
         let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
         let _1 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 34716 "parsing/parser.ml"
+# 34705 "parsing/parser.ml"
          in
         let _endpos = _endpos__11_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -34727,7 +34716,7 @@ module Tables = struct
               _startpos__4_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2366 "parsing/parser.mly"
+# 2355 "parsing/parser.mly"
       ( let poly_exp_loc = (_startpos__7_, _endpos__11_) in
         let poly_exp =
           let exp, poly =
@@ -34738,7 +34727,7 @@ module Tables = struct
           ghexp ~loc:poly_exp_loc (Pexp_poly(exp, Some poly)) in
         (_4, _3,
         Cfk_concrete (_1, poly_exp)), _2 )
-# 34742 "parsing/parser.ml"
+# 34731 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34757,17 +34746,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34763 "parsing/parser.ml"
+# 34752 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 34771 "parsing/parser.ml"
+# 34760 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34798,9 +34787,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _3 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 34804 "parsing/parser.ml"
+# 34793 "parsing/parser.ml"
         ) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Longident.t) = Obj.magic _1 in
@@ -34808,9 +34797,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 34814 "parsing/parser.ml"
+# 34803 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34829,17 +34818,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 34835 "parsing/parser.ml"
+# 34824 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 34843 "parsing/parser.ml"
+# 34832 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34870,9 +34859,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _3 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 34876 "parsing/parser.ml"
+# 34865 "parsing/parser.ml"
         ) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Longident.t) = Obj.magic _1 in
@@ -34880,9 +34869,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 34886 "parsing/parser.ml"
+# 34875 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34905,14 +34894,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = let _1 = 
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 34911 "parsing/parser.ml"
+# 34900 "parsing/parser.ml"
          in
         
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 34916 "parsing/parser.ml"
+# 34905 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34950,20 +34939,20 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = let _1 =
           let _1 = 
-# 4557 "parsing/parser.mly"
+# 4546 "parsing/parser.mly"
                                                 ( "::" )
-# 34956 "parsing/parser.ml"
+# 34945 "parsing/parser.ml"
            in
           
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 34961 "parsing/parser.ml"
+# 34950 "parsing/parser.ml"
           
         in
         
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 34967 "parsing/parser.ml"
+# 34956 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -34986,14 +34975,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = let _1 = 
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 34992 "parsing/parser.ml"
+# 34981 "parsing/parser.ml"
          in
         
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 34997 "parsing/parser.ml"
+# 34986 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35032,15 +35021,15 @@ module Tables = struct
         let _v : (Longident.t) = let _3 =
           let _1 = _1_inlined1 in
           
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 35038 "parsing/parser.ml"
+# 35027 "parsing/parser.ml"
           
         in
         
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35044 "parsing/parser.ml"
+# 35033 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35092,20 +35081,20 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = let _3 =
           let _1 = 
-# 4557 "parsing/parser.mly"
+# 4546 "parsing/parser.mly"
                                                 ( "::" )
-# 35098 "parsing/parser.ml"
+# 35087 "parsing/parser.ml"
            in
           
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 35103 "parsing/parser.ml"
+# 35092 "parsing/parser.ml"
           
         in
         
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35109 "parsing/parser.ml"
+# 35098 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35144,15 +35133,15 @@ module Tables = struct
         let _v : (Longident.t) = let _3 =
           let _1 = _1_inlined1 in
           
-# 4625 "parsing/parser.mly"
+# 4614 "parsing/parser.mly"
                                                   ( _1 )
-# 35150 "parsing/parser.ml"
+# 35139 "parsing/parser.ml"
           
         in
         
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35156 "parsing/parser.ml"
+# 35145 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35175,9 +35164,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35181 "parsing/parser.ml"
+# 35170 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35214,9 +35203,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35220 "parsing/parser.ml"
+# 35209 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35239,9 +35228,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35245 "parsing/parser.ml"
+# 35234 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35278,9 +35267,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35284 "parsing/parser.ml"
+# 35273 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35303,9 +35292,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35309 "parsing/parser.ml"
+# 35298 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35342,9 +35331,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35348 "parsing/parser.ml"
+# 35337 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35363,17 +35352,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 35369 "parsing/parser.ml"
+# 35358 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35377 "parsing/parser.ml"
+# 35366 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35404,9 +35393,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _3 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 35410 "parsing/parser.ml"
+# 35399 "parsing/parser.ml"
         ) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Longident.t) = Obj.magic _1 in
@@ -35414,9 +35403,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35420 "parsing/parser.ml"
+# 35409 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35435,17 +35424,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 35441 "parsing/parser.ml"
+# 35430 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35449 "parsing/parser.ml"
+# 35438 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35476,9 +35465,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _3 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 35482 "parsing/parser.ml"
+# 35471 "parsing/parser.ml"
         ) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Longident.t) = Obj.magic _1 in
@@ -35486,9 +35475,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35492 "parsing/parser.ml"
+# 35481 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35511,9 +35500,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4577 "parsing/parser.mly"
+# 4566 "parsing/parser.mly"
                       ( Lident _1 )
-# 35517 "parsing/parser.ml"
+# 35506 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35550,9 +35539,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = 
-# 4578 "parsing/parser.mly"
+# 4567 "parsing/parser.mly"
                       ( Ldot(_1,_3) )
-# 35556 "parsing/parser.ml"
+# 35545 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35575,9 +35564,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4603 "parsing/parser.mly"
+# 4592 "parsing/parser.mly"
                                             ( _1 )
-# 35581 "parsing/parser.ml"
+# 35570 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35624,9 +35613,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4605 "parsing/parser.mly"
+# 4594 "parsing/parser.mly"
       ( lapply ~loc:_sloc _1 _3 )
-# 35630 "parsing/parser.ml"
+# 35619 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35664,9 +35653,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Longident.t) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         
-# 4607 "parsing/parser.mly"
+# 4596 "parsing/parser.mly"
       ( expecting _loc__3_ "module path" )
-# 35670 "parsing/parser.ml"
+# 35659 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35689,9 +35678,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4600 "parsing/parser.mly"
+# 4589 "parsing/parser.mly"
                                          ( _1 )
-# 35695 "parsing/parser.ml"
+# 35684 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35721,9 +35710,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos_me_ in
         let _v : (Parsetree.module_expr) = 
-# 1808 "parsing/parser.mly"
+# 1797 "parsing/parser.mly"
       ( me )
-# 35727 "parsing/parser.ml"
+# 35716 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35754,9 +35743,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_expr) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1810 "parsing/parser.mly"
+# 1799 "parsing/parser.mly"
       ( expecting _loc__1_ "=" )
-# 35760 "parsing/parser.ml"
+# 35749 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35801,24 +35790,24 @@ module Tables = struct
         let _endpos = _endpos_me_ in
         let _v : (Parsetree.module_expr) = let _1 =
           let _1 = 
-# 1813 "parsing/parser.mly"
+# 1802 "parsing/parser.mly"
         ( Pmod_constraint(me, mty) )
-# 35807 "parsing/parser.ml"
+# 35796 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos_me_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 35816 "parsing/parser.ml"
+# 35805 "parsing/parser.ml"
           
         in
         
-# 1817 "parsing/parser.mly"
+# 1806 "parsing/parser.mly"
     ( _1 )
-# 35822 "parsing/parser.ml"
+# 35811 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35849,25 +35838,25 @@ module Tables = struct
         let _endpos = _endpos_body_ in
         let _v : (Parsetree.module_expr) = let _1 =
           let _1 = 
-# 1815 "parsing/parser.mly"
+# 1804 "parsing/parser.mly"
         ( let (_, arg) = arg_and_pos in
           Pmod_functor(arg, body) )
-# 35856 "parsing/parser.ml"
+# 35845 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 35865 "parsing/parser.ml"
+# 35854 "parsing/parser.ml"
           
         in
         
-# 1817 "parsing/parser.mly"
+# 1806 "parsing/parser.mly"
     ( _1 )
-# 35871 "parsing/parser.ml"
+# 35860 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35897,9 +35886,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos_mty_ in
         let _v : (Parsetree.module_type) = 
-# 2079 "parsing/parser.mly"
+# 2068 "parsing/parser.mly"
       ( mty )
-# 35903 "parsing/parser.ml"
+# 35892 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35930,9 +35919,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_type) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 2081 "parsing/parser.mly"
+# 2070 "parsing/parser.mly"
       ( expecting _loc__1_ ":" )
-# 35936 "parsing/parser.ml"
+# 35925 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -35963,25 +35952,25 @@ module Tables = struct
         let _endpos = _endpos_body_ in
         let _v : (Parsetree.module_type) = let _1 =
           let _1 = 
-# 2084 "parsing/parser.mly"
+# 2073 "parsing/parser.mly"
         ( let (_, arg) = arg_and_pos in
           Pmty_functor(arg, body) )
-# 35970 "parsing/parser.ml"
+# 35959 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_body_, _startpos_arg_and_pos_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 35979 "parsing/parser.ml"
+# 35968 "parsing/parser.ml"
           
         in
         
-# 2087 "parsing/parser.mly"
+# 2076 "parsing/parser.mly"
     ( _1 )
-# 35985 "parsing/parser.ml"
+# 35974 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36027,18 +36016,18 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36033 "parsing/parser.ml"
+# 36022 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1637 "parsing/parser.mly"
+# 1626 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_structure s) )
-# 36042 "parsing/parser.ml"
+# 36031 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36084,17 +36073,17 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36090 "parsing/parser.ml"
+# 36079 "parsing/parser.ml"
           
         in
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1639 "parsing/parser.mly"
+# 1628 "parsing/parser.mly"
       ( unclosed "struct" _loc__1_ "end" _loc__4_ )
-# 36098 "parsing/parser.ml"
+# 36087 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36125,9 +36114,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_expr) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1641 "parsing/parser.mly"
+# 1630 "parsing/parser.mly"
       ( expecting _loc__1_ "struct" )
-# 36131 "parsing/parser.ml"
+# 36120 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36180,30 +36169,30 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let args =
           let _1 = _1_inlined2 in
           
-# 1603 "parsing/parser.mly"
+# 1592 "parsing/parser.mly"
     ( _1 )
-# 36186 "parsing/parser.ml"
+# 36175 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36194 "parsing/parser.ml"
+# 36183 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_me_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1643 "parsing/parser.mly"
+# 1632 "parsing/parser.mly"
       ( wrap_mod_attrs ~loc:_sloc attrs (
           List.fold_left (fun acc (startpos, arg) ->
             mkmod ~loc:(startpos, _endpos) (Pmod_functor (arg, acc))
           ) me args
         ) )
-# 36207 "parsing/parser.ml"
+# 36196 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36226,9 +36215,9 @@ module Tables = struct
         let _startpos = _startpos_me_ in
         let _endpos = _endpos_me_ in
         let _v : (Parsetree.module_expr) = 
-# 1649 "parsing/parser.mly"
+# 1638 "parsing/parser.mly"
       ( me )
-# 36232 "parsing/parser.ml"
+# 36221 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36258,9 +36247,9 @@ module Tables = struct
         let _startpos = _startpos_me_ in
         let _endpos = _endpos_attr_ in
         let _v : (Parsetree.module_expr) = 
-# 1651 "parsing/parser.mly"
+# 1640 "parsing/parser.mly"
       ( Mod.attr me attr )
-# 36264 "parsing/parser.ml"
+# 36253 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36289,30 +36278,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 36295 "parsing/parser.ml"
+# 36284 "parsing/parser.ml"
               
             in
             
-# 1655 "parsing/parser.mly"
+# 1644 "parsing/parser.mly"
         ( Pmod_ident x )
-# 36301 "parsing/parser.ml"
+# 36290 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 36310 "parsing/parser.ml"
+# 36299 "parsing/parser.ml"
           
         in
         
-# 1666 "parsing/parser.mly"
+# 1655 "parsing/parser.mly"
     ( _1 )
-# 36316 "parsing/parser.ml"
+# 36305 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36343,24 +36332,24 @@ module Tables = struct
         let _endpos = _endpos_me2_ in
         let _v : (Parsetree.module_expr) = let _1 =
           let _1 = 
-# 1658 "parsing/parser.mly"
+# 1647 "parsing/parser.mly"
         ( Pmod_apply(me1, me2) )
-# 36349 "parsing/parser.ml"
+# 36338 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_me2_, _startpos_me1_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 36358 "parsing/parser.ml"
+# 36347 "parsing/parser.ml"
           
         in
         
-# 1666 "parsing/parser.mly"
+# 1655 "parsing/parser.mly"
     ( _1 )
-# 36364 "parsing/parser.ml"
+# 36353 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36398,24 +36387,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.module_expr) = let _1 =
           let _1 = 
-# 1661 "parsing/parser.mly"
+# 1650 "parsing/parser.mly"
         ( Pmod_apply_unit me )
-# 36404 "parsing/parser.ml"
+# 36393 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_me_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 36413 "parsing/parser.ml"
+# 36402 "parsing/parser.ml"
           
         in
         
-# 1666 "parsing/parser.mly"
+# 1655 "parsing/parser.mly"
     ( _1 )
-# 36419 "parsing/parser.ml"
+# 36408 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36439,24 +36428,24 @@ module Tables = struct
         let _endpos = _endpos_ex_ in
         let _v : (Parsetree.module_expr) = let _1 =
           let _1 = 
-# 1664 "parsing/parser.mly"
+# 1653 "parsing/parser.mly"
         ( Pmod_extension ex )
-# 36445 "parsing/parser.ml"
+# 36434 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_ex_, _startpos_ex_) in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1243 "parsing/parser.mly"
+# 1232 "parsing/parser.mly"
     ( mkmod ~loc:_sloc _1 )
-# 36454 "parsing/parser.ml"
+# 36443 "parsing/parser.ml"
           
         in
         
-# 1666 "parsing/parser.mly"
+# 1655 "parsing/parser.mly"
     ( _1 )
-# 36460 "parsing/parser.ml"
+# 36449 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36475,17 +36464,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let x : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 36481 "parsing/parser.ml"
+# 36470 "parsing/parser.ml"
         ) = Obj.magic x in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (string option) = 
-# 1620 "parsing/parser.mly"
+# 1609 "parsing/parser.mly"
       ( Some x )
-# 36489 "parsing/parser.ml"
+# 36478 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36508,9 +36497,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string option) = 
-# 1623 "parsing/parser.mly"
+# 1612 "parsing/parser.mly"
       ( None )
-# 36514 "parsing/parser.ml"
+# 36503 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36568,9 +36557,9 @@ module Tables = struct
         let _1_inlined3 : (Longident.t) = Obj.magic _1_inlined3 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 36574 "parsing/parser.ml"
+# 36563 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
         let ext : (string Asttypes.loc option) = Obj.magic ext in
@@ -36581,9 +36570,9 @@ module Tables = struct
         let _v : (Parsetree.module_substitution * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 36587 "parsing/parser.ml"
+# 36576 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -36593,9 +36582,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 36599 "parsing/parser.ml"
+# 36588 "parsing/parser.ml"
           
         in
         let uid =
@@ -36604,31 +36593,31 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 36610 "parsing/parser.ml"
+# 36599 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36618 "parsing/parser.ml"
+# 36607 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2117 "parsing/parser.mly"
+# 2106 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Ms.mk uid body ~attrs ~loc ~docs, ext
   )
-# 36632 "parsing/parser.ml"
+# 36621 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36679,9 +36668,9 @@ module Tables = struct
         let _6 : unit = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 36685 "parsing/parser.ml"
+# 36674 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
         let _2 : (string Asttypes.loc option) = Obj.magic _2 in
@@ -36695,24 +36684,24 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 36701 "parsing/parser.ml"
+# 36690 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36709 "parsing/parser.ml"
+# 36698 "parsing/parser.ml"
           
         in
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         
-# 2124 "parsing/parser.mly"
+# 2113 "parsing/parser.mly"
     ( expecting _loc__6_ "module path" )
-# 36716 "parsing/parser.ml"
+# 36705 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36758,18 +36747,18 @@ module Tables = struct
         let _v : (Parsetree.module_type) = let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36764 "parsing/parser.ml"
+# 36753 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__4_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1950 "parsing/parser.mly"
+# 1939 "parsing/parser.mly"
       ( mkmty ~loc:_sloc ~attrs (Pmty_signature s) )
-# 36773 "parsing/parser.ml"
+# 36762 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36815,17 +36804,17 @@ module Tables = struct
         let _v : (Parsetree.module_type) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36821 "parsing/parser.ml"
+# 36810 "parsing/parser.ml"
           
         in
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1952 "parsing/parser.mly"
+# 1941 "parsing/parser.mly"
       ( unclosed "sig" _loc__1_ "end" _loc__4_ )
-# 36829 "parsing/parser.ml"
+# 36818 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36856,9 +36845,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_type) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1954 "parsing/parser.mly"
+# 1943 "parsing/parser.mly"
       ( expecting _loc__1_ "sig" )
-# 36862 "parsing/parser.ml"
+# 36851 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36911,30 +36900,30 @@ module Tables = struct
         let _v : (Parsetree.module_type) = let args =
           let _1 = _1_inlined2 in
           
-# 1603 "parsing/parser.mly"
+# 1592 "parsing/parser.mly"
     ( _1 )
-# 36917 "parsing/parser.ml"
+# 36906 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36925 "parsing/parser.ml"
+# 36914 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_mty_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1958 "parsing/parser.mly"
+# 1947 "parsing/parser.mly"
       ( wrap_mty_attrs ~loc:_sloc attrs (
           List.fold_left (fun acc (startpos, arg) ->
             mkmty ~loc:(startpos, _endpos) (Pmty_functor (arg, acc))
           ) mty args
         ) )
-# 36938 "parsing/parser.ml"
+# 36927 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -36987,18 +36976,18 @@ module Tables = struct
         let _v : (Parsetree.module_type) = let _4 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 36993 "parsing/parser.ml"
+# 36982 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1964 "parsing/parser.mly"
+# 1953 "parsing/parser.mly"
       ( mkmty ~loc:_sloc ~attrs:_4 (Pmty_typeof _5) )
-# 37002 "parsing/parser.ml"
+# 36991 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37035,9 +37024,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.module_type) = 
-# 1966 "parsing/parser.mly"
+# 1955 "parsing/parser.mly"
       ( _2 )
-# 37041 "parsing/parser.ml"
+# 37030 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37076,9 +37065,9 @@ module Tables = struct
         let _v : (Parsetree.module_type) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1968 "parsing/parser.mly"
+# 1957 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 37082 "parsing/parser.ml"
+# 37071 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37108,9 +37097,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_type) = 
-# 1970 "parsing/parser.mly"
+# 1959 "parsing/parser.mly"
       ( Mty.attr _1 _2 )
-# 37114 "parsing/parser.ml"
+# 37103 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37139,30 +37128,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 37145 "parsing/parser.ml"
+# 37134 "parsing/parser.ml"
               
             in
             
-# 1973 "parsing/parser.mly"
+# 1962 "parsing/parser.mly"
         ( Pmty_ident _1 )
-# 37151 "parsing/parser.ml"
+# 37140 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 37160 "parsing/parser.ml"
+# 37149 "parsing/parser.ml"
           
         in
         
-# 1986 "parsing/parser.mly"
+# 1975 "parsing/parser.mly"
     ( _1 )
-# 37166 "parsing/parser.ml"
+# 37155 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37207,24 +37196,24 @@ module Tables = struct
         let _endpos = _endpos__4_ in
         let _v : (Parsetree.module_type) = let _1 =
           let _1 = 
-# 1975 "parsing/parser.mly"
+# 1964 "parsing/parser.mly"
         ( Pmty_functor(Unit, _4) )
-# 37213 "parsing/parser.ml"
+# 37202 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__4_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 37222 "parsing/parser.ml"
+# 37211 "parsing/parser.ml"
           
         in
         
-# 1986 "parsing/parser.mly"
+# 1975 "parsing/parser.mly"
     ( _1 )
-# 37228 "parsing/parser.ml"
+# 37217 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37262,24 +37251,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.module_type) = let _1 =
           let _1 = 
-# 1978 "parsing/parser.mly"
+# 1967 "parsing/parser.mly"
         ( Pmty_functor(Named (mknoloc None, _1), _3) )
-# 37268 "parsing/parser.ml"
+# 37257 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 37277 "parsing/parser.ml"
+# 37266 "parsing/parser.ml"
           
         in
         
-# 1986 "parsing/parser.mly"
+# 1975 "parsing/parser.mly"
     ( _1 )
-# 37283 "parsing/parser.ml"
+# 37272 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37321,18 +37310,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 37325 "parsing/parser.ml"
+# 37314 "parsing/parser.ml"
                in
               
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 37330 "parsing/parser.ml"
+# 37319 "parsing/parser.ml"
               
             in
             
-# 1980 "parsing/parser.mly"
+# 1969 "parsing/parser.mly"
         ( Pmty_with(_1, _3) )
-# 37336 "parsing/parser.ml"
+# 37325 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_xs_ in
@@ -37340,15 +37329,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 37346 "parsing/parser.ml"
+# 37335 "parsing/parser.ml"
           
         in
         
-# 1986 "parsing/parser.mly"
+# 1975 "parsing/parser.mly"
     ( _1 )
-# 37352 "parsing/parser.ml"
+# 37341 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37372,23 +37361,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.module_type) = let _1 =
           let _1 = 
-# 1984 "parsing/parser.mly"
+# 1973 "parsing/parser.mly"
         ( Pmty_extension _1 )
-# 37378 "parsing/parser.ml"
+# 37367 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1245 "parsing/parser.mly"
+# 1234 "parsing/parser.mly"
     ( mkmty ~loc:_sloc _1 )
-# 37386 "parsing/parser.ml"
+# 37375 "parsing/parser.ml"
           
         in
         
-# 1986 "parsing/parser.mly"
+# 1975 "parsing/parser.mly"
     ( _1 )
-# 37392 "parsing/parser.ml"
+# 37381 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37430,9 +37419,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 37436 "parsing/parser.ml"
+# 37425 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos__1_inlined1_ in
@@ -37440,10 +37429,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1988 "parsing/parser.mly"
+# 1977 "parsing/parser.mly"
       ( Jane_syntax.Strengthen.mty_of ~loc:(make_loc _sloc)
           { mty = _1; mod_id = _3 } )
-# 37447 "parsing/parser.ml"
+# 37436 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37510,9 +37499,9 @@ module Tables = struct
         let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 37516 "parsing/parser.ml"
+# 37505 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -37522,31 +37511,31 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 37528 "parsing/parser.ml"
+# 37517 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 37536 "parsing/parser.ml"
+# 37525 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1896 "parsing/parser.mly"
+# 1885 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Mtd.mk id ?typ ~attrs ~loc ~docs, ext
   )
-# 37550 "parsing/parser.ml"
+# 37539 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37620,9 +37609,9 @@ module Tables = struct
         let _v : (Parsetree.module_type_declaration * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 37626 "parsing/parser.ml"
+# 37615 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -37632,31 +37621,31 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 37638 "parsing/parser.ml"
+# 37627 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 37646 "parsing/parser.ml"
+# 37635 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2173 "parsing/parser.mly"
+# 2162 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Mtd.mk id ~typ ~attrs ~loc ~docs, ext
   )
-# 37660 "parsing/parser.ml"
+# 37649 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37679,9 +37668,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4610 "parsing/parser.mly"
+# 4599 "parsing/parser.mly"
                                           ( _1 )
-# 37685 "parsing/parser.ml"
+# 37674 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37697,9 +37686,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.mutable_flag) = 
-# 4691 "parsing/parser.mly"
+# 4680 "parsing/parser.mly"
                                                 ( Immutable )
-# 37703 "parsing/parser.ml"
+# 37692 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37722,9 +37711,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.mutable_flag) = 
-# 4692 "parsing/parser.mly"
+# 4681 "parsing/parser.mly"
                                                 ( Mutable )
-# 37728 "parsing/parser.ml"
+# 37717 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37740,9 +37729,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.mutable_flag * Mode.t) = 
-# 4696 "parsing/parser.mly"
+# 4685 "parsing/parser.mly"
     ( Immutable, Mode.empty )
-# 37746 "parsing/parser.ml"
+# 37735 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37765,9 +37754,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.mutable_flag * Mode.t) = 
-# 4698 "parsing/parser.mly"
+# 4687 "parsing/parser.mly"
     ( Mutable, Mode.empty )
-# 37771 "parsing/parser.ml"
+# 37760 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37793,9 +37782,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4700 "parsing/parser.mly"
+# 4689 "parsing/parser.mly"
     ( Immutable, Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) )
-# 37799 "parsing/parser.ml"
+# 37788 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37811,9 +37800,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = 
-# 4712 "parsing/parser.mly"
+# 4701 "parsing/parser.mly"
       ( Immutable, Concrete )
-# 37817 "parsing/parser.ml"
+# 37806 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37836,9 +37825,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = 
-# 4714 "parsing/parser.mly"
+# 4703 "parsing/parser.mly"
       ( Mutable, Concrete )
-# 37842 "parsing/parser.ml"
+# 37831 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37861,9 +37850,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = 
-# 4716 "parsing/parser.mly"
+# 4705 "parsing/parser.mly"
       ( Immutable, Virtual )
-# 37867 "parsing/parser.ml"
+# 37856 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37893,9 +37882,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = 
-# 4719 "parsing/parser.mly"
+# 4708 "parsing/parser.mly"
       ( Mutable, Virtual )
-# 37899 "parsing/parser.ml"
+# 37888 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37925,9 +37914,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.mutable_flag * Asttypes.virtual_flag) = 
-# 4719 "parsing/parser.mly"
+# 4708 "parsing/parser.mly"
       ( Mutable, Virtual )
-# 37931 "parsing/parser.ml"
+# 37920 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37957,9 +37946,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.label) = 
-# 4662 "parsing/parser.mly"
+# 4651 "parsing/parser.mly"
                                                 ( _2 )
-# 37963 "parsing/parser.ml"
+# 37952 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -37978,9 +37967,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 37984 "parsing/parser.ml"
+# 37973 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -37990,15 +37979,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 37996 "parsing/parser.ml"
+# 37985 "parsing/parser.ml"
           
         in
         
-# 3381 "parsing/parser.mly"
+# 3370 "parsing/parser.mly"
                                       ( _1, None )
-# 38002 "parsing/parser.ml"
+# 37991 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38044,9 +38033,9 @@ module Tables = struct
         let jkind : (Jane_asttypes.jkind_annotation) = Obj.magic jkind in
         let _3 : unit = Obj.magic _3 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 38050 "parsing/parser.ml"
+# 38039 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -38058,15 +38047,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 38064 "parsing/parser.ml"
+# 38053 "parsing/parser.ml"
           
         in
         
-# 3383 "parsing/parser.mly"
+# 3372 "parsing/parser.mly"
       ( name, Some jkind )
-# 38070 "parsing/parser.ml"
+# 38059 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38089,9 +38078,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = 
-# 3378 "parsing/parser.mly"
+# 3367 "parsing/parser.mly"
     ( _1 )
-# 38095 "parsing/parser.ml"
+# 38084 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38110,9 +38099,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 38116 "parsing/parser.ml"
+# 38105 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -38122,15 +38111,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 38128 "parsing/parser.ml"
+# 38117 "parsing/parser.ml"
           
         in
         
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38134 "parsing/parser.ml"
+# 38123 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38156,9 +38145,9 @@ module Tables = struct
         } = _menhir_stack in
         let xs : (string Asttypes.loc list) = Obj.magic xs in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 38162 "parsing/parser.ml"
+# 38151 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -38168,15 +38157,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 38174 "parsing/parser.ml"
+# 38163 "parsing/parser.ml"
           
         in
         
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38180 "parsing/parser.ml"
+# 38169 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38203,15 +38192,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4252 "parsing/parser.mly"
+# 4241 "parsing/parser.mly"
        ( Mode.Const.mk "local" (make_loc _sloc) )
-# 38209 "parsing/parser.ml"
+# 38198 "parsing/parser.ml"
           
         in
         
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38215 "parsing/parser.ml"
+# 38204 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38238,15 +38227,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4254 "parsing/parser.mly"
+# 4243 "parsing/parser.mly"
        ( Mode.Const.mk "unique" (make_loc _sloc) )
-# 38244 "parsing/parser.ml"
+# 38233 "parsing/parser.ml"
           
         in
         
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38250 "parsing/parser.ml"
+# 38239 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38273,15 +38262,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4256 "parsing/parser.mly"
+# 4245 "parsing/parser.mly"
        ( Mode.Const.mk "once" (make_loc _sloc) )
-# 38279 "parsing/parser.ml"
+# 38268 "parsing/parser.ml"
           
         in
         
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38285 "parsing/parser.ml"
+# 38274 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38315,15 +38304,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4252 "parsing/parser.mly"
+# 4241 "parsing/parser.mly"
        ( Mode.Const.mk "local" (make_loc _sloc) )
-# 38321 "parsing/parser.ml"
+# 38310 "parsing/parser.ml"
           
         in
         
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38327 "parsing/parser.ml"
+# 38316 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38357,15 +38346,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4254 "parsing/parser.mly"
+# 4243 "parsing/parser.mly"
        ( Mode.Const.mk "unique" (make_loc _sloc) )
-# 38363 "parsing/parser.ml"
+# 38352 "parsing/parser.ml"
           
         in
         
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38369 "parsing/parser.ml"
+# 38358 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38399,15 +38388,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4256 "parsing/parser.mly"
+# 4245 "parsing/parser.mly"
        ( Mode.Const.mk "once" (make_loc _sloc) )
-# 38405 "parsing/parser.ml"
+# 38394 "parsing/parser.ml"
           
         in
         
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38411 "parsing/parser.ml"
+# 38400 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38432,7 +38421,7 @@ module Tables = struct
         let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = 
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38436 "parsing/parser.ml"
+# 38425 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38464,7 +38453,7 @@ module Tables = struct
         let _v : ((string Asttypes.loc * Jane_asttypes.jkind_annotation option) list) = 
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38468 "parsing/parser.ml"
+# 38457 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38483,22 +38472,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let s : (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
-# 38489 "parsing/parser.ml"
+# 38478 "parsing/parser.ml"
         ) = Obj.magic s in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_s_ in
         let _endpos = _endpos_s_ in
         let _v : (string list) = let x = 
-# 4658 "parsing/parser.mly"
+# 4647 "parsing/parser.mly"
     ( let body, _, _ = s in body )
-# 38497 "parsing/parser.ml"
+# 38486 "parsing/parser.ml"
          in
         
 # 221 "<standard.mly>"
     ( [ x ] )
-# 38502 "parsing/parser.ml"
+# 38491 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38524,22 +38513,22 @@ module Tables = struct
         } = _menhir_stack in
         let xs : (string list) = Obj.magic xs in
         let s : (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
-# 38530 "parsing/parser.ml"
+# 38519 "parsing/parser.ml"
         ) = Obj.magic s in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_s_ in
         let _endpos = _endpos_xs_ in
         let _v : (string list) = let x = 
-# 4658 "parsing/parser.mly"
+# 4647 "parsing/parser.mly"
     ( let body, _, _ = s in body )
-# 38538 "parsing/parser.ml"
+# 38527 "parsing/parser.ml"
          in
         
 # 223 "<standard.mly>"
     ( x :: xs )
-# 38543 "parsing/parser.ml"
+# 38532 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38562,14 +38551,14 @@ module Tables = struct
         let _startpos = _startpos_ty_ in
         let _endpos = _endpos_ty_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 38568 "parsing/parser.ml"
+# 38557 "parsing/parser.ml"
          in
         
-# 3751 "parsing/parser.mly"
+# 3740 "parsing/parser.mly"
       ( (Ptype_abstract, priv, Some ty) )
-# 38573 "parsing/parser.ml"
+# 38562 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38599,14 +38588,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos_ty_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 38605 "parsing/parser.ml"
+# 38594 "parsing/parser.ml"
          in
         
-# 3751 "parsing/parser.mly"
+# 3740 "parsing/parser.mly"
       ( (Ptype_abstract, priv, Some ty) )
-# 38610 "parsing/parser.ml"
+# 38599 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38629,26 +38618,26 @@ module Tables = struct
         let _startpos = _startpos_cs_ in
         let _endpos = _endpos_cs_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 38635 "parsing/parser.ml"
+# 38624 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 38641 "parsing/parser.ml"
+# 38630 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38646 "parsing/parser.ml"
+# 38635 "parsing/parser.ml"
           
         in
         
-# 3755 "parsing/parser.mly"
+# 3744 "parsing/parser.mly"
       ( (Ptype_variant cs, priv, oty) )
-# 38652 "parsing/parser.ml"
+# 38641 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38678,26 +38667,26 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos_cs_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 38684 "parsing/parser.ml"
+# 38673 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 38690 "parsing/parser.ml"
+# 38679 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38695 "parsing/parser.ml"
+# 38684 "parsing/parser.ml"
           
         in
         
-# 3755 "parsing/parser.mly"
+# 3744 "parsing/parser.mly"
       ( (Ptype_variant cs, priv, oty) )
-# 38701 "parsing/parser.ml"
+# 38690 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38734,33 +38723,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_cs_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 38740 "parsing/parser.ml"
+# 38729 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 38747 "parsing/parser.ml"
+# 38736 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 38752 "parsing/parser.ml"
+# 38741 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38758 "parsing/parser.ml"
+# 38747 "parsing/parser.ml"
           
         in
         
-# 3755 "parsing/parser.mly"
+# 3744 "parsing/parser.mly"
       ( (Ptype_variant cs, priv, oty) )
-# 38764 "parsing/parser.ml"
+# 38753 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38804,33 +38793,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_cs_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 38810 "parsing/parser.ml"
+# 38799 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 38817 "parsing/parser.ml"
+# 38806 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 38822 "parsing/parser.ml"
+# 38811 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38828 "parsing/parser.ml"
+# 38817 "parsing/parser.ml"
           
         in
         
-# 3755 "parsing/parser.mly"
+# 3744 "parsing/parser.mly"
       ( (Ptype_variant cs, priv, oty) )
-# 38834 "parsing/parser.ml"
+# 38823 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38853,26 +38842,26 @@ module Tables = struct
         let _startpos = _startpos__3_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 38859 "parsing/parser.ml"
+# 38848 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 38865 "parsing/parser.ml"
+# 38854 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38870 "parsing/parser.ml"
+# 38859 "parsing/parser.ml"
           
         in
         
-# 3759 "parsing/parser.mly"
+# 3748 "parsing/parser.mly"
       ( (Ptype_open, priv, oty) )
-# 38876 "parsing/parser.ml"
+# 38865 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38902,26 +38891,26 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 38908 "parsing/parser.ml"
+# 38897 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 38914 "parsing/parser.ml"
+# 38903 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38919 "parsing/parser.ml"
+# 38908 "parsing/parser.ml"
           
         in
         
-# 3759 "parsing/parser.mly"
+# 3748 "parsing/parser.mly"
       ( (Ptype_open, priv, oty) )
-# 38925 "parsing/parser.ml"
+# 38914 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -38958,33 +38947,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 38964 "parsing/parser.ml"
+# 38953 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 38971 "parsing/parser.ml"
+# 38960 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 38976 "parsing/parser.ml"
+# 38965 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 38982 "parsing/parser.ml"
+# 38971 "parsing/parser.ml"
           
         in
         
-# 3759 "parsing/parser.mly"
+# 3748 "parsing/parser.mly"
       ( (Ptype_open, priv, oty) )
-# 38988 "parsing/parser.ml"
+# 38977 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39028,33 +39017,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 39034 "parsing/parser.ml"
+# 39023 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 39041 "parsing/parser.ml"
+# 39030 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 39046 "parsing/parser.ml"
+# 39035 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 39052 "parsing/parser.ml"
+# 39041 "parsing/parser.ml"
           
         in
         
-# 3759 "parsing/parser.mly"
+# 3748 "parsing/parser.mly"
       ( (Ptype_open, priv, oty) )
-# 39058 "parsing/parser.ml"
+# 39047 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39091,26 +39080,26 @@ module Tables = struct
         let _startpos = _startpos__3_ in
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 39097 "parsing/parser.ml"
+# 39086 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 39103 "parsing/parser.ml"
+# 39092 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 39108 "parsing/parser.ml"
+# 39097 "parsing/parser.ml"
           
         in
         
-# 3763 "parsing/parser.mly"
+# 3752 "parsing/parser.mly"
       ( (Ptype_record ls, priv, oty) )
-# 39114 "parsing/parser.ml"
+# 39103 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39154,26 +39143,26 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 39160 "parsing/parser.ml"
+# 39149 "parsing/parser.ml"
          in
         let oty =
           let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 39166 "parsing/parser.ml"
+# 39155 "parsing/parser.ml"
            in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 39171 "parsing/parser.ml"
+# 39160 "parsing/parser.ml"
           
         in
         
-# 3763 "parsing/parser.mly"
+# 3752 "parsing/parser.mly"
       ( (Ptype_record ls, priv, oty) )
-# 39177 "parsing/parser.ml"
+# 39166 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39224,33 +39213,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 39230 "parsing/parser.ml"
+# 39219 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 39237 "parsing/parser.ml"
+# 39226 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 39242 "parsing/parser.ml"
+# 39231 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 39248 "parsing/parser.ml"
+# 39237 "parsing/parser.ml"
           
         in
         
-# 3763 "parsing/parser.mly"
+# 3752 "parsing/parser.mly"
       ( (Ptype_record ls, priv, oty) )
-# 39254 "parsing/parser.ml"
+# 39243 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39308,33 +39297,33 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = let priv = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 39314 "parsing/parser.ml"
+# 39303 "parsing/parser.ml"
          in
         let oty =
           let _1 =
             let x = 
 # 191 "<standard.mly>"
     ( x )
-# 39321 "parsing/parser.ml"
+# 39310 "parsing/parser.ml"
              in
             
 # 126 "<standard.mly>"
     ( Some x )
-# 39326 "parsing/parser.ml"
+# 39315 "parsing/parser.ml"
             
           in
           
-# 3767 "parsing/parser.mly"
+# 3756 "parsing/parser.mly"
     ( _1 )
-# 39332 "parsing/parser.ml"
+# 39321 "parsing/parser.ml"
           
         in
         
-# 3763 "parsing/parser.mly"
+# 3752 "parsing/parser.mly"
       ( (Ptype_record ls, priv, oty) )
-# 39338 "parsing/parser.ml"
+# 39327 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39387,37 +39376,37 @@ module Tables = struct
         let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined2 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 39393 "parsing/parser.ml"
+# 39382 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined2_ in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 39402 "parsing/parser.ml"
+# 39391 "parsing/parser.ml"
           
         in
         let override = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 39408 "parsing/parser.ml"
+# 39397 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1915 "parsing/parser.mly"
+# 1904 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Opn.mk me ~override ~attrs ~loc ~docs, ext
   )
-# 39421 "parsing/parser.ml"
+# 39410 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39477,37 +39466,37 @@ module Tables = struct
         let _v : (Parsetree.open_declaration * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 39483 "parsing/parser.ml"
+# 39472 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
         let attrs1 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 39492 "parsing/parser.ml"
+# 39481 "parsing/parser.ml"
           
         in
         let override = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 39498 "parsing/parser.ml"
+# 39487 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1915 "parsing/parser.mly"
+# 1904 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Opn.mk me ~override ~attrs ~loc ~docs, ext
   )
-# 39511 "parsing/parser.ml"
+# 39500 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39560,9 +39549,9 @@ module Tables = struct
         let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 39566 "parsing/parser.ml"
+# 39555 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -39572,36 +39561,36 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 39578 "parsing/parser.ml"
+# 39567 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 39586 "parsing/parser.ml"
+# 39575 "parsing/parser.ml"
           
         in
         let override = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 39592 "parsing/parser.ml"
+# 39581 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1930 "parsing/parser.mly"
+# 1919 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Opn.mk id ~override ~attrs ~loc ~docs, ext
   )
-# 39605 "parsing/parser.ml"
+# 39594 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39661,9 +39650,9 @@ module Tables = struct
         let _v : (Parsetree.open_description * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 39667 "parsing/parser.ml"
+# 39656 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -39673,36 +39662,36 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 39679 "parsing/parser.ml"
+# 39668 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 39687 "parsing/parser.ml"
+# 39676 "parsing/parser.ml"
           
         in
         let override = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 39693 "parsing/parser.ml"
+# 39682 "parsing/parser.ml"
          in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1930 "parsing/parser.mly"
+# 1919 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Opn.mk id ~override ~attrs ~loc ~docs, ext
   )
-# 39706 "parsing/parser.ml"
+# 39695 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39721,17 +39710,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1038 "parsing/parser.mly"
+# 1027 "parsing/parser.mly"
        (string)
-# 39727 "parsing/parser.ml"
+# 39716 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4516 "parsing/parser.mly"
+# 4505 "parsing/parser.mly"
                                                 ( _1 )
-# 39735 "parsing/parser.ml"
+# 39724 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39750,17 +39739,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 992 "parsing/parser.mly"
+# 981 "parsing/parser.mly"
        (string)
-# 39756 "parsing/parser.ml"
+# 39745 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4517 "parsing/parser.mly"
+# 4506 "parsing/parser.mly"
                                                 ( _1 )
-# 39764 "parsing/parser.ml"
+# 39753 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39779,17 +39768,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 993 "parsing/parser.mly"
+# 982 "parsing/parser.mly"
        (string)
-# 39785 "parsing/parser.ml"
+# 39774 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4518 "parsing/parser.mly"
+# 4507 "parsing/parser.mly"
                                                 ( _1 )
-# 39793 "parsing/parser.ml"
+# 39782 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39829,17 +39818,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 39835 "parsing/parser.ml"
+# 39824 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Asttypes.label) = 
-# 4519 "parsing/parser.mly"
+# 4508 "parsing/parser.mly"
                                                 ( "."^ _1 ^"(" ^ _3 ^ ")" )
-# 39843 "parsing/parser.ml"
+# 39832 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39886,17 +39875,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 39892 "parsing/parser.ml"
+# 39881 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Asttypes.label) = 
-# 4520 "parsing/parser.mly"
+# 4509 "parsing/parser.mly"
                                                 ( "."^ _1 ^ "(" ^ _3 ^ ")<-" )
-# 39900 "parsing/parser.ml"
+# 39889 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39936,17 +39925,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 39942 "parsing/parser.ml"
+# 39931 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Asttypes.label) = 
-# 4521 "parsing/parser.mly"
+# 4510 "parsing/parser.mly"
                                                 ( "."^ _1 ^"[" ^ _3 ^ "]" )
-# 39950 "parsing/parser.ml"
+# 39939 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -39993,17 +39982,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 39999 "parsing/parser.ml"
+# 39988 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Asttypes.label) = 
-# 4522 "parsing/parser.mly"
+# 4511 "parsing/parser.mly"
                                                 ( "."^ _1 ^ "[" ^ _3 ^ "]<-" )
-# 40007 "parsing/parser.ml"
+# 39996 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40043,17 +40032,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 40049 "parsing/parser.ml"
+# 40038 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Asttypes.label) = 
-# 4523 "parsing/parser.mly"
+# 4512 "parsing/parser.mly"
                                                 ( "."^ _1 ^"{" ^ _3 ^ "}" )
-# 40057 "parsing/parser.ml"
+# 40046 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40100,17 +40089,17 @@ module Tables = struct
         let _3 : (string) = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 40106 "parsing/parser.ml"
+# 40095 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__5_ in
         let _v : (Asttypes.label) = 
-# 4524 "parsing/parser.mly"
+# 4513 "parsing/parser.mly"
                                                 ( "."^ _1 ^ "{" ^ _3 ^ "}<-" )
-# 40114 "parsing/parser.ml"
+# 40103 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40129,17 +40118,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1050 "parsing/parser.mly"
+# 1039 "parsing/parser.mly"
        (string)
-# 40135 "parsing/parser.ml"
+# 40124 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4525 "parsing/parser.mly"
+# 4514 "parsing/parser.mly"
                                                 ( _1 )
-# 40143 "parsing/parser.ml"
+# 40132 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40162,9 +40151,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4526 "parsing/parser.mly"
+# 4515 "parsing/parser.mly"
                                                 ( "!" )
-# 40168 "parsing/parser.ml"
+# 40157 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40183,22 +40172,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let op : (
-# 986 "parsing/parser.mly"
+# 975 "parsing/parser.mly"
        (string)
-# 40189 "parsing/parser.ml"
+# 40178 "parsing/parser.ml"
         ) = Obj.magic op in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_op_ in
         let _endpos = _endpos_op_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4530 "parsing/parser.mly"
+# 4519 "parsing/parser.mly"
                   ( op )
-# 40197 "parsing/parser.ml"
+# 40186 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40202 "parsing/parser.ml"
+# 40191 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40217,22 +40206,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let op : (
-# 987 "parsing/parser.mly"
+# 976 "parsing/parser.mly"
        (string)
-# 40223 "parsing/parser.ml"
+# 40212 "parsing/parser.ml"
         ) = Obj.magic op in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_op_ in
         let _endpos = _endpos_op_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4531 "parsing/parser.mly"
+# 4520 "parsing/parser.mly"
                   ( op )
-# 40231 "parsing/parser.ml"
+# 40220 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40236 "parsing/parser.ml"
+# 40225 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40251,22 +40240,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let op : (
-# 988 "parsing/parser.mly"
+# 977 "parsing/parser.mly"
        (string)
-# 40257 "parsing/parser.ml"
+# 40246 "parsing/parser.ml"
         ) = Obj.magic op in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_op_ in
         let _endpos = _endpos_op_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4532 "parsing/parser.mly"
+# 4521 "parsing/parser.mly"
                   ( op )
-# 40265 "parsing/parser.ml"
+# 40254 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40270 "parsing/parser.ml"
+# 40259 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40285,22 +40274,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let op : (
-# 989 "parsing/parser.mly"
+# 978 "parsing/parser.mly"
        (string)
-# 40291 "parsing/parser.ml"
+# 40280 "parsing/parser.ml"
         ) = Obj.magic op in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_op_ in
         let _endpos = _endpos_op_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4533 "parsing/parser.mly"
+# 4522 "parsing/parser.mly"
                   ( op )
-# 40299 "parsing/parser.ml"
+# 40288 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40304 "parsing/parser.ml"
+# 40293 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40319,22 +40308,22 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let op : (
-# 990 "parsing/parser.mly"
+# 979 "parsing/parser.mly"
        (string)
-# 40325 "parsing/parser.ml"
+# 40314 "parsing/parser.ml"
         ) = Obj.magic op in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_op_ in
         let _endpos = _endpos_op_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4534 "parsing/parser.mly"
+# 4523 "parsing/parser.mly"
                   ( op )
-# 40333 "parsing/parser.ml"
+# 40322 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40338 "parsing/parser.ml"
+# 40327 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40357,14 +40346,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4535 "parsing/parser.mly"
+# 4524 "parsing/parser.mly"
                    ("+")
-# 40363 "parsing/parser.ml"
+# 40352 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40368 "parsing/parser.ml"
+# 40357 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40387,14 +40376,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4536 "parsing/parser.mly"
+# 4525 "parsing/parser.mly"
                   ("+.")
-# 40393 "parsing/parser.ml"
+# 40382 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40398 "parsing/parser.ml"
+# 40387 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40417,14 +40406,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4537 "parsing/parser.mly"
+# 4526 "parsing/parser.mly"
                   ("+=")
-# 40423 "parsing/parser.ml"
+# 40412 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40428 "parsing/parser.ml"
+# 40417 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40447,14 +40436,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4538 "parsing/parser.mly"
+# 4527 "parsing/parser.mly"
                    ("-")
-# 40453 "parsing/parser.ml"
+# 40442 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40458 "parsing/parser.ml"
+# 40447 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40477,14 +40466,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4539 "parsing/parser.mly"
+# 4528 "parsing/parser.mly"
                   ("-.")
-# 40483 "parsing/parser.ml"
+# 40472 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40488 "parsing/parser.ml"
+# 40477 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40507,14 +40496,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4540 "parsing/parser.mly"
+# 4529 "parsing/parser.mly"
                    ("*")
-# 40513 "parsing/parser.ml"
+# 40502 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40518 "parsing/parser.ml"
+# 40507 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40537,14 +40526,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4541 "parsing/parser.mly"
+# 4530 "parsing/parser.mly"
                    ("%")
-# 40543 "parsing/parser.ml"
+# 40532 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40548 "parsing/parser.ml"
+# 40537 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40567,14 +40556,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4542 "parsing/parser.mly"
+# 4531 "parsing/parser.mly"
                    ("=")
-# 40573 "parsing/parser.ml"
+# 40562 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40578 "parsing/parser.ml"
+# 40567 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40597,14 +40586,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4543 "parsing/parser.mly"
+# 4532 "parsing/parser.mly"
                    ("<")
-# 40603 "parsing/parser.ml"
+# 40592 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40608 "parsing/parser.ml"
+# 40597 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40627,14 +40616,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4544 "parsing/parser.mly"
+# 4533 "parsing/parser.mly"
                    (">")
-# 40633 "parsing/parser.ml"
+# 40622 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40638 "parsing/parser.ml"
+# 40627 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40657,14 +40646,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4545 "parsing/parser.mly"
+# 4534 "parsing/parser.mly"
                   ("or")
-# 40663 "parsing/parser.ml"
+# 40652 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40668 "parsing/parser.ml"
+# 40657 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40687,14 +40676,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4546 "parsing/parser.mly"
+# 4535 "parsing/parser.mly"
                   ("||")
-# 40693 "parsing/parser.ml"
+# 40682 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40698 "parsing/parser.ml"
+# 40687 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40717,14 +40706,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4547 "parsing/parser.mly"
+# 4536 "parsing/parser.mly"
                    ("&")
-# 40723 "parsing/parser.ml"
+# 40712 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40728 "parsing/parser.ml"
+# 40717 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40747,14 +40736,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4548 "parsing/parser.mly"
+# 4537 "parsing/parser.mly"
                   ("&&")
-# 40753 "parsing/parser.ml"
+# 40742 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40758 "parsing/parser.ml"
+# 40747 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40777,14 +40766,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = let _1 = 
-# 4549 "parsing/parser.mly"
+# 4538 "parsing/parser.mly"
                   (":=")
-# 40783 "parsing/parser.ml"
+# 40772 "parsing/parser.ml"
          in
         
-# 4527 "parsing/parser.mly"
+# 4516 "parsing/parser.mly"
                                                 ( _1 )
-# 40788 "parsing/parser.ml"
+# 40777 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40807,9 +40796,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (bool) = 
-# 4414 "parsing/parser.mly"
+# 4403 "parsing/parser.mly"
                                                 ( true )
-# 40813 "parsing/parser.ml"
+# 40802 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40825,9 +40814,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (bool) = 
-# 4415 "parsing/parser.mly"
+# 4404 "parsing/parser.mly"
                                                 ( false )
-# 40831 "parsing/parser.ml"
+# 40820 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40845,7 +40834,7 @@ module Tables = struct
         let _v : (unit option) = 
 # 114 "<standard.mly>"
     ( None )
-# 40849 "parsing/parser.ml"
+# 40838 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40870,7 +40859,7 @@ module Tables = struct
         let _v : (unit option) = 
 # 116 "<standard.mly>"
     ( Some x )
-# 40874 "parsing/parser.ml"
+# 40863 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40888,7 +40877,7 @@ module Tables = struct
         let _v : (unit option) = 
 # 114 "<standard.mly>"
     ( None )
-# 40892 "parsing/parser.ml"
+# 40881 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40913,7 +40902,7 @@ module Tables = struct
         let _v : (unit option) = 
 # 116 "<standard.mly>"
     ( Some x )
-# 40917 "parsing/parser.ml"
+# 40906 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40931,7 +40920,7 @@ module Tables = struct
         let _v : (Jane_asttypes.jkind_annotation option) = 
 # 114 "<standard.mly>"
     ( None )
-# 40935 "parsing/parser.ml"
+# 40924 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40956,7 +40945,7 @@ module Tables = struct
         let _v : (Jane_asttypes.jkind_annotation option) = 
 # 116 "<standard.mly>"
     ( Some x )
-# 40960 "parsing/parser.ml"
+# 40949 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40974,7 +40963,7 @@ module Tables = struct
         let _v : (string Asttypes.loc option) = 
 # 114 "<standard.mly>"
     ( None )
-# 40978 "parsing/parser.ml"
+# 40967 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -40999,9 +40988,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 41005 "parsing/parser.ml"
+# 40994 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -41014,21 +41003,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 41020 "parsing/parser.ml"
+# 41009 "parsing/parser.ml"
             
           in
           
 # 183 "<standard.mly>"
     ( x )
-# 41026 "parsing/parser.ml"
+# 41015 "parsing/parser.ml"
           
         in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41032 "parsing/parser.ml"
+# 41021 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41046,7 +41035,7 @@ module Tables = struct
         let _v : (Parsetree.core_type option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41050 "parsing/parser.ml"
+# 41039 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41078,12 +41067,12 @@ module Tables = struct
         let _v : (Parsetree.core_type option) = let x = 
 # 183 "<standard.mly>"
     ( x )
-# 41082 "parsing/parser.ml"
+# 41071 "parsing/parser.ml"
          in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41087 "parsing/parser.ml"
+# 41076 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41101,7 +41090,7 @@ module Tables = struct
         let _v : (Parsetree.core_type option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41105 "parsing/parser.ml"
+# 41094 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41133,12 +41122,12 @@ module Tables = struct
         let _v : (Parsetree.core_type option) = let x = 
 # 183 "<standard.mly>"
     ( x )
-# 41137 "parsing/parser.ml"
+# 41126 "parsing/parser.ml"
          in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41142 "parsing/parser.ml"
+# 41131 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41156,7 +41145,7 @@ module Tables = struct
         let _v : (Parsetree.expression option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41160 "parsing/parser.ml"
+# 41149 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41189,26 +41178,26 @@ module Tables = struct
           let x =
             let _1 = _1_inlined1 in
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 41195 "parsing/parser.ml"
+# 41184 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 41200 "parsing/parser.ml"
+# 41189 "parsing/parser.ml"
             
           in
           
 # 183 "<standard.mly>"
     ( x )
-# 41206 "parsing/parser.ml"
+# 41195 "parsing/parser.ml"
           
         in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41212 "parsing/parser.ml"
+# 41201 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41267,18 +41256,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 41271 "parsing/parser.ml"
+# 41260 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 41276 "parsing/parser.ml"
+# 41265 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 41282 "parsing/parser.ml"
+# 41271 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -41287,46 +41276,46 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 41293 "parsing/parser.ml"
+# 41282 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 41299 "parsing/parser.ml"
+# 41288 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 41312 "parsing/parser.ml"
+# 41301 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 41318 "parsing/parser.ml"
+# 41307 "parsing/parser.ml"
             
           in
           
 # 183 "<standard.mly>"
     ( x )
-# 41324 "parsing/parser.ml"
+# 41313 "parsing/parser.ml"
           
         in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41330 "parsing/parser.ml"
+# 41319 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41344,7 +41333,7 @@ module Tables = struct
         let _v : (Parsetree.module_type option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41348 "parsing/parser.ml"
+# 41337 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41376,12 +41365,12 @@ module Tables = struct
         let _v : (Parsetree.module_type option) = let x = 
 # 183 "<standard.mly>"
     ( x )
-# 41380 "parsing/parser.ml"
+# 41369 "parsing/parser.ml"
          in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41385 "parsing/parser.ml"
+# 41374 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41399,7 +41388,7 @@ module Tables = struct
         let _v : (Parsetree.pattern option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41403 "parsing/parser.ml"
+# 41392 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41431,12 +41420,12 @@ module Tables = struct
         let _v : (Parsetree.pattern option) = let x = 
 # 183 "<standard.mly>"
     ( x )
-# 41435 "parsing/parser.ml"
+# 41424 "parsing/parser.ml"
          in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41440 "parsing/parser.ml"
+# 41429 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41454,7 +41443,7 @@ module Tables = struct
         let _v : (Parsetree.expression option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41458 "parsing/parser.ml"
+# 41447 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41486,12 +41475,12 @@ module Tables = struct
         let _v : (Parsetree.expression option) = let x = 
 # 183 "<standard.mly>"
     ( x )
-# 41490 "parsing/parser.ml"
+# 41479 "parsing/parser.ml"
          in
         
 # 116 "<standard.mly>"
     ( Some x )
-# 41495 "parsing/parser.ml"
+# 41484 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41509,7 +41498,7 @@ module Tables = struct
         let _v : (N_ary.type_constraint option) = 
 # 114 "<standard.mly>"
     ( None )
-# 41513 "parsing/parser.ml"
+# 41502 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41534,7 +41523,7 @@ module Tables = struct
         let _v : (N_ary.type_constraint option) = 
 # 116 "<standard.mly>"
     ( Some x )
-# 41538 "parsing/parser.ml"
+# 41527 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41553,17 +41542,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1031 "parsing/parser.mly"
+# 1020 "parsing/parser.mly"
        (string)
-# 41559 "parsing/parser.ml"
+# 41548 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4758 "parsing/parser.mly"
+# 4747 "parsing/parser.mly"
                                                 ( _1 )
-# 41567 "parsing/parser.ml"
+# 41556 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41595,18 +41584,18 @@ module Tables = struct
         } = _menhir_stack in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 41601 "parsing/parser.ml"
+# 41590 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (string) = 
-# 4759 "parsing/parser.mly"
+# 4748 "parsing/parser.mly"
                                                 ( _2 )
-# 41610 "parsing/parser.ml"
+# 41599 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41660,9 +41649,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1675 "parsing/parser.mly"
+# 1664 "parsing/parser.mly"
       ( mkmod ~loc:_sloc (Pmod_constraint(me, mty)) )
-# 41666 "parsing/parser.ml"
+# 41655 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41715,9 +41704,9 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _loc__5_ = (_startpos__5_, _endpos__5_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1677 "parsing/parser.mly"
+# 1666 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__5_ )
-# 41721 "parsing/parser.ml"
+# 41710 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41754,9 +41743,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.module_expr) = 
-# 1680 "parsing/parser.mly"
+# 1669 "parsing/parser.mly"
       ( me (* TODO consider reloc *) )
-# 41760 "parsing/parser.ml"
+# 41749 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41795,9 +41784,9 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1682 "parsing/parser.mly"
+# 1671 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 41801 "parsing/parser.ml"
+# 41790 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41851,37 +41840,37 @@ module Tables = struct
           let _1 = _1_inlined2 in
           let e =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 41857 "parsing/parser.ml"
+# 41846 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 41862 "parsing/parser.ml"
+# 41851 "parsing/parser.ml"
             
           in
           
-# 1699 "parsing/parser.mly"
+# 1688 "parsing/parser.mly"
       ( e )
-# 41868 "parsing/parser.ml"
+# 41857 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 41876 "parsing/parser.ml"
+# 41865 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 41885 "parsing/parser.ml"
+# 41874 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -41961,18 +41950,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 41965 "parsing/parser.ml"
+# 41954 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 41970 "parsing/parser.ml"
+# 41959 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 41976 "parsing/parser.ml"
+# 41965 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -41981,57 +41970,57 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 41987 "parsing/parser.ml"
+# 41976 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 41993 "parsing/parser.ml"
+# 41982 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 42006 "parsing/parser.ml"
+# 41995 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42012 "parsing/parser.ml"
+# 42001 "parsing/parser.ml"
             
           in
           
-# 1699 "parsing/parser.mly"
+# 1688 "parsing/parser.mly"
       ( e )
-# 42018 "parsing/parser.ml"
+# 42007 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42026 "parsing/parser.ml"
+# 42015 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42035 "parsing/parser.ml"
+# 42024 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42103,24 +42092,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42111 "parsing/parser.ml"
+# 42100 "parsing/parser.ml"
             
           in
           let _endpos_ty_ = _endpos__1_inlined1_ in
           let e =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 42119 "parsing/parser.ml"
+# 42108 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42124 "parsing/parser.ml"
+# 42113 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42128,26 +42117,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1701 "parsing/parser.mly"
+# 1690 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) )
-# 42134 "parsing/parser.ml"
+# 42123 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42142 "parsing/parser.ml"
+# 42131 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42151 "parsing/parser.ml"
+# 42140 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42240,11 +42229,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42248 "parsing/parser.ml"
+# 42237 "parsing/parser.ml"
             
           in
           let _endpos_ty_ = _endpos__1_inlined3_ in
@@ -42255,18 +42244,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 42259 "parsing/parser.ml"
+# 42248 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 42264 "parsing/parser.ml"
+# 42253 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 42270 "parsing/parser.ml"
+# 42259 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -42275,34 +42264,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42281 "parsing/parser.ml"
+# 42270 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 42287 "parsing/parser.ml"
+# 42276 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 42300 "parsing/parser.ml"
+# 42289 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42306 "parsing/parser.ml"
+# 42295 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42310,26 +42299,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1701 "parsing/parser.mly"
+# 1690 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_constraint (e, ty)) )
-# 42316 "parsing/parser.ml"
+# 42305 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42324 "parsing/parser.ml"
+# 42313 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42333 "parsing/parser.ml"
+# 42322 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42415,11 +42404,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42423 "parsing/parser.ml"
+# 42412 "parsing/parser.ml"
             
           in
           let _endpos_ty2_ = _endpos__1_inlined2_ in
@@ -42429,23 +42418,23 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42437 "parsing/parser.ml"
+# 42426 "parsing/parser.ml"
             
           in
           let e =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 42444 "parsing/parser.ml"
+# 42433 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42449 "parsing/parser.ml"
+# 42438 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42453,26 +42442,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1703 "parsing/parser.mly"
+# 1692 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) )
-# 42459 "parsing/parser.ml"
+# 42448 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42467 "parsing/parser.ml"
+# 42456 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42476 "parsing/parser.ml"
+# 42465 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42579,11 +42568,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42587 "parsing/parser.ml"
+# 42576 "parsing/parser.ml"
             
           in
           let _endpos_ty2_ = _endpos__1_inlined4_ in
@@ -42593,11 +42582,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42601 "parsing/parser.ml"
+# 42590 "parsing/parser.ml"
             
           in
           let e =
@@ -42607,18 +42596,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 42611 "parsing/parser.ml"
+# 42600 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 42616 "parsing/parser.ml"
+# 42605 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 42622 "parsing/parser.ml"
+# 42611 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -42627,34 +42616,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42633 "parsing/parser.ml"
+# 42622 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 42639 "parsing/parser.ml"
+# 42628 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 42652 "parsing/parser.ml"
+# 42641 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42658 "parsing/parser.ml"
+# 42647 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42662,26 +42651,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1703 "parsing/parser.mly"
+# 1692 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_coerce (e, Some ty1, ty2)) )
-# 42668 "parsing/parser.ml"
+# 42657 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42676 "parsing/parser.ml"
+# 42665 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42685 "parsing/parser.ml"
+# 42674 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42753,24 +42742,24 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42761 "parsing/parser.ml"
+# 42750 "parsing/parser.ml"
             
           in
           let _endpos_ty2_ = _endpos__1_inlined1_ in
           let e =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 42769 "parsing/parser.ml"
+# 42758 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42774 "parsing/parser.ml"
+# 42763 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42778,26 +42767,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1705 "parsing/parser.mly"
+# 1694 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) )
-# 42784 "parsing/parser.ml"
+# 42773 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42792 "parsing/parser.ml"
+# 42781 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42801 "parsing/parser.ml"
+# 42790 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -42890,11 +42879,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 42898 "parsing/parser.ml"
+# 42887 "parsing/parser.ml"
             
           in
           let _endpos_ty2_ = _endpos__1_inlined3_ in
@@ -42905,18 +42894,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 42909 "parsing/parser.ml"
+# 42898 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 42914 "parsing/parser.ml"
+# 42903 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 42920 "parsing/parser.ml"
+# 42909 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -42925,34 +42914,34 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42931 "parsing/parser.ml"
+# 42920 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 42937 "parsing/parser.ml"
+# 42926 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 42950 "parsing/parser.ml"
+# 42939 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 42956 "parsing/parser.ml"
+# 42945 "parsing/parser.ml"
             
           in
           let _startpos_e_ = _startpos__1_ in
@@ -42960,26 +42949,26 @@ module Tables = struct
           let _startpos = _startpos_e_ in
           let _loc = (_startpos, _endpos) in
           
-# 1705 "parsing/parser.mly"
+# 1694 "parsing/parser.mly"
       ( ghexp ~loc:_loc (Pexp_coerce (e, None, ty2)) )
-# 42966 "parsing/parser.ml"
+# 42955 "parsing/parser.ml"
           
         in
         let attrs =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 42974 "parsing/parser.ml"
+# 42963 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1686 "parsing/parser.mly"
+# 1675 "parsing/parser.mly"
       ( mkmod ~loc:_sloc ~attrs (Pmod_unpack e) )
-# 42983 "parsing/parser.ml"
+# 42972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43039,30 +43028,30 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _4 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 43045 "parsing/parser.ml"
+# 43034 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43050 "parsing/parser.ml"
+# 43039 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43058 "parsing/parser.ml"
+# 43047 "parsing/parser.ml"
           
         in
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1688 "parsing/parser.mly"
+# 1677 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__6_ )
-# 43066 "parsing/parser.ml"
+# 43055 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43148,18 +43137,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 43152 "parsing/parser.ml"
+# 43141 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 43157 "parsing/parser.ml"
+# 43146 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 43163 "parsing/parser.ml"
+# 43152 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -43168,50 +43157,50 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43174 "parsing/parser.ml"
+# 43163 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 43180 "parsing/parser.ml"
+# 43169 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 43193 "parsing/parser.ml"
+# 43182 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43199 "parsing/parser.ml"
+# 43188 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43207 "parsing/parser.ml"
+# 43196 "parsing/parser.ml"
           
         in
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1688 "parsing/parser.mly"
+# 1677 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__6_ )
-# 43215 "parsing/parser.ml"
+# 43204 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43271,30 +43260,30 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _4 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 43277 "parsing/parser.ml"
+# 43266 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43282 "parsing/parser.ml"
+# 43271 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43290 "parsing/parser.ml"
+# 43279 "parsing/parser.ml"
           
         in
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1690 "parsing/parser.mly"
+# 1679 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__6_ )
-# 43298 "parsing/parser.ml"
+# 43287 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43380,18 +43369,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 43384 "parsing/parser.ml"
+# 43373 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 43389 "parsing/parser.ml"
+# 43378 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 43395 "parsing/parser.ml"
+# 43384 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -43400,50 +43389,50 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43406 "parsing/parser.ml"
+# 43395 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 43412 "parsing/parser.ml"
+# 43401 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 43425 "parsing/parser.ml"
+# 43414 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43431 "parsing/parser.ml"
+# 43420 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43439 "parsing/parser.ml"
+# 43428 "parsing/parser.ml"
           
         in
         let _loc__6_ = (_startpos__6_, _endpos__6_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1690 "parsing/parser.mly"
+# 1679 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__6_ )
-# 43447 "parsing/parser.ml"
+# 43436 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43496,30 +43485,30 @@ module Tables = struct
         let _v : (Parsetree.module_expr) = let _4 =
           let _1 = _1_inlined2 in
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 43502 "parsing/parser.ml"
+# 43491 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43507 "parsing/parser.ml"
+# 43496 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43515 "parsing/parser.ml"
+# 43504 "parsing/parser.ml"
           
         in
         let _loc__5_ = (_startpos__5_, _endpos__5_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1692 "parsing/parser.mly"
+# 1681 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__5_ )
-# 43523 "parsing/parser.ml"
+# 43512 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43598,18 +43587,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 43602 "parsing/parser.ml"
+# 43591 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 43607 "parsing/parser.ml"
+# 43596 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 43613 "parsing/parser.ml"
+# 43602 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -43618,50 +43607,50 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43624 "parsing/parser.ml"
+# 43613 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 43630 "parsing/parser.ml"
+# 43619 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 43643 "parsing/parser.ml"
+# 43632 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 43649 "parsing/parser.ml"
+# 43638 "parsing/parser.ml"
           
         in
         let _3 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43657 "parsing/parser.ml"
+# 43646 "parsing/parser.ml"
           
         in
         let _loc__5_ = (_startpos__5_, _endpos__5_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 1692 "parsing/parser.mly"
+# 1681 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__5_ )
-# 43665 "parsing/parser.ml"
+# 43654 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43684,9 +43673,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = 
-# 3808 "parsing/parser.mly"
+# 3797 "parsing/parser.mly"
                    ( _1 )
-# 43690 "parsing/parser.ml"
+# 43679 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43748,31 +43737,31 @@ module Tables = struct
           let attrs =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43754 "parsing/parser.ml"
+# 43743 "parsing/parser.ml"
             
           in
           let name = 
-# 3829 "parsing/parser.mly"
+# 3818 "parsing/parser.mly"
       ( Some _2 )
-# 43760 "parsing/parser.ml"
+# 43749 "parsing/parser.ml"
            in
           let _startpos_name_ = _startpos__1_ in
           let _endpos = _endpos_jkind_ in
           let _symbolstartpos = _startpos_name_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3803 "parsing/parser.mly"
+# 3792 "parsing/parser.mly"
     ( Jane_syntax.Core_type.core_type_of ~loc:(make_loc _sloc) ~attrs
         (Jtyp_layout (Ltyp_var { name; jkind })) )
-# 43770 "parsing/parser.ml"
+# 43759 "parsing/parser.ml"
           
         in
         
-# 3810 "parsing/parser.mly"
+# 3799 "parsing/parser.mly"
     ( _2, _1 )
-# 43776 "parsing/parser.ml"
+# 43765 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43827,31 +43816,31 @@ module Tables = struct
           let attrs =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 43833 "parsing/parser.ml"
+# 43822 "parsing/parser.ml"
             
           in
           let name = 
-# 3831 "parsing/parser.mly"
+# 3820 "parsing/parser.mly"
       ( None )
-# 43839 "parsing/parser.ml"
+# 43828 "parsing/parser.ml"
            in
           let _startpos_name_ = _startpos__1_ in
           let _endpos = _endpos_jkind_ in
           let _symbolstartpos = _startpos_name_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3803 "parsing/parser.mly"
+# 3792 "parsing/parser.mly"
     ( Jane_syntax.Core_type.core_type_of ~loc:(make_loc _sloc) ~attrs
         (Jtyp_layout (Ltyp_var { name; jkind })) )
-# 43849 "parsing/parser.ml"
+# 43838 "parsing/parser.ml"
           
         in
         
-# 3810 "parsing/parser.mly"
+# 3799 "parsing/parser.mly"
     ( _2, _1 )
-# 43855 "parsing/parser.ml"
+# 43844 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43881,9 +43870,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1593 "parsing/parser.mly"
+# 1582 "parsing/parser.mly"
     ( _1 )
-# 43887 "parsing/parser.ml"
+# 43876 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43913,9 +43902,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1578 "parsing/parser.mly"
+# 1567 "parsing/parser.mly"
     ( _1 )
-# 43919 "parsing/parser.ml"
+# 43908 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43945,9 +43934,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.core_type) = 
-# 1553 "parsing/parser.mly"
+# 1542 "parsing/parser.mly"
     ( _1 )
-# 43951 "parsing/parser.ml"
+# 43940 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -43977,9 +43966,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.expression) = 
-# 1558 "parsing/parser.mly"
+# 1547 "parsing/parser.mly"
     ( _1 )
-# 43983 "parsing/parser.ml"
+# 43972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44009,9 +43998,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1583 "parsing/parser.mly"
+# 1572 "parsing/parser.mly"
     ( _1 )
-# 44015 "parsing/parser.ml"
+# 44004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44041,9 +44030,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1588 "parsing/parser.mly"
+# 1577 "parsing/parser.mly"
     ( _1 )
-# 44047 "parsing/parser.ml"
+# 44036 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44073,9 +44062,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_expr) = 
-# 1548 "parsing/parser.mly"
+# 1537 "parsing/parser.mly"
     ( _1 )
-# 44079 "parsing/parser.ml"
+# 44068 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44105,9 +44094,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.module_type) = 
-# 1543 "parsing/parser.mly"
+# 1532 "parsing/parser.mly"
     ( _1 )
-# 44111 "parsing/parser.ml"
+# 44100 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44137,9 +44126,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1568 "parsing/parser.mly"
+# 1557 "parsing/parser.mly"
     ( _1 )
-# 44143 "parsing/parser.ml"
+# 44132 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44169,9 +44158,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.pattern) = 
-# 1563 "parsing/parser.mly"
+# 1552 "parsing/parser.mly"
     ( _1 )
-# 44175 "parsing/parser.ml"
+# 44164 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44201,9 +44190,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Longident.t) = 
-# 1573 "parsing/parser.mly"
+# 1562 "parsing/parser.mly"
     ( _1 )
-# 44207 "parsing/parser.ml"
+# 44196 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44245,15 +44234,15 @@ module Tables = struct
           let _loc__2_ = (_startpos__2_, _endpos__2_) in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3420 "parsing/parser.mly"
+# 3409 "parsing/parser.mly"
       ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) )
-# 44251 "parsing/parser.ml"
+# 44240 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44257 "parsing/parser.ml"
+# 44246 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44283,14 +44272,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.pattern) = let _1 = 
-# 3422 "parsing/parser.mly"
+# 3411 "parsing/parser.mly"
       ( Pat.attr _1 _2 )
-# 44289 "parsing/parser.ml"
+# 44278 "parsing/parser.ml"
          in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44294 "parsing/parser.ml"
+# 44283 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44313,14 +44302,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 = 
-# 3424 "parsing/parser.mly"
+# 3413 "parsing/parser.mly"
       ( _1 )
-# 44319 "parsing/parser.ml"
+# 44308 "parsing/parser.ml"
          in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44324 "parsing/parser.ml"
+# 44313 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44365,15 +44354,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 44371 "parsing/parser.ml"
+# 44360 "parsing/parser.ml"
                 
               in
               
-# 3427 "parsing/parser.mly"
+# 3416 "parsing/parser.mly"
         ( Ppat_alias(_1, _3) )
-# 44377 "parsing/parser.ml"
+# 44366 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__1_inlined1_ in
@@ -44381,21 +44370,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44387 "parsing/parser.ml"
+# 44376 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 44393 "parsing/parser.ml"
+# 44382 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44399 "parsing/parser.ml"
+# 44388 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44436,9 +44425,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3429 "parsing/parser.mly"
+# 3418 "parsing/parser.mly"
         ( expecting _loc__3_ "identifier" )
-# 44442 "parsing/parser.ml"
+# 44431 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -44446,21 +44435,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44452 "parsing/parser.ml"
+# 44441 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 44458 "parsing/parser.ml"
+# 44447 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44464 "parsing/parser.ml"
+# 44453 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44501,9 +44490,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3431 "parsing/parser.mly"
+# 3420 "parsing/parser.mly"
         ( expecting _loc__3_ "pattern" )
-# 44507 "parsing/parser.ml"
+# 44496 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -44511,21 +44500,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44517 "parsing/parser.ml"
+# 44506 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 44523 "parsing/parser.ml"
+# 44512 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44529 "parsing/parser.ml"
+# 44518 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44564,30 +44553,30 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _1 = 
-# 3433 "parsing/parser.mly"
+# 3422 "parsing/parser.mly"
         ( Ppat_or(_1, _3) )
-# 44570 "parsing/parser.ml"
+# 44559 "parsing/parser.ml"
              in
             let _endpos__1_ = _endpos__3_ in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44579 "parsing/parser.ml"
+# 44568 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 44585 "parsing/parser.ml"
+# 44574 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44591 "parsing/parser.ml"
+# 44580 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44628,9 +44617,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3435 "parsing/parser.mly"
+# 3424 "parsing/parser.mly"
         ( expecting _loc__3_ "pattern" )
-# 44634 "parsing/parser.ml"
+# 44623 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -44638,21 +44627,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44644 "parsing/parser.ml"
+# 44633 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 44650 "parsing/parser.ml"
+# 44639 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44656 "parsing/parser.ml"
+# 44645 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44679,17 +44668,17 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3438 "parsing/parser.mly"
+# 3427 "parsing/parser.mly"
       ( let closed, pats = _1 in
         ppat_ltuple _sloc (List.rev pats) closed
       )
-# 44687 "parsing/parser.ml"
+# 44676 "parsing/parser.ml"
           
         in
         
-# 3408 "parsing/parser.mly"
+# 3397 "parsing/parser.mly"
       ( _1 )
-# 44693 "parsing/parser.ml"
+# 44682 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44737,24 +44726,24 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 44743 "parsing/parser.ml"
+# 44732 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 44749 "parsing/parser.ml"
+# 44738 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3410 "parsing/parser.mly"
+# 3399 "parsing/parser.mly"
       ( mkpat_attrs ~loc:_sloc (Ppat_exception _3) _2)
-# 44758 "parsing/parser.ml"
+# 44747 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44777,9 +44766,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = 
-# 3499 "parsing/parser.mly"
+# 3488 "parsing/parser.mly"
       ( _1 )
-# 44783 "parsing/parser.ml"
+# 44772 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44815,15 +44804,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 44821 "parsing/parser.ml"
+# 44810 "parsing/parser.ml"
               
             in
             
-# 3502 "parsing/parser.mly"
+# 3491 "parsing/parser.mly"
         ( Ppat_construct(_1, Some ([], _2)) )
-# 44827 "parsing/parser.ml"
+# 44816 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_ in
@@ -44831,15 +44820,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44837 "parsing/parser.ml"
+# 44826 "parsing/parser.ml"
           
         in
         
-# 3508 "parsing/parser.mly"
+# 3497 "parsing/parser.mly"
       ( _1 )
-# 44843 "parsing/parser.ml"
+# 44832 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44899,24 +44888,24 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let newtypes = 
-# 3037 "parsing/parser.mly"
+# 3026 "parsing/parser.mly"
     ( xs )
-# 44905 "parsing/parser.ml"
+# 44894 "parsing/parser.ml"
              in
             let constr =
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 44914 "parsing/parser.ml"
+# 44903 "parsing/parser.ml"
               
             in
             
-# 3505 "parsing/parser.mly"
+# 3494 "parsing/parser.mly"
         ( Ppat_construct(constr, Some (newtypes, pat)) )
-# 44920 "parsing/parser.ml"
+# 44909 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_pat_ in
@@ -44924,15 +44913,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44930 "parsing/parser.ml"
+# 44919 "parsing/parser.ml"
           
         in
         
-# 3508 "parsing/parser.mly"
+# 3497 "parsing/parser.mly"
       ( _1 )
-# 44936 "parsing/parser.ml"
+# 44925 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -44963,24 +44952,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3507 "parsing/parser.mly"
+# 3496 "parsing/parser.mly"
         ( Ppat_variant(_1, Some _2) )
-# 44969 "parsing/parser.ml"
+# 44958 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 44978 "parsing/parser.ml"
+# 44967 "parsing/parser.ml"
           
         in
         
-# 3508 "parsing/parser.mly"
+# 3497 "parsing/parser.mly"
       ( _1 )
-# 44984 "parsing/parser.ml"
+# 44973 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45028,24 +45017,24 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 45034 "parsing/parser.ml"
+# 45023 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 45040 "parsing/parser.ml"
+# 45029 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__3_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3510 "parsing/parser.mly"
+# 3499 "parsing/parser.mly"
       ( mkpat_attrs ~loc:_sloc (Ppat_lazy _3) _2)
-# 45049 "parsing/parser.ml"
+# 45038 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45087,15 +45076,15 @@ module Tables = struct
           let _loc__2_ = (_startpos__2_, _endpos__2_) in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3420 "parsing/parser.mly"
+# 3409 "parsing/parser.mly"
       ( mkpat_cons ~loc:_sloc _loc__2_ (ghpat ~loc:_sloc (Ppat_tuple[_1;_3])) )
-# 45093 "parsing/parser.ml"
+# 45082 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45099 "parsing/parser.ml"
+# 45088 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45125,14 +45114,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.pattern) = let _1 = 
-# 3422 "parsing/parser.mly"
+# 3411 "parsing/parser.mly"
       ( Pat.attr _1 _2 )
-# 45131 "parsing/parser.ml"
+# 45120 "parsing/parser.ml"
          in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45136 "parsing/parser.ml"
+# 45125 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45155,14 +45144,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 = 
-# 3424 "parsing/parser.mly"
+# 3413 "parsing/parser.mly"
       ( _1 )
-# 45161 "parsing/parser.ml"
+# 45150 "parsing/parser.ml"
          in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45166 "parsing/parser.ml"
+# 45155 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45207,15 +45196,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 45213 "parsing/parser.ml"
+# 45202 "parsing/parser.ml"
                 
               in
               
-# 3427 "parsing/parser.mly"
+# 3416 "parsing/parser.mly"
         ( Ppat_alias(_1, _3) )
-# 45219 "parsing/parser.ml"
+# 45208 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__1_inlined1_ in
@@ -45223,21 +45212,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45229 "parsing/parser.ml"
+# 45218 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 45235 "parsing/parser.ml"
+# 45224 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45241 "parsing/parser.ml"
+# 45230 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45278,9 +45267,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3429 "parsing/parser.mly"
+# 3418 "parsing/parser.mly"
         ( expecting _loc__3_ "identifier" )
-# 45284 "parsing/parser.ml"
+# 45273 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -45288,21 +45277,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45294 "parsing/parser.ml"
+# 45283 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 45300 "parsing/parser.ml"
+# 45289 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45306 "parsing/parser.ml"
+# 45295 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45343,9 +45332,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3431 "parsing/parser.mly"
+# 3420 "parsing/parser.mly"
         ( expecting _loc__3_ "pattern" )
-# 45349 "parsing/parser.ml"
+# 45338 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -45353,21 +45342,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45359 "parsing/parser.ml"
+# 45348 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 45365 "parsing/parser.ml"
+# 45354 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45371 "parsing/parser.ml"
+# 45360 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45406,30 +45395,30 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _1 = 
-# 3433 "parsing/parser.mly"
+# 3422 "parsing/parser.mly"
         ( Ppat_or(_1, _3) )
-# 45412 "parsing/parser.ml"
+# 45401 "parsing/parser.ml"
              in
             let _endpos__1_ = _endpos__3_ in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45421 "parsing/parser.ml"
+# 45410 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 45427 "parsing/parser.ml"
+# 45416 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45433 "parsing/parser.ml"
+# 45422 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45470,9 +45459,9 @@ module Tables = struct
             let _1 =
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 3435 "parsing/parser.mly"
+# 3424 "parsing/parser.mly"
         ( expecting _loc__3_ "pattern" )
-# 45476 "parsing/parser.ml"
+# 45465 "parsing/parser.ml"
               
             in
             let _endpos__1_ = _endpos__3_ in
@@ -45480,21 +45469,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45486 "parsing/parser.ml"
+# 45475 "parsing/parser.ml"
             
           in
           
-# 3436 "parsing/parser.mly"
+# 3425 "parsing/parser.mly"
     ( _1 )
-# 45492 "parsing/parser.ml"
+# 45481 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45498 "parsing/parser.ml"
+# 45487 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45521,17 +45510,17 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3438 "parsing/parser.mly"
+# 3427 "parsing/parser.mly"
       ( let closed, pats = _1 in
         ppat_ltuple _sloc (List.rev pats) closed
       )
-# 45529 "parsing/parser.ml"
+# 45518 "parsing/parser.ml"
           
         in
         
-# 3415 "parsing/parser.mly"
+# 3404 "parsing/parser.mly"
       ( _1 )
-# 45535 "parsing/parser.ml"
+# 45524 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45550,9 +45539,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 45556 "parsing/parser.ml"
+# 45545 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -45564,30 +45553,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 45570 "parsing/parser.ml"
+# 45559 "parsing/parser.ml"
               
             in
             
-# 2620 "parsing/parser.mly"
+# 2609 "parsing/parser.mly"
                         ( Ppat_var _1 )
-# 45576 "parsing/parser.ml"
+# 45565 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45585 "parsing/parser.ml"
+# 45574 "parsing/parser.ml"
           
         in
         
-# 2622 "parsing/parser.mly"
+# 2611 "parsing/parser.mly"
     ( _1 )
-# 45591 "parsing/parser.ml"
+# 45580 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45611,23 +45600,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 2621 "parsing/parser.mly"
+# 2610 "parsing/parser.mly"
                         ( Ppat_any )
-# 45617 "parsing/parser.ml"
+# 45606 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 45625 "parsing/parser.ml"
+# 45614 "parsing/parser.ml"
           
         in
         
-# 2622 "parsing/parser.mly"
+# 2611 "parsing/parser.mly"
     ( _1 )
-# 45631 "parsing/parser.ml"
+# 45620 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45650,9 +45639,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.payload) = 
-# 4871 "parsing/parser.mly"
+# 4860 "parsing/parser.mly"
               ( PStr _1 )
-# 45656 "parsing/parser.ml"
+# 45645 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45682,9 +45671,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.payload) = 
-# 4872 "parsing/parser.mly"
+# 4861 "parsing/parser.mly"
                     ( PSig _2 )
-# 45688 "parsing/parser.ml"
+# 45677 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45714,9 +45703,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.payload) = 
-# 4873 "parsing/parser.mly"
+# 4862 "parsing/parser.mly"
                     ( PTyp _2 )
-# 45720 "parsing/parser.ml"
+# 45709 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45746,9 +45735,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.payload) = 
-# 4874 "parsing/parser.mly"
+# 4863 "parsing/parser.mly"
                      ( PPat (_2, None) )
-# 45752 "parsing/parser.ml"
+# 45741 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45792,9 +45781,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (Parsetree.payload) = 
-# 4875 "parsing/parser.mly"
+# 4864 "parsing/parser.mly"
                                    ( PPat (_2, Some _4) )
-# 45798 "parsing/parser.ml"
+# 45787 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45817,9 +45806,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = 
-# 4093 "parsing/parser.mly"
+# 4082 "parsing/parser.mly"
     ( _1 )
-# 45823 "parsing/parser.ml"
+# 45812 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45861,24 +45850,24 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 45865 "parsing/parser.ml"
+# 45854 "parsing/parser.ml"
                in
               
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 45870 "parsing/parser.ml"
+# 45859 "parsing/parser.ml"
               
             in
             
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 45876 "parsing/parser.ml"
+# 45865 "parsing/parser.ml"
             
           in
           
-# 4089 "parsing/parser.mly"
+# 4078 "parsing/parser.mly"
     ( (_1, _3) )
-# 45882 "parsing/parser.ml"
+# 45871 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__3_, _startpos_xs_) in
@@ -45886,11 +45875,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4095 "parsing/parser.mly"
+# 4084 "parsing/parser.mly"
     ( let bound_vars, inner_type = _1 in
       Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc)
         (Ltyp_poly { bound_vars; inner_type }) )
-# 45894 "parsing/parser.ml"
+# 45883 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45913,14 +45902,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = let _1 = 
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 45919 "parsing/parser.ml"
+# 45908 "parsing/parser.ml"
          in
         
-# 4093 "parsing/parser.mly"
+# 4082 "parsing/parser.mly"
     ( _1 )
-# 45924 "parsing/parser.ml"
+# 45913 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -45958,33 +45947,33 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type) = let _1 =
           let _3 = 
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 45964 "parsing/parser.ml"
+# 45953 "parsing/parser.ml"
            in
           let _1 =
             let _1 =
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 45971 "parsing/parser.ml"
+# 45960 "parsing/parser.ml"
                in
               
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 45976 "parsing/parser.ml"
+# 45965 "parsing/parser.ml"
               
             in
             
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 45982 "parsing/parser.ml"
+# 45971 "parsing/parser.ml"
             
           in
           
-# 4089 "parsing/parser.mly"
+# 4078 "parsing/parser.mly"
     ( (_1, _3) )
-# 45988 "parsing/parser.ml"
+# 45977 "parsing/parser.ml"
           
         in
         let _startpos__1_ = _startpos_xs_ in
@@ -45992,11 +45981,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4095 "parsing/parser.mly"
+# 4084 "parsing/parser.mly"
     ( let bound_vars, inner_type = _1 in
       Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc)
         (Ltyp_poly { bound_vars; inner_type }) )
-# 46000 "parsing/parser.ml"
+# 45989 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46043,9 +46032,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4832 "parsing/parser.mly"
+# 4821 "parsing/parser.mly"
     ( mk_attr ~loc:(make_loc _sloc) _2 _3 )
-# 46049 "parsing/parser.ml"
+# 46038 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46126,9 +46115,9 @@ module Tables = struct
         let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 46132 "parsing/parser.ml"
+# 46121 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -46138,30 +46127,30 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 46144 "parsing/parser.ml"
+# 46133 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 46152 "parsing/parser.ml"
+# 46141 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3657 "parsing/parser.mly"
+# 3646 "parsing/parser.mly"
     ( let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
       let docs = symbol_docs _sloc in
       Val.mk id ty ~prim ~attrs ~loc ~docs,
       ext )
-# 46165 "parsing/parser.ml"
+# 46154 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46177,14 +46166,14 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.private_flag) = let _1 = 
-# 4687 "parsing/parser.mly"
+# 4676 "parsing/parser.mly"
                                                 ( Public )
-# 46183 "parsing/parser.ml"
+# 46172 "parsing/parser.ml"
          in
         
-# 4684 "parsing/parser.mly"
+# 4673 "parsing/parser.mly"
     ( _1 )
-# 46188 "parsing/parser.ml"
+# 46177 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46207,14 +46196,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.private_flag) = let _1 = 
-# 4688 "parsing/parser.mly"
+# 4677 "parsing/parser.mly"
                                                 ( Private )
-# 46213 "parsing/parser.ml"
+# 46202 "parsing/parser.ml"
          in
         
-# 4684 "parsing/parser.mly"
+# 4673 "parsing/parser.mly"
     ( _1 )
-# 46218 "parsing/parser.ml"
+# 46207 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46230,9 +46219,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = 
-# 4722 "parsing/parser.mly"
+# 4711 "parsing/parser.mly"
                  ( Public, Concrete )
-# 46236 "parsing/parser.ml"
+# 46225 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46255,9 +46244,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = 
-# 4723 "parsing/parser.mly"
+# 4712 "parsing/parser.mly"
             ( Private, Concrete )
-# 46261 "parsing/parser.ml"
+# 46250 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46280,9 +46269,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = 
-# 4724 "parsing/parser.mly"
+# 4713 "parsing/parser.mly"
             ( Public, Virtual )
-# 46286 "parsing/parser.ml"
+# 46275 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46312,9 +46301,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = 
-# 4725 "parsing/parser.mly"
+# 4714 "parsing/parser.mly"
                     ( Private, Virtual )
-# 46318 "parsing/parser.ml"
+# 46307 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46344,9 +46333,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.private_flag * Asttypes.virtual_flag) = 
-# 4726 "parsing/parser.mly"
+# 4715 "parsing/parser.mly"
                     ( Private, Virtual )
-# 46350 "parsing/parser.ml"
+# 46339 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46362,9 +46351,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.rec_flag) = 
-# 4665 "parsing/parser.mly"
+# 4654 "parsing/parser.mly"
                                                 ( Nonrecursive )
-# 46368 "parsing/parser.ml"
+# 46357 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46387,9 +46376,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.rec_flag) = 
-# 4666 "parsing/parser.mly"
+# 4655 "parsing/parser.mly"
                                                 ( Recursive )
-# 46393 "parsing/parser.ml"
+# 46382 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46415,12 +46404,12 @@ module Tables = struct
   (Longident.t Asttypes.loc * Parsetree.expression) list) = let eo = 
 # 124 "<standard.mly>"
     ( None )
-# 46419 "parsing/parser.ml"
+# 46408 "parsing/parser.ml"
          in
         
-# 3329 "parsing/parser.mly"
+# 3318 "parsing/parser.mly"
     ( eo, fields )
-# 46424 "parsing/parser.ml"
+# 46413 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46461,18 +46450,18 @@ module Tables = struct
           let x = 
 # 191 "<standard.mly>"
     ( x )
-# 46465 "parsing/parser.ml"
+# 46454 "parsing/parser.ml"
            in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 46470 "parsing/parser.ml"
+# 46459 "parsing/parser.ml"
           
         in
         
-# 3329 "parsing/parser.mly"
+# 3318 "parsing/parser.mly"
     ( eo, fields )
-# 46476 "parsing/parser.ml"
+# 46465 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46498,18 +46487,18 @@ module Tables = struct
         let _startpos = _startpos_d_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.constructor_declaration list) = let x = 
-# 3881 "parsing/parser.mly"
+# 3870 "parsing/parser.mly"
     (
       let cid, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Layouts.constructor_declaration_of
         cid ~vars_jkinds ~args ~res ~attrs ~loc ~info
     )
-# 46508 "parsing/parser.ml"
+# 46497 "parsing/parser.ml"
          in
         
-# 1435 "parsing/parser.mly"
+# 1424 "parsing/parser.mly"
       ( [x] )
-# 46513 "parsing/parser.ml"
+# 46502 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46535,18 +46524,18 @@ module Tables = struct
         let _startpos = _startpos_d_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.constructor_declaration list) = let x = 
-# 3881 "parsing/parser.mly"
+# 3870 "parsing/parser.mly"
     (
       let cid, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Layouts.constructor_declaration_of
         cid ~vars_jkinds ~args ~res ~attrs ~loc ~info
     )
-# 46545 "parsing/parser.ml"
+# 46534 "parsing/parser.ml"
          in
         
-# 1438 "parsing/parser.mly"
+# 1427 "parsing/parser.mly"
       ( [x] )
-# 46550 "parsing/parser.ml"
+# 46539 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46579,18 +46568,18 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.constructor_declaration list) = let x = 
-# 3881 "parsing/parser.mly"
+# 3870 "parsing/parser.mly"
     (
       let cid, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Layouts.constructor_declaration_of
         cid ~vars_jkinds ~args ~res ~attrs ~loc ~info
     )
-# 46589 "parsing/parser.ml"
+# 46578 "parsing/parser.ml"
          in
         
-# 1442 "parsing/parser.mly"
+# 1431 "parsing/parser.mly"
       ( x :: xs )
-# 46594 "parsing/parser.ml"
+# 46583 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46617,25 +46606,25 @@ module Tables = struct
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x =
           let _1 = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46628 "parsing/parser.ml"
+# 46617 "parsing/parser.ml"
            in
           
-# 4012 "parsing/parser.mly"
+# 4001 "parsing/parser.mly"
       ( _1 )
-# 46633 "parsing/parser.ml"
+# 46622 "parsing/parser.ml"
           
         in
         
-# 1435 "parsing/parser.mly"
+# 1424 "parsing/parser.mly"
       ( [x] )
-# 46639 "parsing/parser.ml"
+# 46628 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46658,14 +46647,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4014 "parsing/parser.mly"
+# 4003 "parsing/parser.mly"
       ( _1 )
-# 46664 "parsing/parser.ml"
+# 46653 "parsing/parser.ml"
          in
         
-# 1435 "parsing/parser.mly"
+# 1424 "parsing/parser.mly"
       ( [x] )
-# 46669 "parsing/parser.ml"
+# 46658 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46692,25 +46681,25 @@ module Tables = struct
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x =
           let _1 = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46703 "parsing/parser.ml"
+# 46692 "parsing/parser.ml"
            in
           
-# 4012 "parsing/parser.mly"
+# 4001 "parsing/parser.mly"
       ( _1 )
-# 46708 "parsing/parser.ml"
+# 46697 "parsing/parser.ml"
           
         in
         
-# 1438 "parsing/parser.mly"
+# 1427 "parsing/parser.mly"
       ( [x] )
-# 46714 "parsing/parser.ml"
+# 46703 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46733,14 +46722,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4014 "parsing/parser.mly"
+# 4003 "parsing/parser.mly"
       ( _1 )
-# 46739 "parsing/parser.ml"
+# 46728 "parsing/parser.ml"
          in
         
-# 1438 "parsing/parser.mly"
+# 1427 "parsing/parser.mly"
       ( [x] )
-# 46744 "parsing/parser.ml"
+# 46733 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46774,25 +46763,25 @@ module Tables = struct
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x =
           let _1 = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46785 "parsing/parser.ml"
+# 46774 "parsing/parser.ml"
            in
           
-# 4012 "parsing/parser.mly"
+# 4001 "parsing/parser.mly"
       ( _1 )
-# 46790 "parsing/parser.ml"
+# 46779 "parsing/parser.ml"
           
         in
         
-# 1442 "parsing/parser.mly"
+# 1431 "parsing/parser.mly"
       ( x :: xs )
-# 46796 "parsing/parser.ml"
+# 46785 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46822,14 +46811,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4014 "parsing/parser.mly"
+# 4003 "parsing/parser.mly"
       ( _1 )
-# 46828 "parsing/parser.ml"
+# 46817 "parsing/parser.ml"
          in
         
-# 1442 "parsing/parser.mly"
+# 1431 "parsing/parser.mly"
       ( x :: xs )
-# 46833 "parsing/parser.ml"
+# 46822 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46855,19 +46844,19 @@ module Tables = struct
         let _startpos = _startpos_d_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46866 "parsing/parser.ml"
+# 46855 "parsing/parser.ml"
          in
         
-# 1435 "parsing/parser.mly"
+# 1424 "parsing/parser.mly"
       ( [x] )
-# 46871 "parsing/parser.ml"
+# 46860 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46893,19 +46882,19 @@ module Tables = struct
         let _startpos = _startpos_d_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46904 "parsing/parser.ml"
+# 46893 "parsing/parser.ml"
          in
         
-# 1438 "parsing/parser.mly"
+# 1427 "parsing/parser.mly"
       ( [x] )
-# 46909 "parsing/parser.ml"
+# 46898 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46938,19 +46927,19 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_d_ in
         let _v : (Parsetree.extension_constructor list) = let x = 
-# 4018 "parsing/parser.mly"
+# 4007 "parsing/parser.mly"
     (
       let name, vars_jkinds, args, res, attrs, loc, info = d in
       Jane_syntax.Extension_constructor.extension_constructor_of
         ~loc ~attrs ~info ~name
           (Jext_layout (Lext_decl(vars_jkinds, args, res)))
     )
-# 46949 "parsing/parser.ml"
+# 46938 "parsing/parser.ml"
          in
         
-# 1442 "parsing/parser.mly"
+# 1431 "parsing/parser.mly"
       ( x :: xs )
-# 46954 "parsing/parser.ml"
+# 46943 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -46989,26 +46978,26 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x =
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 46995 "parsing/parser.ml"
+# 46984 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47000 "parsing/parser.ml"
+# 46989 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 47006 "parsing/parser.ml"
+# 46995 "parsing/parser.ml"
           
         in
         
-# 3297 "parsing/parser.mly"
+# 3286 "parsing/parser.mly"
     ( x :: xs )
-# 47012 "parsing/parser.ml"
+# 47001 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47074,18 +47063,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 47078 "parsing/parser.ml"
+# 47067 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 47083 "parsing/parser.ml"
+# 47072 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 47089 "parsing/parser.ml"
+# 47078 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -47094,46 +47083,46 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 47100 "parsing/parser.ml"
+# 47089 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 47106 "parsing/parser.ml"
+# 47095 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 47119 "parsing/parser.ml"
+# 47108 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47125 "parsing/parser.ml"
+# 47114 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 47131 "parsing/parser.ml"
+# 47120 "parsing/parser.ml"
           
         in
         
-# 3297 "parsing/parser.mly"
+# 3286 "parsing/parser.mly"
     ( x :: xs )
-# 47137 "parsing/parser.ml"
+# 47126 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47171,9 +47160,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 47177 "parsing/parser.ml"
+# 47166 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let xs : ((string option * Parsetree.expression) list) = Obj.magic xs in
@@ -47183,15 +47172,15 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x =
           let _2 = _2_inlined1 in
           
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 47189 "parsing/parser.ml"
+# 47178 "parsing/parser.ml"
           
         in
         
-# 3297 "parsing/parser.mly"
+# 3286 "parsing/parser.mly"
     ( x :: xs )
-# 47195 "parsing/parser.ml"
+# 47184 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47228,9 +47217,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 47234 "parsing/parser.ml"
+# 47223 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
@@ -47241,16 +47230,16 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 47248 "parsing/parser.ml"
+# 47237 "parsing/parser.ml"
           
         in
         
-# 3297 "parsing/parser.mly"
+# 3286 "parsing/parser.mly"
     ( x :: xs )
-# 47254 "parsing/parser.ml"
+# 47243 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47307,9 +47296,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 47313 "parsing/parser.ml"
+# 47302 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -47323,17 +47312,17 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 47331 "parsing/parser.ml"
+# 47320 "parsing/parser.ml"
           
         in
         
-# 3297 "parsing/parser.mly"
+# 3286 "parsing/parser.mly"
     ( x :: xs )
-# 47337 "parsing/parser.ml"
+# 47326 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47373,38 +47362,38 @@ module Tables = struct
           let _1 = _1_inlined1 in
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47379 "parsing/parser.ml"
+# 47368 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47384 "parsing/parser.ml"
+# 47373 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 47390 "parsing/parser.ml"
+# 47379 "parsing/parser.ml"
           
         in
         let x1 =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47397 "parsing/parser.ml"
+# 47386 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47402 "parsing/parser.ml"
+# 47391 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47408 "parsing/parser.ml"
+# 47397 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47470,18 +47459,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 47474 "parsing/parser.ml"
+# 47463 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 47479 "parsing/parser.ml"
+# 47468 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 47485 "parsing/parser.ml"
+# 47474 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -47490,58 +47479,58 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 47496 "parsing/parser.ml"
+# 47485 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 47502 "parsing/parser.ml"
+# 47491 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 47515 "parsing/parser.ml"
+# 47504 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47521 "parsing/parser.ml"
+# 47510 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 47527 "parsing/parser.ml"
+# 47516 "parsing/parser.ml"
           
         in
         let x1 =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47534 "parsing/parser.ml"
+# 47523 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47539 "parsing/parser.ml"
+# 47528 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47545 "parsing/parser.ml"
+# 47534 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47579,9 +47568,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 47585 "parsing/parser.ml"
+# 47574 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
@@ -47591,27 +47580,27 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 47597 "parsing/parser.ml"
+# 47586 "parsing/parser.ml"
           
         in
         let x1 =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47604 "parsing/parser.ml"
+# 47593 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47609 "parsing/parser.ml"
+# 47598 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47615 "parsing/parser.ml"
+# 47604 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47648,9 +47637,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 47654 "parsing/parser.ml"
+# 47643 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _2 : unit = Obj.magic _2 in
@@ -47661,28 +47650,28 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 47668 "parsing/parser.ml"
+# 47657 "parsing/parser.ml"
           
         in
         let x1 =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47675 "parsing/parser.ml"
+# 47664 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47680 "parsing/parser.ml"
+# 47669 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47686 "parsing/parser.ml"
+# 47675 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47739,9 +47728,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 47745 "parsing/parser.ml"
+# 47734 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -47755,29 +47744,29 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 47763 "parsing/parser.ml"
+# 47752 "parsing/parser.ml"
           
         in
         let x1 =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47770 "parsing/parser.ml"
+# 47759 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47775 "parsing/parser.ml"
+# 47764 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47781 "parsing/parser.ml"
+# 47770 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -47838,20 +47827,20 @@ module Tables = struct
           let _1 = _1_inlined3 in
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 47844 "parsing/parser.ml"
+# 47833 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47849 "parsing/parser.ml"
+# 47838 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 47855 "parsing/parser.ml"
+# 47844 "parsing/parser.ml"
           
         in
         let x1 =
@@ -47861,18 +47850,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 47865 "parsing/parser.ml"
+# 47854 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 47870 "parsing/parser.ml"
+# 47859 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 47876 "parsing/parser.ml"
+# 47865 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -47881,40 +47870,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 47887 "parsing/parser.ml"
+# 47876 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 47893 "parsing/parser.ml"
+# 47882 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 47906 "parsing/parser.ml"
+# 47895 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 47912 "parsing/parser.ml"
+# 47901 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 47918 "parsing/parser.ml"
+# 47907 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48001,18 +47990,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48005 "parsing/parser.ml"
+# 47994 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48010 "parsing/parser.ml"
+# 47999 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48016 "parsing/parser.ml"
+# 48005 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -48021,40 +48010,40 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48027 "parsing/parser.ml"
+# 48016 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48033 "parsing/parser.ml"
+# 48022 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48046 "parsing/parser.ml"
+# 48035 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48052 "parsing/parser.ml"
+# 48041 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 48058 "parsing/parser.ml"
+# 48047 "parsing/parser.ml"
           
         in
         let x1 =
@@ -48064,18 +48053,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48068 "parsing/parser.ml"
+# 48057 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48073 "parsing/parser.ml"
+# 48062 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48079 "parsing/parser.ml"
+# 48068 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -48084,40 +48073,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48090 "parsing/parser.ml"
+# 48079 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48096 "parsing/parser.ml"
+# 48085 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48109 "parsing/parser.ml"
+# 48098 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48115 "parsing/parser.ml"
+# 48104 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 48121 "parsing/parser.ml"
+# 48110 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48173,9 +48162,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in
         let _1_inlined3 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48179 "parsing/parser.ml"
+# 48168 "parsing/parser.ml"
         ) = Obj.magic _1_inlined3 in
         let _2 : unit = Obj.magic _2 in
         let xs : (Parsetree.case list) = Obj.magic xs in
@@ -48188,9 +48177,9 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let (_2, _1) = (_2_inlined1, _1_inlined3) in
           
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 48194 "parsing/parser.ml"
+# 48183 "parsing/parser.ml"
           
         in
         let x1 =
@@ -48200,18 +48189,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48204 "parsing/parser.ml"
+# 48193 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48209 "parsing/parser.ml"
+# 48198 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48215 "parsing/parser.ml"
+# 48204 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -48220,40 +48209,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48226 "parsing/parser.ml"
+# 48215 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48232 "parsing/parser.ml"
+# 48221 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48245 "parsing/parser.ml"
+# 48234 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48251 "parsing/parser.ml"
+# 48240 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 48257 "parsing/parser.ml"
+# 48246 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48308,9 +48297,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 48314 "parsing/parser.ml"
+# 48303 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined3 : unit = Obj.magic _1_inlined3 in
         let _2 : unit = Obj.magic _2 in
@@ -48324,10 +48313,10 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 48331 "parsing/parser.ml"
+# 48320 "parsing/parser.ml"
           
         in
         let x1 =
@@ -48337,18 +48326,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48341 "parsing/parser.ml"
+# 48330 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48346 "parsing/parser.ml"
+# 48335 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48352 "parsing/parser.ml"
+# 48341 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -48357,40 +48346,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48363 "parsing/parser.ml"
+# 48352 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48369 "parsing/parser.ml"
+# 48358 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48382 "parsing/parser.ml"
+# 48371 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48388 "parsing/parser.ml"
+# 48377 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 48394 "parsing/parser.ml"
+# 48383 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48465,9 +48454,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 48471 "parsing/parser.ml"
+# 48460 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined3 : unit = Obj.magic _1_inlined3 in
@@ -48484,11 +48473,11 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 48492 "parsing/parser.ml"
+# 48481 "parsing/parser.ml"
           
         in
         let x1 =
@@ -48498,18 +48487,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48502 "parsing/parser.ml"
+# 48491 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48507 "parsing/parser.ml"
+# 48496 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48513 "parsing/parser.ml"
+# 48502 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -48518,40 +48507,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48524 "parsing/parser.ml"
+# 48513 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48530 "parsing/parser.ml"
+# 48519 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48543 "parsing/parser.ml"
+# 48532 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48549 "parsing/parser.ml"
+# 48538 "parsing/parser.ml"
           
         in
         
-# 3302 "parsing/parser.mly"
+# 3291 "parsing/parser.mly"
     ( [ x2; None, x1 ] )
-# 48555 "parsing/parser.ml"
+# 48544 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48591,9 +48580,9 @@ module Tables = struct
         let _3 : unit = Obj.magic _3 in
         let x1 : (Parsetree.expression) = Obj.magic x1 in
         let l1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48597 "parsing/parser.ml"
+# 48586 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_l1_ in
@@ -48601,26 +48590,26 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 48607 "parsing/parser.ml"
+# 48596 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48612 "parsing/parser.ml"
+# 48601 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 48618 "parsing/parser.ml"
+# 48607 "parsing/parser.ml"
           
         in
         
-# 3306 "parsing/parser.mly"
+# 3295 "parsing/parser.mly"
     ( [ x2; Some l1, x1 ] )
-# 48624 "parsing/parser.ml"
+# 48613 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48681,9 +48670,9 @@ module Tables = struct
         let _3 : unit = Obj.magic _3 in
         let x1 : (Parsetree.expression) = Obj.magic x1 in
         let l1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48687 "parsing/parser.ml"
+# 48676 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_l1_ in
@@ -48696,18 +48685,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 48700 "parsing/parser.ml"
+# 48689 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 48705 "parsing/parser.ml"
+# 48694 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 48711 "parsing/parser.ml"
+# 48700 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -48716,46 +48705,46 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 48722 "parsing/parser.ml"
+# 48711 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 48728 "parsing/parser.ml"
+# 48717 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 48741 "parsing/parser.ml"
+# 48730 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 48747 "parsing/parser.ml"
+# 48736 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 48753 "parsing/parser.ml"
+# 48742 "parsing/parser.ml"
           
         in
         
-# 3306 "parsing/parser.mly"
+# 3295 "parsing/parser.mly"
     ( [ x2; Some l1, x1 ] )
-# 48759 "parsing/parser.ml"
+# 48748 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48799,29 +48788,29 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.expression) = Obj.magic _2 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48805 "parsing/parser.ml"
+# 48794 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _3 : unit = Obj.magic _3 in
         let x1 : (Parsetree.expression) = Obj.magic x1 in
         let l1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48812 "parsing/parser.ml"
+# 48801 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_l1_ in
         let _endpos = _endpos__2_ in
         let _v : ((string option * Parsetree.expression) list) = let x2 = 
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 48820 "parsing/parser.ml"
+# 48809 "parsing/parser.ml"
          in
         
-# 3306 "parsing/parser.mly"
+# 3295 "parsing/parser.mly"
     ( [ x2; Some l1, x1 ] )
-# 48825 "parsing/parser.ml"
+# 48814 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48864,17 +48853,17 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 48870 "parsing/parser.ml"
+# 48859 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _3 : unit = Obj.magic _3 in
         let x1 : (Parsetree.expression) = Obj.magic x1 in
         let l1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48878 "parsing/parser.ml"
+# 48867 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_l1_ in
@@ -48882,16 +48871,16 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 48889 "parsing/parser.ml"
+# 48878 "parsing/parser.ml"
           
         in
         
-# 3306 "parsing/parser.mly"
+# 3295 "parsing/parser.mly"
     ( [ x2; Some l1, x1 ] )
-# 48895 "parsing/parser.ml"
+# 48884 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -48954,18 +48943,18 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 48960 "parsing/parser.ml"
+# 48949 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _3 : unit = Obj.magic _3 in
         let x1 : (Parsetree.expression) = Obj.magic x1 in
         let l1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 48969 "parsing/parser.ml"
+# 48958 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_l1_ in
@@ -48974,17 +48963,17 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 48982 "parsing/parser.ml"
+# 48971 "parsing/parser.ml"
           
         in
         
-# 3306 "parsing/parser.mly"
+# 3295 "parsing/parser.mly"
     ( [ x2; Some l1, x1 ] )
-# 48988 "parsing/parser.ml"
+# 48977 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49023,9 +49012,9 @@ module Tables = struct
         let _1_inlined1 : (Parsetree.expression) = Obj.magic _1_inlined1 in
         let _3 : unit = Obj.magic _3 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49029 "parsing/parser.ml"
+# 49018 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -49035,28 +49024,28 @@ module Tables = struct
           let _1 = _1_inlined1 in
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 49041 "parsing/parser.ml"
+# 49030 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 49046 "parsing/parser.ml"
+# 49035 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 49052 "parsing/parser.ml"
+# 49041 "parsing/parser.ml"
           
         in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3310 "parsing/parser.mly"
+# 3299 "parsing/parser.mly"
   ( let loc = _loc_l1_ in
     [ x2; Some l1, mkexpvar ~loc l1] )
-# 49060 "parsing/parser.ml"
+# 49049 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49116,9 +49105,9 @@ module Tables = struct
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _3 : unit = Obj.magic _3 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49122 "parsing/parser.ml"
+# 49111 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -49133,18 +49122,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 49137 "parsing/parser.ml"
+# 49126 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 49142 "parsing/parser.ml"
+# 49131 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 49148 "parsing/parser.ml"
+# 49137 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -49153,48 +49142,48 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 49159 "parsing/parser.ml"
+# 49148 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 49165 "parsing/parser.ml"
+# 49154 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 49178 "parsing/parser.ml"
+# 49167 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 49184 "parsing/parser.ml"
+# 49173 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 49190 "parsing/parser.ml"
+# 49179 "parsing/parser.ml"
           
         in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3310 "parsing/parser.mly"
+# 3299 "parsing/parser.mly"
   ( let loc = _loc_l1_ in
     [ x2; Some l1, mkexpvar ~loc l1] )
-# 49198 "parsing/parser.ml"
+# 49187 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49238,15 +49227,15 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.expression) = Obj.magic _2 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 49244 "parsing/parser.ml"
+# 49233 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : unit = Obj.magic _3 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49250 "parsing/parser.ml"
+# 49239 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -49255,17 +49244,17 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _1 = _1_inlined1 in
           
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 49261 "parsing/parser.ml"
+# 49250 "parsing/parser.ml"
           
         in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3310 "parsing/parser.mly"
+# 3299 "parsing/parser.mly"
   ( let loc = _loc_l1_ in
     [ x2; Some l1, mkexpvar ~loc l1] )
-# 49269 "parsing/parser.ml"
+# 49258 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49308,16 +49297,16 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49314 "parsing/parser.ml"
+# 49303 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _3 : unit = Obj.magic _3 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49321 "parsing/parser.ml"
+# 49310 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -49326,18 +49315,18 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 49333 "parsing/parser.ml"
+# 49322 "parsing/parser.ml"
           
         in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3310 "parsing/parser.mly"
+# 3299 "parsing/parser.mly"
   ( let loc = _loc_l1_ in
     [ x2; Some l1, mkexpvar ~loc l1] )
-# 49341 "parsing/parser.ml"
+# 49330 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49400,17 +49389,17 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49406 "parsing/parser.ml"
+# 49395 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2 : unit = Obj.magic _2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _3 : unit = Obj.magic _3 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49414 "parsing/parser.ml"
+# 49403 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -49420,19 +49409,19 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 49428 "parsing/parser.ml"
+# 49417 "parsing/parser.ml"
           
         in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3310 "parsing/parser.mly"
+# 3299 "parsing/parser.mly"
   ( let loc = _loc_l1_ in
     [ x2; Some l1, mkexpvar ~loc l1] )
-# 49436 "parsing/parser.ml"
+# 49425 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49491,9 +49480,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty1 : (N_ary.type_constraint) = Obj.magic ty1 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49497 "parsing/parser.ml"
+# 49486 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -49504,33 +49493,33 @@ module Tables = struct
           let _1 = _1_inlined1 in
           let _1 =
             let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 49510 "parsing/parser.ml"
+# 49499 "parsing/parser.ml"
              in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 49515 "parsing/parser.ml"
+# 49504 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 49521 "parsing/parser.ml"
+# 49510 "parsing/parser.ml"
           
         in
         let _endpos_x2_ = _endpos__1_inlined1_ in
         let _endpos = _endpos_x2_ in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3315 "parsing/parser.mly"
+# 3304 "parsing/parser.mly"
   ( let x1 =
       mkexp_constraint
         ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) ty1
     in
     [ x2; Some l1, x1] )
-# 49534 "parsing/parser.ml"
+# 49523 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49610,9 +49599,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty1 : (N_ary.type_constraint) = Obj.magic ty1 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49616 "parsing/parser.ml"
+# 49605 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -49628,18 +49617,18 @@ module Tables = struct
                   let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 49632 "parsing/parser.ml"
+# 49621 "parsing/parser.ml"
                    in
                   
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 49637 "parsing/parser.ml"
+# 49626 "parsing/parser.ml"
                   
                 in
                 
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 49643 "parsing/parser.ml"
+# 49632 "parsing/parser.ml"
                 
               in
               let _endpos__3_ = _endpos_xs_ in
@@ -49648,53 +49637,53 @@ module Tables = struct
                 let _2 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 49654 "parsing/parser.ml"
+# 49643 "parsing/parser.ml"
                   
                 in
                 
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 49660 "parsing/parser.ml"
+# 49649 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__3_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 49673 "parsing/parser.ml"
+# 49662 "parsing/parser.ml"
               
             in
             
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 49679 "parsing/parser.ml"
+# 49668 "parsing/parser.ml"
             
           in
           
-# 3281 "parsing/parser.mly"
+# 3270 "parsing/parser.mly"
      ( None, _1 )
-# 49685 "parsing/parser.ml"
+# 49674 "parsing/parser.ml"
           
         in
         let _endpos_x2_ = _endpos_xs_ in
         let _endpos = _endpos_x2_ in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3315 "parsing/parser.mly"
+# 3304 "parsing/parser.mly"
   ( let x1 =
       mkexp_constraint
         ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) ty1
     in
     [ x2; Some l1, x1] )
-# 49698 "parsing/parser.ml"
+# 49687 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49756,17 +49745,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2_inlined1 : (Parsetree.expression) = Obj.magic _2_inlined1 in
         let _1_inlined1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 49762 "parsing/parser.ml"
+# 49751 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _6 : unit = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let ty1 : (N_ary.type_constraint) = Obj.magic ty1 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49770 "parsing/parser.ml"
+# 49759 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -49776,22 +49765,22 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let (_2, _1) = (_2_inlined1, _1_inlined1) in
           
-# 3283 "parsing/parser.mly"
+# 3272 "parsing/parser.mly"
      ( Some _1, _2 )
-# 49782 "parsing/parser.ml"
+# 49771 "parsing/parser.ml"
           
         in
         let _endpos_x2_ = _endpos__2_inlined1_ in
         let _endpos = _endpos_x2_ in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3315 "parsing/parser.mly"
+# 3304 "parsing/parser.mly"
   ( let x1 =
       mkexp_constraint
         ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) ty1
     in
     [ x2; Some l1, x1] )
-# 49795 "parsing/parser.ml"
+# 49784 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49852,18 +49841,18 @@ module Tables = struct
           };
         } = _menhir_stack in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49858 "parsing/parser.ml"
+# 49847 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _6 : unit = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let ty1 : (N_ary.type_constraint) = Obj.magic ty1 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49867 "parsing/parser.ml"
+# 49856 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -49873,23 +49862,23 @@ module Tables = struct
         let _v : ((string option * Parsetree.expression) list) = let x2 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3285 "parsing/parser.mly"
+# 3274 "parsing/parser.mly"
      ( let loc = _loc_label_ in
        Some label, mkexpvar ~loc label )
-# 49880 "parsing/parser.ml"
+# 49869 "parsing/parser.ml"
           
         in
         let _endpos_x2_ = _endpos_label_ in
         let _endpos = _endpos_x2_ in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3315 "parsing/parser.mly"
+# 3304 "parsing/parser.mly"
   ( let x1 =
       mkexp_constraint
         ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) ty1
     in
     [ x2; Some l1, x1] )
-# 49893 "parsing/parser.ml"
+# 49882 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -49970,9 +49959,9 @@ module Tables = struct
         let _5_inlined1 : unit = Obj.magic _5_inlined1 in
         let ty : (N_ary.type_constraint) = Obj.magic ty in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49976 "parsing/parser.ml"
+# 49965 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -49980,9 +49969,9 @@ module Tables = struct
         let _5 : unit = Obj.magic _5 in
         let ty1 : (N_ary.type_constraint) = Obj.magic ty1 in
         let l1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 49986 "parsing/parser.ml"
+# 49975 "parsing/parser.ml"
         ) = Obj.magic l1 in
         let _2 : unit = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
@@ -49994,24 +49983,24 @@ module Tables = struct
           let _endpos = _endpos__5_ in
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3288 "parsing/parser.mly"
+# 3277 "parsing/parser.mly"
       ( Some label,
         mkexp_constraint
           ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_label_ label) ty )
-# 50002 "parsing/parser.ml"
+# 49991 "parsing/parser.ml"
           
         in
         let _endpos_x2_ = _endpos__5_inlined1_ in
         let _endpos = _endpos_x2_ in
         let _loc_l1_ = (_startpos_l1_, _endpos_l1_) in
         
-# 3315 "parsing/parser.mly"
+# 3304 "parsing/parser.mly"
   ( let x1 =
       mkexp_constraint
         ~loc:(_startpos__2_, _endpos) (mkexpvar ~loc:_loc_l1_ l1) ty1
     in
     [ x2; Some l1, x1] )
-# 50015 "parsing/parser.ml"
+# 50004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50034,9 +50023,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = 
-# 3491 "parsing/parser.mly"
+# 3480 "parsing/parser.mly"
       ( Closed, _1 )
-# 50040 "parsing/parser.ml"
+# 50029 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50073,9 +50062,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = 
-# 3493 "parsing/parser.mly"
+# 3482 "parsing/parser.mly"
       ( Open, _1 )
-# 50079 "parsing/parser.ml"
+# 50068 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50112,14 +50101,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 50118 "parsing/parser.ml"
+# 50107 "parsing/parser.ml"
          in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50123 "parsing/parser.ml"
+# 50112 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50159,9 +50148,9 @@ module Tables = struct
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 50165 "parsing/parser.ml"
+# 50154 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -50169,15 +50158,15 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 50175 "parsing/parser.ml"
+# 50164 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50181 "parsing/parser.ml"
+# 50170 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50216,9 +50205,9 @@ module Tables = struct
         let _3 : unit = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 50222 "parsing/parser.ml"
+# 50211 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -50227,16 +50216,16 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 50234 "parsing/parser.ml"
+# 50223 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50240 "parsing/parser.ml"
+# 50229 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50302,9 +50291,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 50308 "parsing/parser.ml"
+# 50297 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -50314,17 +50303,17 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 50322 "parsing/parser.ml"
+# 50311 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50328 "parsing/parser.ml"
+# 50317 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50347,9 +50336,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = 
-# 3491 "parsing/parser.mly"
+# 3480 "parsing/parser.mly"
       ( Closed, _1 )
-# 50353 "parsing/parser.ml"
+# 50342 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50386,9 +50375,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = 
-# 3493 "parsing/parser.mly"
+# 3482 "parsing/parser.mly"
       ( Open, _1 )
-# 50392 "parsing/parser.ml"
+# 50381 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50425,14 +50414,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 = 
-# 3469 "parsing/parser.mly"
+# 3458 "parsing/parser.mly"
          ( None, _1 )
-# 50431 "parsing/parser.ml"
+# 50420 "parsing/parser.ml"
          in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50436 "parsing/parser.ml"
+# 50425 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50472,9 +50461,9 @@ module Tables = struct
         let _2 : unit = Obj.magic _2 in
         let _2_inlined1 : (Parsetree.pattern) = Obj.magic _2_inlined1 in
         let _1 : (
-# 998 "parsing/parser.mly"
+# 987 "parsing/parser.mly"
        (string)
-# 50478 "parsing/parser.ml"
+# 50467 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -50482,15 +50471,15 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _2 = _2_inlined1 in
           
-# 3471 "parsing/parser.mly"
+# 3460 "parsing/parser.mly"
       ( Some _1, _2 )
-# 50488 "parsing/parser.ml"
+# 50477 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50494 "parsing/parser.ml"
+# 50483 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50529,9 +50518,9 @@ module Tables = struct
         let _3 : unit = Obj.magic _3 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 50535 "parsing/parser.ml"
+# 50524 "parsing/parser.ml"
         ) = Obj.magic label in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -50540,16 +50529,16 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3473 "parsing/parser.mly"
+# 3462 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         Some label, mkpatvar ~loc label )
-# 50547 "parsing/parser.ml"
+# 50536 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50553 "parsing/parser.ml"
+# 50542 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50615,9 +50604,9 @@ module Tables = struct
         let cty : (Parsetree.core_type) = Obj.magic cty in
         let _4 : unit = Obj.magic _4 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 50621 "parsing/parser.ml"
+# 50610 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -50627,17 +50616,17 @@ module Tables = struct
         let _v : (Asttypes.closed_flag * (string option * Parsetree.pattern) list) = let _1 =
           let _loc_label_ = (_startpos_label_, _endpos_label_) in
           
-# 3476 "parsing/parser.mly"
+# 3465 "parsing/parser.mly"
       ( let loc = _loc_label_ in
         let pat = mkpatvar ~loc label in
         Some label, mkpat_opt_constraint ~loc pat (Some cty) )
-# 50635 "parsing/parser.ml"
+# 50624 "parsing/parser.ml"
           
         in
         
-# 3495 "parsing/parser.mly"
+# 3484 "parsing/parser.mly"
       ( Open, [ _1 ] )
-# 50641 "parsing/parser.ml"
+# 50630 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50653,9 +50642,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : ((Parsetree.core_type * Parsetree.core_type * Location.t) list) = 
-# 1281 "parsing/parser.mly"
+# 1270 "parsing/parser.mly"
     ( [] )
-# 50659 "parsing/parser.ml"
+# 50648 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50712,21 +50701,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2467 "parsing/parser.mly"
+# 2456 "parsing/parser.mly"
     ( _1, _3, make_loc _sloc )
-# 50718 "parsing/parser.ml"
+# 50707 "parsing/parser.ml"
             
           in
           
 # 183 "<standard.mly>"
     ( x )
-# 50724 "parsing/parser.ml"
+# 50713 "parsing/parser.ml"
           
         in
         
-# 1283 "parsing/parser.mly"
+# 1272 "parsing/parser.mly"
     ( x :: xs )
-# 50730 "parsing/parser.ml"
+# 50719 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50749,9 +50738,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (N_ary.function_param list) = 
-# 1314 "parsing/parser.mly"
+# 1303 "parsing/parser.mly"
     ( List.rev x )
-# 50755 "parsing/parser.ml"
+# 50744 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50781,9 +50770,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (N_ary.function_param list) = 
-# 1316 "parsing/parser.mly"
+# 1305 "parsing/parser.mly"
     ( List.rev_append x xs )
-# 50787 "parsing/parser.ml"
+# 50776 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50806,9 +50795,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Jane_syntax.Comprehensions.clause list) = 
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 50812 "parsing/parser.ml"
+# 50801 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50838,9 +50827,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Jane_syntax.Comprehensions.clause list) = 
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 50844 "parsing/parser.ml"
+# 50833 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50863,9 +50852,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : ((Lexing.position * Parsetree.functor_parameter) list) = 
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 50869 "parsing/parser.ml"
+# 50858 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50895,9 +50884,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : ((Lexing.position * Parsetree.functor_parameter) list) = 
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 50901 "parsing/parser.ml"
+# 50890 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50920,9 +50909,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : ((Asttypes.arg_label * Parsetree.expression) list) = 
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 50926 "parsing/parser.ml"
+# 50915 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50952,9 +50941,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : ((Asttypes.arg_label * Parsetree.expression) list) = 
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 50958 "parsing/parser.ml"
+# 50947 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -50977,9 +50966,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Asttypes.label list) = 
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 50983 "parsing/parser.ml"
+# 50972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51009,9 +50998,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Asttypes.label list) = 
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 51015 "parsing/parser.ml"
+# 51004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51047,21 +51036,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 51053 "parsing/parser.ml"
+# 51042 "parsing/parser.ml"
             
           in
           
-# 4078 "parsing/parser.mly"
+# 4067 "parsing/parser.mly"
       ( (_2, None) )
-# 51059 "parsing/parser.ml"
+# 51048 "parsing/parser.ml"
           
         in
         
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 51065 "parsing/parser.ml"
+# 51054 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51125,21 +51114,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 51131 "parsing/parser.ml"
+# 51120 "parsing/parser.ml"
             
           in
           
-# 4080 "parsing/parser.mly"
+# 4069 "parsing/parser.mly"
       ( (tyvar, Some jkind) )
-# 51137 "parsing/parser.ml"
+# 51126 "parsing/parser.ml"
           
         in
         
-# 1295 "parsing/parser.mly"
+# 1284 "parsing/parser.mly"
     ( [ x ] )
-# 51143 "parsing/parser.ml"
+# 51132 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51182,21 +51171,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 51188 "parsing/parser.ml"
+# 51177 "parsing/parser.ml"
             
           in
           
-# 4078 "parsing/parser.mly"
+# 4067 "parsing/parser.mly"
       ( (_2, None) )
-# 51194 "parsing/parser.ml"
+# 51183 "parsing/parser.ml"
           
         in
         
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 51200 "parsing/parser.ml"
+# 51189 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51267,21 +51256,21 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 51273 "parsing/parser.ml"
+# 51262 "parsing/parser.ml"
             
           in
           
-# 4080 "parsing/parser.mly"
+# 4069 "parsing/parser.mly"
       ( (tyvar, Some jkind) )
-# 51279 "parsing/parser.ml"
+# 51268 "parsing/parser.ml"
           
         in
         
-# 1297 "parsing/parser.mly"
+# 1286 "parsing/parser.mly"
     ( x :: xs )
-# 51285 "parsing/parser.ml"
+# 51274 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51306,12 +51295,12 @@ module Tables = struct
         let _v : (Parsetree.case list) = let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 51310 "parsing/parser.ml"
+# 51299 "parsing/parser.ml"
          in
         
-# 1406 "parsing/parser.mly"
+# 1395 "parsing/parser.mly"
     ( [x] )
-# 51315 "parsing/parser.ml"
+# 51304 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51345,13 +51334,13 @@ module Tables = struct
           
 # 126 "<standard.mly>"
     ( Some x )
-# 51349 "parsing/parser.ml"
+# 51338 "parsing/parser.ml"
           
         in
         
-# 1406 "parsing/parser.mly"
+# 1395 "parsing/parser.mly"
     ( [x] )
-# 51355 "parsing/parser.ml"
+# 51344 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51388,9 +51377,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.case list) = 
-# 1410 "parsing/parser.mly"
+# 1399 "parsing/parser.mly"
     ( x :: xs )
-# 51394 "parsing/parser.ml"
+# 51383 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51414,20 +51403,20 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type list) = let xs =
           let x = 
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 51420 "parsing/parser.ml"
+# 51409 "parsing/parser.ml"
            in
           
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51425 "parsing/parser.ml"
+# 51414 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51431 "parsing/parser.ml"
+# 51420 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51465,20 +51454,20 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.core_type list) = let xs =
           let x = 
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 51471 "parsing/parser.ml"
+# 51460 "parsing/parser.ml"
            in
           
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51476 "parsing/parser.ml"
+# 51465 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51482 "parsing/parser.ml"
+# 51471 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51501,14 +51490,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51507 "parsing/parser.ml"
+# 51496 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51512 "parsing/parser.ml"
+# 51501 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51545,14 +51534,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Jane_syntax.Comprehensions.clause_binding list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51551 "parsing/parser.ml"
+# 51540 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51556 "parsing/parser.ml"
+# 51545 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51575,14 +51564,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.with_constraint list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51581 "parsing/parser.ml"
+# 51570 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51586 "parsing/parser.ml"
+# 51575 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51619,14 +51608,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.with_constraint list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51625 "parsing/parser.ml"
+# 51614 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51630 "parsing/parser.ml"
+# 51619 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51649,14 +51638,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.row_field list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51655 "parsing/parser.ml"
+# 51644 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51660 "parsing/parser.ml"
+# 51649 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51693,14 +51682,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.row_field list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51699 "parsing/parser.ml"
+# 51688 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51704 "parsing/parser.ml"
+# 51693 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51723,14 +51712,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.core_type list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51729 "parsing/parser.ml"
+# 51718 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51734 "parsing/parser.ml"
+# 51723 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51767,14 +51756,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.core_type list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51773 "parsing/parser.ml"
+# 51762 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51778 "parsing/parser.ml"
+# 51767 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51797,14 +51786,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51803 "parsing/parser.ml"
+# 51792 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51808 "parsing/parser.ml"
+# 51797 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51841,14 +51830,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51847 "parsing/parser.ml"
+# 51836 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51852 "parsing/parser.ml"
+# 51841 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51871,14 +51860,14 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_x_ in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = 
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51877 "parsing/parser.ml"
+# 51866 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51882 "parsing/parser.ml"
+# 51871 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51915,14 +51904,14 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = let xs = 
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 51921 "parsing/parser.ml"
+# 51910 "parsing/parser.ml"
          in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51926 "parsing/parser.ml"
+# 51915 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -51947,28 +51936,28 @@ module Tables = struct
         let _v : (Parsetree.core_type list) = let xs =
           let x =
             let gbl = 
-# 4703 "parsing/parser.mly"
+# 4692 "parsing/parser.mly"
            ( Mode.empty )
-# 51953 "parsing/parser.ml"
+# 51942 "parsing/parser.ml"
              in
             
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 51960 "parsing/parser.ml"
+# 51949 "parsing/parser.ml"
             
           in
           
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 51966 "parsing/parser.ml"
+# 51955 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 51972 "parsing/parser.ml"
+# 51961 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52004,29 +51993,29 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 4704 "parsing/parser.mly"
+# 4693 "parsing/parser.mly"
            ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) )
-# 52010 "parsing/parser.ml"
+# 51999 "parsing/parser.ml"
               
             in
             
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 52018 "parsing/parser.ml"
+# 52007 "parsing/parser.ml"
             
           in
           
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 52024 "parsing/parser.ml"
+# 52013 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52030 "parsing/parser.ml"
+# 52019 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52065,28 +52054,28 @@ module Tables = struct
         let _v : (Parsetree.core_type list) = let xs =
           let x =
             let gbl = 
-# 4703 "parsing/parser.mly"
+# 4692 "parsing/parser.mly"
            ( Mode.empty )
-# 52071 "parsing/parser.ml"
+# 52060 "parsing/parser.ml"
              in
             
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 52078 "parsing/parser.ml"
+# 52067 "parsing/parser.ml"
             
           in
           
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 52084 "parsing/parser.ml"
+# 52073 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52090 "parsing/parser.ml"
+# 52079 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52136,29 +52125,29 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 4704 "parsing/parser.mly"
+# 4693 "parsing/parser.mly"
            ( Mode.singleton (Mode.Const.mk "global" (make_loc _sloc)) )
-# 52142 "parsing/parser.ml"
+# 52131 "parsing/parser.ml"
               
             in
             
-# 3947 "parsing/parser.mly"
+# 3936 "parsing/parser.mly"
                                       (
     mktyp_with_modes gbl cty
 )
-# 52150 "parsing/parser.ml"
+# 52139 "parsing/parser.ml"
             
           in
           
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 52156 "parsing/parser.ml"
+# 52145 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52162 "parsing/parser.ml"
+# 52151 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52182,20 +52171,20 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : ((string option * Parsetree.core_type) list) = let xs =
           let x = 
-# 4307 "parsing/parser.mly"
+# 4296 "parsing/parser.mly"
      ( None, _1 )
-# 52188 "parsing/parser.ml"
+# 52177 "parsing/parser.ml"
            in
           
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 52193 "parsing/parser.ml"
+# 52182 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52199 "parsing/parser.ml"
+# 52188 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52228,29 +52217,29 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 52234 "parsing/parser.ml"
+# 52223 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
         let _endpos = _endpos_ty_ in
         let _v : ((string option * Parsetree.core_type) list) = let xs =
           let x = 
-# 4309 "parsing/parser.mly"
+# 4298 "parsing/parser.mly"
      ( Some label, ty )
-# 52243 "parsing/parser.ml"
+# 52232 "parsing/parser.ml"
            in
           
-# 1341 "parsing/parser.mly"
+# 1330 "parsing/parser.mly"
     ( [ x ] )
-# 52248 "parsing/parser.ml"
+# 52237 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52254 "parsing/parser.ml"
+# 52243 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52288,20 +52277,20 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : ((string option * Parsetree.core_type) list) = let xs =
           let x = 
-# 4307 "parsing/parser.mly"
+# 4296 "parsing/parser.mly"
      ( None, _1 )
-# 52294 "parsing/parser.ml"
+# 52283 "parsing/parser.ml"
            in
           
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 52299 "parsing/parser.ml"
+# 52288 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52305 "parsing/parser.ml"
+# 52294 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52346,9 +52335,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2_inlined1 : unit = Obj.magic _2_inlined1 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 52352 "parsing/parser.ml"
+# 52341 "parsing/parser.ml"
         ) = Obj.magic label in
         let _2 : unit = Obj.magic _2 in
         let xs : ((string option * Parsetree.core_type) list) = Obj.magic xs in
@@ -52357,20 +52346,20 @@ module Tables = struct
         let _endpos = _endpos_ty_ in
         let _v : ((string option * Parsetree.core_type) list) = let xs =
           let x = 
-# 4309 "parsing/parser.mly"
+# 4298 "parsing/parser.mly"
      ( Some label, ty )
-# 52363 "parsing/parser.ml"
+# 52352 "parsing/parser.ml"
            in
           
-# 1345 "parsing/parser.mly"
+# 1334 "parsing/parser.mly"
     ( x :: xs )
-# 52368 "parsing/parser.ml"
+# 52357 "parsing/parser.ml"
           
         in
         
-# 1349 "parsing/parser.mly"
+# 1338 "parsing/parser.mly"
     ( xs )
-# 52374 "parsing/parser.ml"
+# 52363 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52407,9 +52396,9 @@ module Tables = struct
         let _startpos = _startpos_xs_ in
         let _endpos = _endpos_x_ in
         let _v : (Parsetree.core_type list) = 
-# 1372 "parsing/parser.mly"
+# 1361 "parsing/parser.mly"
     ( x :: xs )
-# 52413 "parsing/parser.ml"
+# 52402 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52446,9 +52435,9 @@ module Tables = struct
         let _startpos = _startpos_x1_ in
         let _endpos = _endpos_x2_ in
         let _v : (Parsetree.core_type list) = 
-# 1376 "parsing/parser.mly"
+# 1365 "parsing/parser.mly"
     ( [ x2; x1 ] )
-# 52452 "parsing/parser.ml"
+# 52441 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52471,9 +52460,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.row_field) = 
-# 4399 "parsing/parser.mly"
+# 4388 "parsing/parser.mly"
       ( _1 )
-# 52477 "parsing/parser.ml"
+# 52466 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52499,9 +52488,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4401 "parsing/parser.mly"
+# 4390 "parsing/parser.mly"
       ( Rf.inherit_ ~loc:(make_loc _sloc) _1 )
-# 52505 "parsing/parser.ml"
+# 52494 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52526,24 +52515,24 @@ module Tables = struct
         let _v : (Parsetree.expression list) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 52530 "parsing/parser.ml"
+# 52519 "parsing/parser.ml"
          in
         let x =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 52536 "parsing/parser.ml"
+# 52525 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52541 "parsing/parser.ml"
+# 52530 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 52547 "parsing/parser.ml"
+# 52536 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52575,24 +52564,24 @@ module Tables = struct
         let _v : (Parsetree.expression list) = let _2 = 
 # 126 "<standard.mly>"
     ( Some x )
-# 52579 "parsing/parser.ml"
+# 52568 "parsing/parser.ml"
          in
         let x =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 52585 "parsing/parser.ml"
+# 52574 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52590 "parsing/parser.ml"
+# 52579 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 52596 "parsing/parser.ml"
+# 52585 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52638,7 +52627,7 @@ module Tables = struct
         let _v : (Parsetree.expression list) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 52642 "parsing/parser.ml"
+# 52631 "parsing/parser.ml"
          in
         let x =
           let _1 =
@@ -52647,18 +52636,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 52651 "parsing/parser.ml"
+# 52640 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 52656 "parsing/parser.ml"
+# 52645 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 52662 "parsing/parser.ml"
+# 52651 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -52667,40 +52656,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 52673 "parsing/parser.ml"
+# 52662 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 52679 "parsing/parser.ml"
+# 52668 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 52692 "parsing/parser.ml"
+# 52681 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52698 "parsing/parser.ml"
+# 52687 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 52704 "parsing/parser.ml"
+# 52693 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52753,7 +52742,7 @@ module Tables = struct
         let _v : (Parsetree.expression list) = let _2 = 
 # 126 "<standard.mly>"
     ( Some x )
-# 52757 "parsing/parser.ml"
+# 52746 "parsing/parser.ml"
          in
         let x =
           let _1 =
@@ -52762,18 +52751,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 52766 "parsing/parser.ml"
+# 52755 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 52771 "parsing/parser.ml"
+# 52760 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 52777 "parsing/parser.ml"
+# 52766 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -52782,40 +52771,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 52788 "parsing/parser.ml"
+# 52777 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 52794 "parsing/parser.ml"
+# 52783 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 52807 "parsing/parser.ml"
+# 52796 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52813 "parsing/parser.ml"
+# 52802 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 52819 "parsing/parser.ml"
+# 52808 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52853,20 +52842,20 @@ module Tables = struct
         let _endpos = _endpos_xs_ in
         let _v : (Parsetree.expression list) = let x =
           let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 52859 "parsing/parser.ml"
+# 52848 "parsing/parser.ml"
            in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52864 "parsing/parser.ml"
+# 52853 "parsing/parser.ml"
           
         in
         
-# 1397 "parsing/parser.mly"
+# 1386 "parsing/parser.mly"
     ( x :: xs )
-# 52870 "parsing/parser.ml"
+# 52859 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -52931,18 +52920,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 52935 "parsing/parser.ml"
+# 52924 "parsing/parser.ml"
                  in
                 
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 52940 "parsing/parser.ml"
+# 52929 "parsing/parser.ml"
                 
               in
               
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 52946 "parsing/parser.ml"
+# 52935 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos_xs_ in
@@ -52951,40 +52940,40 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 52957 "parsing/parser.ml"
+# 52946 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 52963 "parsing/parser.ml"
+# 52952 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 52976 "parsing/parser.ml"
+# 52965 "parsing/parser.ml"
             
           in
           
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 52982 "parsing/parser.ml"
+# 52971 "parsing/parser.ml"
           
         in
         
-# 1397 "parsing/parser.mly"
+# 1386 "parsing/parser.mly"
     ( x :: xs )
-# 52988 "parsing/parser.ml"
+# 52977 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53010,9 +52999,9 @@ module Tables = struct
         } = _menhir_stack in
         let oe : (Parsetree.expression option) = Obj.magic oe in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 53016 "parsing/parser.ml"
+# 53005 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -53020,26 +53009,26 @@ module Tables = struct
         let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 53024 "parsing/parser.ml"
+# 53013 "parsing/parser.ml"
          in
         let x =
           let label =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 53031 "parsing/parser.ml"
+# 53020 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53039 "parsing/parser.ml"
+# 53028 "parsing/parser.ml"
             
           in
           
-# 3352 "parsing/parser.mly"
+# 3341 "parsing/parser.mly"
       ( let label, e =
           match oe with
           | None ->
@@ -53049,13 +53038,13 @@ module Tables = struct
               label, e
         in
         label, e )
-# 53053 "parsing/parser.ml"
+# 53042 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53059 "parsing/parser.ml"
+# 53048 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53088,9 +53077,9 @@ module Tables = struct
         let x : unit = Obj.magic x in
         let oe : (Parsetree.expression option) = Obj.magic oe in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 53094 "parsing/parser.ml"
+# 53083 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -53098,26 +53087,26 @@ module Tables = struct
         let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let _2 = 
 # 126 "<standard.mly>"
     ( Some x )
-# 53102 "parsing/parser.ml"
+# 53091 "parsing/parser.ml"
          in
         let x =
           let label =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 53109 "parsing/parser.ml"
+# 53098 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53117 "parsing/parser.ml"
+# 53106 "parsing/parser.ml"
             
           in
           
-# 3352 "parsing/parser.mly"
+# 3341 "parsing/parser.mly"
       ( let label, e =
           match oe with
           | None ->
@@ -53127,13 +53116,13 @@ module Tables = struct
               label, e
         in
         label, e )
-# 53131 "parsing/parser.ml"
+# 53120 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53137 "parsing/parser.ml"
+# 53126 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53173,9 +53162,9 @@ module Tables = struct
         let _2 : unit = Obj.magic _2 in
         let oe : (Parsetree.expression option) = Obj.magic oe in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 53179 "parsing/parser.ml"
+# 53168 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -53183,21 +53172,21 @@ module Tables = struct
         let _v : ((Asttypes.label Asttypes.loc * Parsetree.expression) list) = let x =
           let label =
             let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 53189 "parsing/parser.ml"
+# 53178 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53197 "parsing/parser.ml"
+# 53186 "parsing/parser.ml"
             
           in
           
-# 3352 "parsing/parser.mly"
+# 3341 "parsing/parser.mly"
       ( let label, e =
           match oe with
           | None ->
@@ -53207,13 +53196,13 @@ module Tables = struct
               label, e
         in
         label, e )
-# 53211 "parsing/parser.ml"
+# 53200 "parsing/parser.ml"
           
         in
         
-# 1397 "parsing/parser.mly"
+# 1386 "parsing/parser.mly"
     ( x :: xs )
-# 53217 "parsing/parser.ml"
+# 53206 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53238,12 +53227,12 @@ module Tables = struct
         let _v : (Parsetree.pattern list) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 53242 "parsing/parser.ml"
+# 53231 "parsing/parser.ml"
          in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53247 "parsing/parser.ml"
+# 53236 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53277,13 +53266,13 @@ module Tables = struct
           
 # 126 "<standard.mly>"
     ( Some x )
-# 53281 "parsing/parser.ml"
+# 53270 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53287 "parsing/parser.ml"
+# 53276 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53320,9 +53309,9 @@ module Tables = struct
         let _startpos = _startpos_x_ in
         let _endpos = _endpos_xs_ in
         let _v : (Parsetree.pattern list) = 
-# 1397 "parsing/parser.mly"
+# 1386 "parsing/parser.mly"
     ( x :: xs )
-# 53326 "parsing/parser.ml"
+# 53315 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53361,7 +53350,7 @@ module Tables = struct
         let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = 
 # 124 "<standard.mly>"
     ( None )
-# 53365 "parsing/parser.ml"
+# 53354 "parsing/parser.ml"
          in
         let x =
           let label =
@@ -53369,9 +53358,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53375 "parsing/parser.ml"
+# 53364 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -53379,7 +53368,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3335 "parsing/parser.mly"
+# 3324 "parsing/parser.mly"
       ( let constraint_loc, label, e =
           match eo with
           | None ->
@@ -53389,13 +53378,13 @@ module Tables = struct
               (_startpos_c_, _endpos), label, e
         in
         label, mkexp_opt_constraint ~loc:constraint_loc e c )
-# 53393 "parsing/parser.ml"
+# 53382 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53399 "parsing/parser.ml"
+# 53388 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53441,7 +53430,7 @@ module Tables = struct
         let _v : ((Longident.t Asttypes.loc * Parsetree.expression) list) = let _2 = 
 # 126 "<standard.mly>"
     ( Some x )
-# 53445 "parsing/parser.ml"
+# 53434 "parsing/parser.ml"
          in
         let x =
           let label =
@@ -53449,9 +53438,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53455 "parsing/parser.ml"
+# 53444 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -53459,7 +53448,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3335 "parsing/parser.mly"
+# 3324 "parsing/parser.mly"
       ( let constraint_loc, label, e =
           match eo with
           | None ->
@@ -53469,13 +53458,13 @@ module Tables = struct
               (_startpos_c_, _endpos), label, e
         in
         label, mkexp_opt_constraint ~loc:constraint_loc e c )
-# 53473 "parsing/parser.ml"
+# 53462 "parsing/parser.ml"
           
         in
         
-# 1393 "parsing/parser.mly"
+# 1382 "parsing/parser.mly"
     ( [x] )
-# 53479 "parsing/parser.ml"
+# 53468 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53531,9 +53520,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53537 "parsing/parser.ml"
+# 53526 "parsing/parser.ml"
             
           in
           let _startpos_label_ = _startpos__1_ in
@@ -53541,7 +53530,7 @@ module Tables = struct
           let _symbolstartpos = _startpos_label_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 3335 "parsing/parser.mly"
+# 3324 "parsing/parser.mly"
       ( let constraint_loc, label, e =
           match eo with
           | None ->
@@ -53551,13 +53540,13 @@ module Tables = struct
               (_startpos_c_, _endpos), label, e
         in
         label, mkexp_opt_constraint ~loc:constraint_loc e c )
-# 53555 "parsing/parser.ml"
+# 53544 "parsing/parser.ml"
           
         in
         
-# 1397 "parsing/parser.mly"
+# 1386 "parsing/parser.mly"
     ( x :: xs )
-# 53561 "parsing/parser.ml"
+# 53550 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53580,14 +53569,14 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 53586 "parsing/parser.ml"
+# 53575 "parsing/parser.ml"
          in
         
-# 2586 "parsing/parser.mly"
+# 2575 "parsing/parser.mly"
                               ( _1 )
-# 53591 "parsing/parser.ml"
+# 53580 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53636,18 +53625,18 @@ module Tables = struct
               let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 53640 "parsing/parser.ml"
+# 53629 "parsing/parser.ml"
                in
               
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 53645 "parsing/parser.ml"
+# 53634 "parsing/parser.ml"
               
             in
             
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 53651 "parsing/parser.ml"
+# 53640 "parsing/parser.ml"
             
           in
           let _endpos__3_ = _endpos_xs_ in
@@ -53656,34 +53645,34 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 53662 "parsing/parser.ml"
+# 53651 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 53668 "parsing/parser.ml"
+# 53657 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__3_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 53681 "parsing/parser.ml"
+# 53670 "parsing/parser.ml"
           
         in
         
-# 2586 "parsing/parser.mly"
+# 2575 "parsing/parser.mly"
                               ( _1 )
-# 53687 "parsing/parser.ml"
+# 53676 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53751,18 +53740,18 @@ module Tables = struct
         let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs =
           let _1 = _1_inlined4 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 53757 "parsing/parser.ml"
+# 53746 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined4_ in
         let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 53766 "parsing/parser.ml"
+# 53755 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -53772,17 +53761,17 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 53778 "parsing/parser.ml"
+# 53767 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 53786 "parsing/parser.ml"
+# 53775 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs_ in
@@ -53790,7 +53779,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3912 "parsing/parser.mly"
+# 3901 "parsing/parser.mly"
     ( let vars_jkinds, args, res = vars_args_res in
       let loc = make_loc (_startpos, _endpos_attrs2_) in
       let docs = symbol_docs _sloc in
@@ -53800,7 +53789,7 @@ module Tables = struct
           (Jext_layout (Lext_decl (vars_jkinds, args, res)))
       in
       Te.mk_exception ~attrs ext_ctor, ext )
-# 53804 "parsing/parser.ml"
+# 53793 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53826,21 +53815,21 @@ module Tables = struct
           let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 53830 "parsing/parser.ml"
+# 53819 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1193 "parsing/parser.mly"
+# 1182 "parsing/parser.mly"
                               ( extra_sig _startpos _endpos _1 )
-# 53838 "parsing/parser.ml"
+# 53827 "parsing/parser.ml"
           
         in
         
-# 1995 "parsing/parser.mly"
+# 1984 "parsing/parser.mly"
     ( _1 )
-# 53844 "parsing/parser.ml"
+# 53833 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53872,9 +53861,9 @@ module Tables = struct
         let _v : (Parsetree.signature_item) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 53878 "parsing/parser.ml"
+# 53867 "parsing/parser.ml"
           
         in
         let _endpos__2_ = _endpos__1_inlined1_ in
@@ -53882,10 +53871,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2010 "parsing/parser.mly"
+# 1999 "parsing/parser.mly"
       ( let docs = symbol_docs _sloc in
         mksig ~loc:_sloc (Psig_extension (_1, (add_docs_attrs docs _2))) )
-# 53889 "parsing/parser.ml"
+# 53878 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53909,23 +53898,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2014 "parsing/parser.mly"
+# 2003 "parsing/parser.mly"
         ( Psig_attribute _1 )
-# 53915 "parsing/parser.ml"
+# 53904 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1241 "parsing/parser.mly"
+# 1230 "parsing/parser.mly"
     ( mksig ~loc:_sloc _1 )
-# 53923 "parsing/parser.ml"
+# 53912 "parsing/parser.ml"
           
         in
         
-# 2016 "parsing/parser.mly"
+# 2005 "parsing/parser.mly"
     ( _1 )
-# 53929 "parsing/parser.ml"
+# 53918 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53949,23 +53938,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2019 "parsing/parser.mly"
+# 2008 "parsing/parser.mly"
         ( psig_value _1 )
-# 53955 "parsing/parser.ml"
+# 53944 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 53963 "parsing/parser.ml"
+# 53952 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 53969 "parsing/parser.ml"
+# 53958 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -53989,23 +53978,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2021 "parsing/parser.mly"
+# 2010 "parsing/parser.mly"
         ( psig_value _1 )
-# 53995 "parsing/parser.ml"
+# 53984 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54003 "parsing/parser.ml"
+# 53992 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54009 "parsing/parser.ml"
+# 53998 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54040,26 +54029,26 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _1 = 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 54046 "parsing/parser.ml"
+# 54035 "parsing/parser.ml"
                  in
                 
-# 3693 "parsing/parser.mly"
+# 3682 "parsing/parser.mly"
   ( _1 )
-# 54051 "parsing/parser.ml"
+# 54040 "parsing/parser.ml"
                 
               in
               
-# 3676 "parsing/parser.mly"
+# 3665 "parsing/parser.mly"
     ( _1 )
-# 54057 "parsing/parser.ml"
+# 54046 "parsing/parser.ml"
               
             in
             
-# 2023 "parsing/parser.mly"
+# 2012 "parsing/parser.mly"
         ( psig_type _1 )
-# 54063 "parsing/parser.ml"
+# 54052 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in
@@ -54067,15 +54056,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54073 "parsing/parser.ml"
+# 54062 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54079 "parsing/parser.ml"
+# 54068 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54110,26 +54099,26 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _1 = 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 54116 "parsing/parser.ml"
+# 54105 "parsing/parser.ml"
                  in
                 
-# 3693 "parsing/parser.mly"
+# 3682 "parsing/parser.mly"
   ( _1 )
-# 54121 "parsing/parser.ml"
+# 54110 "parsing/parser.ml"
                 
               in
               
-# 3681 "parsing/parser.mly"
+# 3670 "parsing/parser.mly"
     ( _1 )
-# 54127 "parsing/parser.ml"
+# 54116 "parsing/parser.ml"
               
             in
             
-# 2025 "parsing/parser.mly"
+# 2014 "parsing/parser.mly"
         ( psig_typesubst _1 )
-# 54133 "parsing/parser.ml"
+# 54122 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in
@@ -54137,15 +54126,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54143 "parsing/parser.ml"
+# 54132 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54149 "parsing/parser.ml"
+# 54138 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54230,16 +54219,16 @@ module Tables = struct
                 let attrs2 =
                   let _1 = _1_inlined3 in
                   
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 54236 "parsing/parser.ml"
+# 54225 "parsing/parser.ml"
                   
                 in
                 let _endpos_attrs2_ = _endpos__1_inlined3_ in
                 let cs = 
-# 1446 "parsing/parser.mly"
+# 1435 "parsing/parser.mly"
     ( List.rev xs )
-# 54243 "parsing/parser.ml"
+# 54232 "parsing/parser.ml"
                  in
                 let tid =
                   let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
@@ -54247,46 +54236,46 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54253 "parsing/parser.ml"
+# 54242 "parsing/parser.ml"
                   
                 in
                 let _4 = 
-# 4673 "parsing/parser.mly"
+# 4662 "parsing/parser.mly"
                 ( Recursive )
-# 54259 "parsing/parser.ml"
+# 54248 "parsing/parser.ml"
                  in
                 let attrs1 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 54266 "parsing/parser.ml"
+# 54255 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos_attrs2_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4005 "parsing/parser.mly"
+# 3994 "parsing/parser.mly"
     ( let docs = symbol_docs _sloc in
       let attrs = attrs1 @ attrs2 in
       Te.mk tid cs ~params ~priv ~attrs ~docs,
       ext )
-# 54278 "parsing/parser.ml"
+# 54267 "parsing/parser.ml"
                 
               in
               
-# 3992 "parsing/parser.mly"
+# 3981 "parsing/parser.mly"
     ( _1 )
-# 54284 "parsing/parser.ml"
+# 54273 "parsing/parser.ml"
               
             in
             
-# 2027 "parsing/parser.mly"
+# 2016 "parsing/parser.mly"
         ( psig_typext _1 )
-# 54290 "parsing/parser.ml"
+# 54279 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined3_ in
@@ -54294,15 +54283,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54300 "parsing/parser.ml"
+# 54289 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54306 "parsing/parser.ml"
+# 54295 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54394,16 +54383,16 @@ module Tables = struct
                 let attrs2 =
                   let _1 = _1_inlined4 in
                   
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 54400 "parsing/parser.ml"
+# 54389 "parsing/parser.ml"
                   
                 in
                 let _endpos_attrs2_ = _endpos__1_inlined4_ in
                 let cs = 
-# 1446 "parsing/parser.mly"
+# 1435 "parsing/parser.mly"
     ( List.rev xs )
-# 54407 "parsing/parser.ml"
+# 54396 "parsing/parser.ml"
                  in
                 let tid =
                   let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in
@@ -54411,9 +54400,9 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54417 "parsing/parser.ml"
+# 54406 "parsing/parser.ml"
                   
                 in
                 let _4 =
@@ -54422,41 +54411,41 @@ module Tables = struct
                   let _startpos = _startpos__1_ in
                   let _loc = (_startpos, _endpos) in
                   
-# 4675 "parsing/parser.mly"
+# 4664 "parsing/parser.mly"
                 ( not_expecting _loc "nonrec flag" )
-# 54428 "parsing/parser.ml"
+# 54417 "parsing/parser.ml"
                   
                 in
                 let attrs1 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 54436 "parsing/parser.ml"
+# 54425 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos_attrs2_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4005 "parsing/parser.mly"
+# 3994 "parsing/parser.mly"
     ( let docs = symbol_docs _sloc in
       let attrs = attrs1 @ attrs2 in
       Te.mk tid cs ~params ~priv ~attrs ~docs,
       ext )
-# 54448 "parsing/parser.ml"
+# 54437 "parsing/parser.ml"
                 
               in
               
-# 3992 "parsing/parser.mly"
+# 3981 "parsing/parser.mly"
     ( _1 )
-# 54454 "parsing/parser.ml"
+# 54443 "parsing/parser.ml"
               
             in
             
-# 2027 "parsing/parser.mly"
+# 2016 "parsing/parser.mly"
         ( psig_typext _1 )
-# 54460 "parsing/parser.ml"
+# 54449 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined4_ in
@@ -54464,15 +54453,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54470 "parsing/parser.ml"
+# 54459 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54476 "parsing/parser.ml"
+# 54465 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54496,23 +54485,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2029 "parsing/parser.mly"
+# 2018 "parsing/parser.mly"
         ( psig_exception _1 )
-# 54502 "parsing/parser.ml"
+# 54491 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54510 "parsing/parser.ml"
+# 54499 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54516 "parsing/parser.ml"
+# 54505 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54575,9 +54564,9 @@ module Tables = struct
               let attrs2 =
                 let _1 = _1_inlined3 in
                 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 54581 "parsing/parser.ml"
+# 54570 "parsing/parser.ml"
                 
               in
               let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -54587,37 +54576,37 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54593 "parsing/parser.ml"
+# 54582 "parsing/parser.ml"
                 
               in
               let attrs1 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 54601 "parsing/parser.ml"
+# 54590 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos_attrs2_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2068 "parsing/parser.mly"
+# 2057 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Md.mk name body ~attrs ~loc ~docs, ext
   )
-# 54615 "parsing/parser.ml"
+# 54604 "parsing/parser.ml"
               
             in
             
-# 2031 "parsing/parser.mly"
+# 2020 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_module body, ext) )
-# 54621 "parsing/parser.ml"
+# 54610 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined3_ in
@@ -54625,15 +54614,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54631 "parsing/parser.ml"
+# 54620 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54637 "parsing/parser.ml"
+# 54626 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54703,9 +54692,9 @@ module Tables = struct
               let attrs2 =
                 let _1 = _1_inlined4 in
                 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 54709 "parsing/parser.ml"
+# 54698 "parsing/parser.ml"
                 
               in
               let _endpos_attrs2_ = _endpos__1_inlined4_ in
@@ -54716,9 +54705,9 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54722 "parsing/parser.ml"
+# 54711 "parsing/parser.ml"
                   
                 in
                 let (_endpos_id_, _startpos_id_) = (_endpos__1_, _startpos__1_) in
@@ -54726,9 +54715,9 @@ module Tables = struct
                 let _symbolstartpos = _startpos_id_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 2107 "parsing/parser.mly"
+# 2096 "parsing/parser.mly"
     ( Mty.alias ~loc:(make_loc _sloc) id )
-# 54732 "parsing/parser.ml"
+# 54721 "parsing/parser.ml"
                 
               in
               let name =
@@ -54737,37 +54726,37 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54743 "parsing/parser.ml"
+# 54732 "parsing/parser.ml"
                 
               in
               let attrs1 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 54751 "parsing/parser.ml"
+# 54740 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos_attrs2_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2098 "parsing/parser.mly"
+# 2087 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Md.mk name body ~attrs ~loc ~docs, ext
   )
-# 54765 "parsing/parser.ml"
+# 54754 "parsing/parser.ml"
               
             in
             
-# 2033 "parsing/parser.mly"
+# 2022 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_module body, ext) )
-# 54771 "parsing/parser.ml"
+# 54760 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined4_ in
@@ -54775,15 +54764,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54781 "parsing/parser.ml"
+# 54770 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54787 "parsing/parser.ml"
+# 54776 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54807,23 +54796,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2035 "parsing/parser.mly"
+# 2024 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_modsubst body, ext) )
-# 54813 "parsing/parser.ml"
+# 54802 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54821 "parsing/parser.ml"
+# 54810 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54827 "parsing/parser.ml"
+# 54816 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -54909,9 +54898,9 @@ module Tables = struct
                   let attrs2 =
                     let _1 = _1_inlined3 in
                     
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 54915 "parsing/parser.ml"
+# 54904 "parsing/parser.ml"
                     
                   in
                   let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -54921,49 +54910,49 @@ module Tables = struct
                     let _symbolstartpos = _startpos__1_ in
                     let _sloc = (_symbolstartpos, _endpos) in
                     
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 54927 "parsing/parser.ml"
+# 54916 "parsing/parser.ml"
                     
                   in
                   let attrs1 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 54935 "parsing/parser.ml"
+# 54924 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos_attrs2_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2141 "parsing/parser.mly"
+# 2130 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     ext, Md.mk name mty ~attrs ~loc ~docs
   )
-# 54949 "parsing/parser.ml"
+# 54938 "parsing/parser.ml"
                   
                 in
                 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 54955 "parsing/parser.ml"
+# 54944 "parsing/parser.ml"
                 
               in
               
-# 2130 "parsing/parser.mly"
+# 2119 "parsing/parser.mly"
     ( _1 )
-# 54961 "parsing/parser.ml"
+# 54950 "parsing/parser.ml"
               
             in
             
-# 2037 "parsing/parser.mly"
+# 2026 "parsing/parser.mly"
         ( let (ext, l) = _1 in (Psig_recmodule l, ext) )
-# 54967 "parsing/parser.ml"
+# 54956 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_bs_ in
@@ -54971,15 +54960,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 54977 "parsing/parser.ml"
+# 54966 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 54983 "parsing/parser.ml"
+# 54972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55003,23 +54992,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2039 "parsing/parser.mly"
+# 2028 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_modtype body, ext) )
-# 55009 "parsing/parser.ml"
+# 54998 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 55017 "parsing/parser.ml"
+# 55006 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 55023 "parsing/parser.ml"
+# 55012 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55043,23 +55032,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2041 "parsing/parser.mly"
+# 2030 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_modtypesubst body, ext) )
-# 55049 "parsing/parser.ml"
+# 55038 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 55057 "parsing/parser.ml"
+# 55046 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 55063 "parsing/parser.ml"
+# 55052 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55083,23 +55072,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2043 "parsing/parser.mly"
+# 2032 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Psig_open body, ext) )
-# 55089 "parsing/parser.ml"
+# 55078 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 55097 "parsing/parser.ml"
+# 55086 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 55103 "parsing/parser.ml"
+# 55092 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55176,9 +55165,9 @@ module Tables = struct
         let cty : (Parsetree.class_type) = Obj.magic cty in
         let _7 : unit = Obj.magic _7 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 55182 "parsing/parser.ml"
+# 55171 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -55196,9 +55185,9 @@ module Tables = struct
                   let attrs2 =
                     let _1 = _1_inlined3 in
                     
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 55202 "parsing/parser.ml"
+# 55191 "parsing/parser.ml"
                     
                   in
                   let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -55208,24 +55197,24 @@ module Tables = struct
                     let _symbolstartpos = _startpos__1_ in
                     let _sloc = (_symbolstartpos, _endpos) in
                     
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 55214 "parsing/parser.ml"
+# 55203 "parsing/parser.ml"
                     
                   in
                   let attrs1 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 55222 "parsing/parser.ml"
+# 55211 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos_attrs2_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2488 "parsing/parser.mly"
+# 2477 "parsing/parser.mly"
     (
       let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
@@ -55233,25 +55222,25 @@ module Tables = struct
       ext,
       Ci.mk id cty ~virt ~params ~attrs ~loc ~docs
     )
-# 55237 "parsing/parser.ml"
+# 55226 "parsing/parser.ml"
                   
                 in
                 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 55243 "parsing/parser.ml"
+# 55232 "parsing/parser.ml"
                 
               in
               
-# 2476 "parsing/parser.mly"
+# 2465 "parsing/parser.mly"
     ( _1 )
-# 55249 "parsing/parser.ml"
+# 55238 "parsing/parser.ml"
               
             in
             
-# 2045 "parsing/parser.mly"
+# 2034 "parsing/parser.mly"
         ( let (ext, l) = _1 in (Psig_class l, ext) )
-# 55255 "parsing/parser.ml"
+# 55244 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_bs_ in
@@ -55259,15 +55248,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 55265 "parsing/parser.ml"
+# 55254 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 55271 "parsing/parser.ml"
+# 55260 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55291,23 +55280,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.signature_item) = let _1 =
           let _1 = 
-# 2047 "parsing/parser.mly"
+# 2036 "parsing/parser.mly"
         ( let (ext, l) = _1 in (Psig_class_type l, ext) )
-# 55297 "parsing/parser.ml"
+# 55286 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1258 "parsing/parser.mly"
+# 1247 "parsing/parser.mly"
     ( wrap_mksig_ext ~loc:_sloc _1 )
-# 55305 "parsing/parser.ml"
+# 55294 "parsing/parser.ml"
           
         in
         
-# 2049 "parsing/parser.mly"
+# 2038 "parsing/parser.mly"
     ( _1 )
-# 55311 "parsing/parser.ml"
+# 55300 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55361,22 +55350,22 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined1 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 55367 "parsing/parser.ml"
+# 55356 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined1_ in
           let attrs1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 55374 "parsing/parser.ml"
+# 55363 "parsing/parser.ml"
            in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos_is_functor_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1879 "parsing/parser.mly"
+# 1868 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
@@ -55384,7 +55373,7 @@ module Tables = struct
     let incl = Incl.mk thing ~attrs ~loc ~docs in
     is_functor, incl, ext
   )
-# 55388 "parsing/parser.ml"
+# 55377 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in
@@ -55392,7 +55381,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2051 "parsing/parser.mly"
+# 2040 "parsing/parser.mly"
       ( let is_functor, incl, ext = _1 in
         let item =
           if is_functor
@@ -55402,7 +55391,7 @@ module Tables = struct
         in
         wrap_sig_ext ~loc:_sloc item ext
       )
-# 55406 "parsing/parser.ml"
+# 55395 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55425,9 +55414,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Constant.t) = 
-# 4491 "parsing/parser.mly"
+# 4480 "parsing/parser.mly"
                           ( Constant.value _1 )
-# 55431 "parsing/parser.ml"
+# 55420 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55450,9 +55439,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Constant.t) = 
-# 4492 "parsing/parser.mly"
+# 4481 "parsing/parser.mly"
                           ( _1 )
-# 55456 "parsing/parser.ml"
+# 55445 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55477,9 +55466,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 997 "parsing/parser.mly"
+# 986 "parsing/parser.mly"
        (string * char option)
-# 55483 "parsing/parser.ml"
+# 55472 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -55490,9 +55479,9 @@ module Tables = struct
         let _loc__2_ = (_startpos__2_, _endpos__2_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4493 "parsing/parser.mly"
+# 4482 "parsing/parser.mly"
                           ( unboxed_int _sloc _loc__2_ Negative _2 )
-# 55496 "parsing/parser.ml"
+# 55485 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55517,9 +55506,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 974 "parsing/parser.mly"
+# 963 "parsing/parser.mly"
        (string * char option)
-# 55523 "parsing/parser.ml"
+# 55512 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -55529,9 +55518,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4494 "parsing/parser.mly"
+# 4483 "parsing/parser.mly"
                           ( unboxed_float _sloc Negative _2 )
-# 55535 "parsing/parser.ml"
+# 55524 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55556,9 +55545,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 997 "parsing/parser.mly"
+# 986 "parsing/parser.mly"
        (string * char option)
-# 55562 "parsing/parser.ml"
+# 55551 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -55569,9 +55558,9 @@ module Tables = struct
         let _loc__2_ = (_startpos__2_, _endpos__2_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4495 "parsing/parser.mly"
+# 4484 "parsing/parser.mly"
                           ( unboxed_int _sloc _loc__2_ Positive _2 )
-# 55575 "parsing/parser.ml"
+# 55564 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55596,9 +55585,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 974 "parsing/parser.mly"
+# 963 "parsing/parser.mly"
        (string * char option)
-# 55602 "parsing/parser.ml"
+# 55591 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -55608,9 +55597,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4496 "parsing/parser.mly"
+# 4485 "parsing/parser.mly"
                           ( unboxed_float _sloc Positive _2 )
-# 55614 "parsing/parser.ml"
+# 55603 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55633,9 +55622,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constant) = 
-# 4484 "parsing/parser.mly"
+# 4473 "parsing/parser.mly"
                       ( _1 )
-# 55639 "parsing/parser.ml"
+# 55628 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55660,18 +55649,18 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
-# 55666 "parsing/parser.ml"
+# 55655 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.constant) = 
-# 4485 "parsing/parser.mly"
+# 4474 "parsing/parser.mly"
                       ( let (n, m) = _2 in Pconst_integer("-" ^ n, m) )
-# 55675 "parsing/parser.ml"
+# 55664 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55696,18 +55685,18 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 973 "parsing/parser.mly"
+# 962 "parsing/parser.mly"
        (string * char option)
-# 55702 "parsing/parser.ml"
+# 55691 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.constant) = 
-# 4486 "parsing/parser.mly"
+# 4475 "parsing/parser.mly"
                       ( let (f, m) = _2 in Pconst_float("-" ^ f, m) )
-# 55711 "parsing/parser.ml"
+# 55700 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55732,18 +55721,18 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
-# 55738 "parsing/parser.ml"
+# 55727 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.constant) = 
-# 4487 "parsing/parser.mly"
+# 4476 "parsing/parser.mly"
                       ( let (n, m) = _2 in Pconst_integer (n, m) )
-# 55747 "parsing/parser.ml"
+# 55736 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55768,18 +55757,18 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _2 : (
-# 973 "parsing/parser.mly"
+# 962 "parsing/parser.mly"
        (string * char option)
-# 55774 "parsing/parser.ml"
+# 55763 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : unit = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.constant) = 
-# 4488 "parsing/parser.mly"
+# 4477 "parsing/parser.mly"
                       ( let (f, m) = _2 in Pconst_float(f, m) )
-# 55783 "parsing/parser.ml"
+# 55772 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55820,18 +55809,18 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 3605 "parsing/parser.mly"
+# 3594 "parsing/parser.mly"
     ( let fields, closed = _1 in
       let closed = match closed with Some () -> Open | None -> Closed in
       fields, closed )
-# 55828 "parsing/parser.ml"
+# 55817 "parsing/parser.ml"
               
             in
             
-# 3575 "parsing/parser.mly"
+# 3564 "parsing/parser.mly"
       ( let (fields, closed) = _2 in
         Ppat_record(fields, closed) )
-# 55835 "parsing/parser.ml"
+# 55824 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -55839,15 +55828,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 55845 "parsing/parser.ml"
+# 55834 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 55851 "parsing/parser.ml"
+# 55840 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55888,19 +55877,19 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 3605 "parsing/parser.mly"
+# 3594 "parsing/parser.mly"
     ( let fields, closed = _1 in
       let closed = match closed with Some () -> Open | None -> Closed in
       fields, closed )
-# 55896 "parsing/parser.ml"
+# 55885 "parsing/parser.ml"
               
             in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 3578 "parsing/parser.mly"
+# 3567 "parsing/parser.mly"
       ( unclosed "{" _loc__1_ "}" _loc__3_ )
-# 55904 "parsing/parser.ml"
+# 55893 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -55908,15 +55897,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 55914 "parsing/parser.ml"
+# 55903 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 55920 "parsing/parser.ml"
+# 55909 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -55955,15 +55944,15 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 55961 "parsing/parser.ml"
+# 55950 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 3580 "parsing/parser.mly"
+# 3569 "parsing/parser.mly"
       ( fst (mktailpat _loc__3_ _2) )
-# 55967 "parsing/parser.ml"
+# 55956 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -55971,15 +55960,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 55977 "parsing/parser.ml"
+# 55966 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 55983 "parsing/parser.ml"
+# 55972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56018,16 +56007,16 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 56024 "parsing/parser.ml"
+# 56013 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 3582 "parsing/parser.mly"
+# 3571 "parsing/parser.mly"
       ( unclosed "[" _loc__1_ "]" _loc__3_ )
-# 56031 "parsing/parser.ml"
+# 56020 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -56035,15 +56024,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 56041 "parsing/parser.ml"
+# 56030 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 56047 "parsing/parser.ml"
+# 56036 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56084,30 +56073,30 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 56090 "parsing/parser.ml"
+# 56079 "parsing/parser.ml"
                  in
                 
-# 2906 "parsing/parser.mly"
+# 2895 "parsing/parser.mly"
       ( Generic_array.Simple.Literal _2 )
-# 56095 "parsing/parser.ml"
+# 56084 "parsing/parser.ml"
                 
               in
               
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56101 "parsing/parser.ml"
+# 56090 "parsing/parser.ml"
               
             in
             
-# 3584 "parsing/parser.mly"
+# 3573 "parsing/parser.mly"
         ( Generic_array.Pattern.to_ast
             "[|" "|]"
             (fun elts -> Ppat_array elts)
             _1
         )
-# 56111 "parsing/parser.ml"
+# 56100 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -56115,15 +56104,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 56121 "parsing/parser.ml"
+# 56110 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 56127 "parsing/parser.ml"
+# 56116 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56164,32 +56153,32 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 56170 "parsing/parser.ml"
+# 56159 "parsing/parser.ml"
                  in
                 let _loc__3_ = (_startpos__3_, _endpos__3_) in
                 let _loc__1_ = (_startpos__1_, _endpos__1_) in
                 
-# 2908 "parsing/parser.mly"
+# 2897 "parsing/parser.mly"
       ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) )
-# 56177 "parsing/parser.ml"
+# 56166 "parsing/parser.ml"
                 
               in
               
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56183 "parsing/parser.ml"
+# 56172 "parsing/parser.ml"
               
             in
             
-# 3584 "parsing/parser.mly"
+# 3573 "parsing/parser.mly"
         ( Generic_array.Pattern.to_ast
             "[|" "|]"
             (fun elts -> Ppat_array elts)
             _1
         )
-# 56193 "parsing/parser.ml"
+# 56182 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -56197,15 +56186,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 56203 "parsing/parser.ml"
+# 56192 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 56209 "parsing/parser.ml"
+# 56198 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56238,24 +56227,24 @@ module Tables = struct
           let _1 =
             let _1 =
               let _1 = 
-# 2910 "parsing/parser.mly"
+# 2899 "parsing/parser.mly"
       ( Generic_array.Simple.Literal [] )
-# 56244 "parsing/parser.ml"
+# 56233 "parsing/parser.ml"
                in
               
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56249 "parsing/parser.ml"
+# 56238 "parsing/parser.ml"
               
             in
             
-# 3584 "parsing/parser.mly"
+# 3573 "parsing/parser.mly"
         ( Generic_array.Pattern.to_ast
             "[|" "|]"
             (fun elts -> Ppat_array elts)
             _1
         )
-# 56259 "parsing/parser.ml"
+# 56248 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_ in
@@ -56263,15 +56252,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 56269 "parsing/parser.ml"
+# 56258 "parsing/parser.ml"
           
         in
         
-# 3589 "parsing/parser.mly"
+# 3578 "parsing/parser.mly"
     ( _1 )
-# 56275 "parsing/parser.ml"
+# 56264 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56310,20 +56299,20 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 56316 "parsing/parser.ml"
+# 56305 "parsing/parser.ml"
              in
             
-# 2906 "parsing/parser.mly"
+# 2895 "parsing/parser.mly"
       ( Generic_array.Simple.Literal _2 )
-# 56321 "parsing/parser.ml"
+# 56310 "parsing/parser.ml"
             
           in
           
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56327 "parsing/parser.ml"
+# 56316 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -56331,13 +56320,13 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3591 "parsing/parser.mly"
+# 3580 "parsing/parser.mly"
       ( Generic_array.Pattern.to_ast
           "[:" ":]"
           (ppat_iarray _sloc)
           _1
       )
-# 56341 "parsing/parser.ml"
+# 56330 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56376,22 +56365,22 @@ module Tables = struct
         let _v : (Parsetree.pattern) = let _1 =
           let _1 =
             let _2 = 
-# 3599 "parsing/parser.mly"
+# 3588 "parsing/parser.mly"
     ( ps )
-# 56382 "parsing/parser.ml"
+# 56371 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2908 "parsing/parser.mly"
+# 2897 "parsing/parser.mly"
       ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) )
-# 56389 "parsing/parser.ml"
+# 56378 "parsing/parser.ml"
             
           in
           
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56395 "parsing/parser.ml"
+# 56384 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -56399,13 +56388,13 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3591 "parsing/parser.mly"
+# 3580 "parsing/parser.mly"
       ( Generic_array.Pattern.to_ast
           "[:" ":]"
           (ppat_iarray _sloc)
           _1
       )
-# 56409 "parsing/parser.ml"
+# 56398 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56436,14 +56425,14 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 2910 "parsing/parser.mly"
+# 2899 "parsing/parser.mly"
       ( Generic_array.Simple.Literal [] )
-# 56442 "parsing/parser.ml"
+# 56431 "parsing/parser.ml"
            in
           
-# 2930 "parsing/parser.mly"
+# 2919 "parsing/parser.mly"
       ( _1 )
-# 56447 "parsing/parser.ml"
+# 56436 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__2_ in
@@ -56451,13 +56440,13 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3591 "parsing/parser.mly"
+# 3580 "parsing/parser.mly"
       ( Generic_array.Pattern.to_ast
           "[:" ":]"
           (ppat_iarray _sloc)
           _1
       )
-# 56461 "parsing/parser.ml"
+# 56450 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56497,9 +56486,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2799 "parsing/parser.mly"
+# 2788 "parsing/parser.mly"
       ( reloc_exp ~loc:_sloc _2 )
-# 56503 "parsing/parser.ml"
+# 56492 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56538,9 +56527,9 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 2801 "parsing/parser.mly"
+# 2790 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 56544 "parsing/parser.ml"
+# 56533 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56587,9 +56576,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2803 "parsing/parser.mly"
+# 2792 "parsing/parser.mly"
       ( mkexp_constraint ~loc:_sloc _2 _3 )
-# 56593 "parsing/parser.ml"
+# 56582 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56641,14 +56630,14 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2804 "parsing/parser.mly"
+# 2793 "parsing/parser.mly"
                                 ( None )
-# 56647 "parsing/parser.ml"
+# 56636 "parsing/parser.ml"
            in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 56652 "parsing/parser.ml"
+# 56641 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -56656,9 +56645,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2805 "parsing/parser.mly"
+# 2794 "parsing/parser.mly"
       ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 56662 "parsing/parser.ml"
+# 56651 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56710,14 +56699,14 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2804 "parsing/parser.mly"
+# 2793 "parsing/parser.mly"
                                 ( None )
-# 56716 "parsing/parser.ml"
+# 56705 "parsing/parser.ml"
            in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 56721 "parsing/parser.ml"
+# 56710 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -56725,9 +56714,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2805 "parsing/parser.mly"
+# 2794 "parsing/parser.mly"
       ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 56731 "parsing/parser.ml"
+# 56720 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56779,14 +56768,14 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2804 "parsing/parser.mly"
+# 2793 "parsing/parser.mly"
                                 ( None )
-# 56785 "parsing/parser.ml"
+# 56774 "parsing/parser.ml"
            in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 56790 "parsing/parser.ml"
+# 56779 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -56794,9 +56783,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2805 "parsing/parser.mly"
+# 2794 "parsing/parser.mly"
       ( mk_indexop_expr builtin_indexing_operators ~loc:_sloc _1 )
-# 56800 "parsing/parser.ml"
+# 56789 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56842,9 +56831,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 56848 "parsing/parser.ml"
+# 56837 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -56852,31 +56841,31 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 56858 "parsing/parser.ml"
+# 56847 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 56863 "parsing/parser.ml"
+# 56852 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 56869 "parsing/parser.ml"
+# 56858 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 56874 "parsing/parser.ml"
+# 56863 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 56880 "parsing/parser.ml"
+# 56869 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -56884,9 +56873,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 56890 "parsing/parser.ml"
+# 56879 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -56944,9 +56933,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 56950 "parsing/parser.ml"
+# 56939 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -56956,39 +56945,39 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 56962 "parsing/parser.ml"
+# 56951 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 56967 "parsing/parser.ml"
+# 56956 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 56975 "parsing/parser.ml"
+# 56964 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 56980 "parsing/parser.ml"
+# 56969 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 56986 "parsing/parser.ml"
+# 56975 "parsing/parser.ml"
             
           in
           
-# 2672 "parsing/parser.mly"
+# 2661 "parsing/parser.mly"
     ( array, d, Paren,   i, r )
-# 56992 "parsing/parser.ml"
+# 56981 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -56996,9 +56985,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 57002 "parsing/parser.ml"
+# 56991 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57044,9 +57033,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57050 "parsing/parser.ml"
+# 57039 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -57054,31 +57043,31 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 57060 "parsing/parser.ml"
+# 57049 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57065 "parsing/parser.ml"
+# 57054 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 57071 "parsing/parser.ml"
+# 57060 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57076 "parsing/parser.ml"
+# 57065 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 57082 "parsing/parser.ml"
+# 57071 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -57086,9 +57075,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 57092 "parsing/parser.ml"
+# 57081 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57146,9 +57135,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57152 "parsing/parser.ml"
+# 57141 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -57158,39 +57147,39 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 57164 "parsing/parser.ml"
+# 57153 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57169 "parsing/parser.ml"
+# 57158 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 57177 "parsing/parser.ml"
+# 57166 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 57182 "parsing/parser.ml"
+# 57171 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57188 "parsing/parser.ml"
+# 57177 "parsing/parser.ml"
             
           in
           
-# 2674 "parsing/parser.mly"
+# 2663 "parsing/parser.mly"
     ( array, d, Brace,   i, r )
-# 57194 "parsing/parser.ml"
+# 57183 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -57198,9 +57187,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 57204 "parsing/parser.ml"
+# 57193 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57246,9 +57235,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57252 "parsing/parser.ml"
+# 57241 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let array : (Parsetree.expression) = Obj.magic array in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -57256,31 +57245,31 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 57262 "parsing/parser.ml"
+# 57251 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57267 "parsing/parser.ml"
+# 57256 "parsing/parser.ml"
            in
           let d =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 57273 "parsing/parser.ml"
+# 57262 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57278 "parsing/parser.ml"
+# 57267 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 57284 "parsing/parser.ml"
+# 57273 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -57288,9 +57277,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 57294 "parsing/parser.ml"
+# 57283 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57348,9 +57337,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _3 : unit = Obj.magic _3 in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57354 "parsing/parser.ml"
+# 57343 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -57360,39 +57349,39 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let r = 
-# 2808 "parsing/parser.mly"
+# 2797 "parsing/parser.mly"
                                                   ( None )
-# 57366 "parsing/parser.ml"
+# 57355 "parsing/parser.ml"
            in
           let i = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57371 "parsing/parser.ml"
+# 57360 "parsing/parser.ml"
            in
           let d =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 57379 "parsing/parser.ml"
+# 57368 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 57384 "parsing/parser.ml"
+# 57373 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57390 "parsing/parser.ml"
+# 57379 "parsing/parser.ml"
             
           in
           
-# 2676 "parsing/parser.mly"
+# 2665 "parsing/parser.mly"
     ( array, d, Bracket, i, r )
-# 57396 "parsing/parser.ml"
+# 57385 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__5_, _startpos_array_) in
@@ -57400,9 +57389,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2809 "parsing/parser.mly"
+# 2798 "parsing/parser.mly"
       ( mk_indexop_expr user_indexing_operators ~loc:_sloc _1 )
-# 57406 "parsing/parser.ml"
+# 57395 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57456,15 +57445,15 @@ module Tables = struct
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2681 "parsing/parser.mly"
+# 2670 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_  Paren _loc__e_ )
-# 57462 "parsing/parser.ml"
+# 57451 "parsing/parser.ml"
           
         in
         
-# 2810 "parsing/parser.mly"
+# 2799 "parsing/parser.mly"
                                   ( _1 )
-# 57468 "parsing/parser.ml"
+# 57457 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57518,15 +57507,15 @@ module Tables = struct
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2683 "parsing/parser.mly"
+# 2672 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Brace _loc__e_ )
-# 57524 "parsing/parser.ml"
+# 57513 "parsing/parser.ml"
           
         in
         
-# 2810 "parsing/parser.mly"
+# 2799 "parsing/parser.mly"
                                   ( _1 )
-# 57530 "parsing/parser.ml"
+# 57519 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57580,15 +57569,15 @@ module Tables = struct
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2685 "parsing/parser.mly"
+# 2674 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ )
-# 57586 "parsing/parser.ml"
+# 57575 "parsing/parser.ml"
           
         in
         
-# 2810 "parsing/parser.mly"
+# 2799 "parsing/parser.mly"
                                   ( _1 )
-# 57592 "parsing/parser.ml"
+# 57581 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57634,9 +57623,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57640 "parsing/parser.ml"
+# 57629 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -57644,34 +57633,34 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57650 "parsing/parser.ml"
+# 57639 "parsing/parser.ml"
            in
           let _2 =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 57656 "parsing/parser.ml"
+# 57645 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57661 "parsing/parser.ml"
+# 57650 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2681 "parsing/parser.mly"
+# 2670 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_  Paren _loc__e_ )
-# 57669 "parsing/parser.ml"
+# 57658 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 57675 "parsing/parser.ml"
+# 57664 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57729,9 +57718,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57735 "parsing/parser.ml"
+# 57724 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -57741,42 +57730,42 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57747 "parsing/parser.ml"
+# 57736 "parsing/parser.ml"
            in
           let _2 =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 57755 "parsing/parser.ml"
+# 57744 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 57760 "parsing/parser.ml"
+# 57749 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57766 "parsing/parser.ml"
+# 57755 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2681 "parsing/parser.mly"
+# 2670 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_  Paren _loc__e_ )
-# 57774 "parsing/parser.ml"
+# 57763 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 57780 "parsing/parser.ml"
+# 57769 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57822,9 +57811,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57828 "parsing/parser.ml"
+# 57817 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -57832,34 +57821,34 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57838 "parsing/parser.ml"
+# 57827 "parsing/parser.ml"
            in
           let _2 =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 57844 "parsing/parser.ml"
+# 57833 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57849 "parsing/parser.ml"
+# 57838 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2683 "parsing/parser.mly"
+# 2672 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Brace _loc__e_ )
-# 57857 "parsing/parser.ml"
+# 57846 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 57863 "parsing/parser.ml"
+# 57852 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -57917,9 +57906,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 57923 "parsing/parser.ml"
+# 57912 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -57929,42 +57918,42 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 57935 "parsing/parser.ml"
+# 57924 "parsing/parser.ml"
            in
           let _2 =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 57943 "parsing/parser.ml"
+# 57932 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 57948 "parsing/parser.ml"
+# 57937 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 57954 "parsing/parser.ml"
+# 57943 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2683 "parsing/parser.mly"
+# 2672 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Brace _loc__e_ )
-# 57962 "parsing/parser.ml"
+# 57951 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 57968 "parsing/parser.ml"
+# 57957 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58010,9 +57999,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 58016 "parsing/parser.ml"
+# 58005 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -58020,34 +58009,34 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 58026 "parsing/parser.ml"
+# 58015 "parsing/parser.ml"
            in
           let _2 =
             let _1 = 
 # 124 "<standard.mly>"
     ( None )
-# 58032 "parsing/parser.ml"
+# 58021 "parsing/parser.ml"
              in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 58037 "parsing/parser.ml"
+# 58026 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2685 "parsing/parser.mly"
+# 2674 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ )
-# 58045 "parsing/parser.ml"
+# 58034 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 58051 "parsing/parser.ml"
+# 58040 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58105,9 +58094,9 @@ module Tables = struct
         let es : (Parsetree.expression list) = Obj.magic es in
         let _p : unit = Obj.magic _p in
         let _2 : (
-# 991 "parsing/parser.mly"
+# 980 "parsing/parser.mly"
        (string)
-# 58111 "parsing/parser.ml"
+# 58100 "parsing/parser.ml"
         ) = Obj.magic _2 in
         let _2_inlined1 : (Longident.t) = Obj.magic _2_inlined1 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
@@ -58117,42 +58106,42 @@ module Tables = struct
         let _endpos = _endpos__e_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 58123 "parsing/parser.ml"
+# 58112 "parsing/parser.ml"
            in
           let _2 =
             let _1 =
               let _2 = _2_inlined1 in
               let x = 
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                    (_2)
-# 58131 "parsing/parser.ml"
+# 58120 "parsing/parser.ml"
                in
               
 # 126 "<standard.mly>"
     ( Some x )
-# 58136 "parsing/parser.ml"
+# 58125 "parsing/parser.ml"
               
             in
             
-# 2688 "parsing/parser.mly"
+# 2677 "parsing/parser.mly"
                                                                ( _1, _2 )
-# 58142 "parsing/parser.ml"
+# 58131 "parsing/parser.ml"
             
           in
           let _loc__p_ = (_startpos__p_, _endpos__p_) in
           let _loc__e_ = (_startpos__e_, _endpos__e_) in
           
-# 2685 "parsing/parser.mly"
+# 2674 "parsing/parser.mly"
     ( indexop_unclosed_error _loc__p_ Bracket _loc__e_ )
-# 58150 "parsing/parser.ml"
+# 58139 "parsing/parser.ml"
           
         in
         
-# 2811 "parsing/parser.mly"
+# 2800 "parsing/parser.mly"
                                                     ( _1 )
-# 58156 "parsing/parser.ml"
+# 58145 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58206,15 +58195,15 @@ module Tables = struct
           let attrs =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58212 "parsing/parser.ml"
+# 58201 "parsing/parser.ml"
             
           in
           
-# 2835 "parsing/parser.mly"
+# 2824 "parsing/parser.mly"
       ( e.pexp_desc, (ext, attrs @ e.pexp_attributes) )
-# 58218 "parsing/parser.ml"
+# 58207 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__5_ in
@@ -58222,10 +58211,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58229 "parsing/parser.ml"
+# 58218 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58274,24 +58263,24 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58280 "parsing/parser.ml"
+# 58269 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58286 "parsing/parser.ml"
+# 58275 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__3_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2837 "parsing/parser.mly"
+# 2826 "parsing/parser.mly"
       ( Pexp_construct (mkloc (Lident "()") (make_loc _sloc), None), _2 )
-# 58295 "parsing/parser.ml"
+# 58284 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -58299,10 +58288,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58306 "parsing/parser.ml"
+# 58295 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58358,23 +58347,23 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58364 "parsing/parser.ml"
+# 58353 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58370 "parsing/parser.ml"
+# 58359 "parsing/parser.ml"
             
           in
           let _loc__4_ = (_startpos__4_, _endpos__4_) in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2839 "parsing/parser.mly"
+# 2828 "parsing/parser.mly"
       ( unclosed "begin" _loc__1_ "end" _loc__4_ )
-# 58378 "parsing/parser.ml"
+# 58367 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__4_ in
@@ -58382,10 +58371,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58389 "parsing/parser.ml"
+# 58378 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58435,9 +58424,9 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 58441 "parsing/parser.ml"
+# 58430 "parsing/parser.ml"
             
           in
           let _2 =
@@ -58445,21 +58434,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58451 "parsing/parser.ml"
+# 58440 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58457 "parsing/parser.ml"
+# 58446 "parsing/parser.ml"
             
           in
           
-# 2841 "parsing/parser.mly"
+# 2830 "parsing/parser.mly"
       ( Pexp_new(_3), _2 )
-# 58463 "parsing/parser.ml"
+# 58452 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__1_inlined3_ in
@@ -58467,10 +58456,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58474 "parsing/parser.ml"
+# 58463 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58533,21 +58522,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58539 "parsing/parser.ml"
+# 58528 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58545 "parsing/parser.ml"
+# 58534 "parsing/parser.ml"
             
           in
           
-# 2843 "parsing/parser.mly"
+# 2832 "parsing/parser.mly"
       ( Pexp_pack _4, _3 )
-# 58551 "parsing/parser.ml"
+# 58540 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__5_ in
@@ -58555,10 +58544,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58562 "parsing/parser.ml"
+# 58551 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58636,11 +58625,11 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 58644 "parsing/parser.ml"
+# 58633 "parsing/parser.ml"
             
           in
           let _3 =
@@ -58648,24 +58637,24 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58654 "parsing/parser.ml"
+# 58643 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58660 "parsing/parser.ml"
+# 58649 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__7_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2845 "parsing/parser.mly"
+# 2834 "parsing/parser.mly"
       ( Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _4), _6), _3 )
-# 58669 "parsing/parser.ml"
+# 58658 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__7_ in
@@ -58673,10 +58662,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58680 "parsing/parser.ml"
+# 58669 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58746,23 +58735,23 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58752 "parsing/parser.ml"
+# 58741 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58758 "parsing/parser.ml"
+# 58747 "parsing/parser.ml"
             
           in
           let _loc__6_ = (_startpos__6_, _endpos__6_) in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2847 "parsing/parser.mly"
+# 2836 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__6_ )
-# 58766 "parsing/parser.ml"
+# 58755 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__6_ in
@@ -58770,10 +58759,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58777 "parsing/parser.ml"
+# 58766 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58838,27 +58827,27 @@ module Tables = struct
                 let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 58842 "parsing/parser.ml"
+# 58831 "parsing/parser.ml"
                  in
                 
-# 2304 "parsing/parser.mly"
+# 2293 "parsing/parser.mly"
     ( _1 )
-# 58847 "parsing/parser.ml"
+# 58836 "parsing/parser.ml"
                 
               in
               let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
               let _endpos = _endpos__1_ in
               let _startpos = _startpos__1_ in
               
-# 1194 "parsing/parser.mly"
+# 1183 "parsing/parser.mly"
                                ( extra_cstr _startpos _endpos _1 )
-# 58856 "parsing/parser.ml"
+# 58845 "parsing/parser.ml"
               
             in
             
-# 2291 "parsing/parser.mly"
+# 2280 "parsing/parser.mly"
        ( Cstr.mk _1 _2 )
-# 58862 "parsing/parser.ml"
+# 58851 "parsing/parser.ml"
             
           in
           let _2 =
@@ -58866,21 +58855,21 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58872 "parsing/parser.ml"
+# 58861 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58878 "parsing/parser.ml"
+# 58867 "parsing/parser.ml"
             
           in
           
-# 2849 "parsing/parser.mly"
+# 2838 "parsing/parser.mly"
       ( Pexp_object _3, _2 )
-# 58884 "parsing/parser.ml"
+# 58873 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__4_ in
@@ -58888,10 +58877,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 58895 "parsing/parser.ml"
+# 58884 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -58956,27 +58945,27 @@ module Tables = struct
                 let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 58960 "parsing/parser.ml"
+# 58949 "parsing/parser.ml"
                  in
                 
-# 2304 "parsing/parser.mly"
+# 2293 "parsing/parser.mly"
     ( _1 )
-# 58965 "parsing/parser.ml"
+# 58954 "parsing/parser.ml"
                 
               in
               let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
               let _endpos = _endpos__1_ in
               let _startpos = _startpos__1_ in
               
-# 1194 "parsing/parser.mly"
+# 1183 "parsing/parser.mly"
                                ( extra_cstr _startpos _endpos _1 )
-# 58974 "parsing/parser.ml"
+# 58963 "parsing/parser.ml"
               
             in
             
-# 2291 "parsing/parser.mly"
+# 2280 "parsing/parser.mly"
        ( Cstr.mk _1 _2 )
-# 58980 "parsing/parser.ml"
+# 58969 "parsing/parser.ml"
             
           in
           let _2 =
@@ -58984,23 +58973,23 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 58990 "parsing/parser.ml"
+# 58979 "parsing/parser.ml"
               
             in
             
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 58996 "parsing/parser.ml"
+# 58985 "parsing/parser.ml"
             
           in
           let _loc__4_ = (_startpos__4_, _endpos__4_) in
           let _loc__1_ = (_startpos__1_, _endpos__1_) in
           
-# 2851 "parsing/parser.mly"
+# 2840 "parsing/parser.mly"
       ( unclosed "object" _loc__1_ "end" _loc__4_ )
-# 59004 "parsing/parser.ml"
+# 58993 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__4_ in
@@ -59008,10 +58997,10 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2813 "parsing/parser.mly"
+# 2802 "parsing/parser.mly"
     ( let desc, attrs = _1 in
       mkexp_attrs ~loc:_sloc desc attrs )
-# 59015 "parsing/parser.ml"
+# 59004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59040,30 +59029,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59046 "parsing/parser.ml"
+# 59035 "parsing/parser.ml"
               
             in
             
-# 2940 "parsing/parser.mly"
+# 2929 "parsing/parser.mly"
       ( Pexp_ident (_1) )
-# 59052 "parsing/parser.ml"
+# 59041 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59061 "parsing/parser.ml"
+# 59050 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59067 "parsing/parser.ml"
+# 59056 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59092,30 +59081,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59098 "parsing/parser.ml"
+# 59087 "parsing/parser.ml"
               
             in
             
-# 2942 "parsing/parser.mly"
+# 2931 "parsing/parser.mly"
       ( Pexp_construct(_1, None) )
-# 59104 "parsing/parser.ml"
+# 59093 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59113 "parsing/parser.ml"
+# 59102 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59119 "parsing/parser.ml"
+# 59108 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59139,23 +59128,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2944 "parsing/parser.mly"
+# 2933 "parsing/parser.mly"
       ( Pexp_variant(_1, None) )
-# 59145 "parsing/parser.ml"
+# 59134 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59153 "parsing/parser.ml"
+# 59142 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59159 "parsing/parser.ml"
+# 59148 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59181,9 +59170,9 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : (Parsetree.expression) = Obj.magic _2 in
         let _1 : (
-# 1038 "parsing/parser.mly"
+# 1027 "parsing/parser.mly"
        (string)
-# 59187 "parsing/parser.ml"
+# 59176 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -59195,15 +59184,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 59201 "parsing/parser.ml"
+# 59190 "parsing/parser.ml"
               
             in
             
-# 2946 "parsing/parser.mly"
+# 2935 "parsing/parser.mly"
       ( Pexp_apply(_1, [Nolabel,_2]) )
-# 59207 "parsing/parser.ml"
+# 59196 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_ in
@@ -59211,15 +59200,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59217 "parsing/parser.ml"
+# 59206 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59223 "parsing/parser.ml"
+# 59212 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59252,23 +59241,23 @@ module Tables = struct
           let _1 =
             let _1 =
               let _1 = 
-# 2947 "parsing/parser.mly"
+# 2936 "parsing/parser.mly"
             ("!")
-# 59258 "parsing/parser.ml"
+# 59247 "parsing/parser.ml"
                in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 59266 "parsing/parser.ml"
+# 59255 "parsing/parser.ml"
               
             in
             
-# 2948 "parsing/parser.mly"
+# 2937 "parsing/parser.mly"
       ( Pexp_apply(_1, [Nolabel,_2]) )
-# 59272 "parsing/parser.ml"
+# 59261 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_ in
@@ -59276,15 +59265,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59282 "parsing/parser.ml"
+# 59271 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59288 "parsing/parser.ml"
+# 59277 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59323,14 +59312,14 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3347 "parsing/parser.mly"
+# 3336 "parsing/parser.mly"
     ( xs )
-# 59329 "parsing/parser.ml"
+# 59318 "parsing/parser.ml"
              in
             
-# 2950 "parsing/parser.mly"
+# 2939 "parsing/parser.mly"
       ( Pexp_override _2 )
-# 59334 "parsing/parser.ml"
+# 59323 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -59338,15 +59327,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59344 "parsing/parser.ml"
+# 59333 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59350 "parsing/parser.ml"
+# 59339 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59385,16 +59374,16 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3347 "parsing/parser.mly"
+# 3336 "parsing/parser.mly"
     ( xs )
-# 59391 "parsing/parser.ml"
+# 59380 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2952 "parsing/parser.mly"
+# 2941 "parsing/parser.mly"
       ( unclosed "{<" _loc__1_ ">}" _loc__3_ )
-# 59398 "parsing/parser.ml"
+# 59387 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -59402,15 +59391,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59408 "parsing/parser.ml"
+# 59397 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59414 "parsing/parser.ml"
+# 59403 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59441,24 +59430,24 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2954 "parsing/parser.mly"
+# 2943 "parsing/parser.mly"
       ( Pexp_override [] )
-# 59447 "parsing/parser.ml"
+# 59436 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__2_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59456 "parsing/parser.ml"
+# 59445 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59462 "parsing/parser.ml"
+# 59451 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59502,15 +59491,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59508 "parsing/parser.ml"
+# 59497 "parsing/parser.ml"
               
             in
             
-# 2956 "parsing/parser.mly"
+# 2945 "parsing/parser.mly"
       ( Pexp_field(_1, _3) )
-# 59514 "parsing/parser.ml"
+# 59503 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -59518,15 +59507,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59524 "parsing/parser.ml"
+# 59513 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59530 "parsing/parser.ml"
+# 59519 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59584,24 +59573,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59590 "parsing/parser.ml"
+# 59579 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 59599 "parsing/parser.ml"
+# 59588 "parsing/parser.ml"
               
             in
             
-# 2958 "parsing/parser.mly"
+# 2947 "parsing/parser.mly"
       ( Pexp_open(od, _4) )
-# 59605 "parsing/parser.ml"
+# 59594 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -59609,15 +59598,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59615 "parsing/parser.ml"
+# 59604 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59621 "parsing/parser.ml"
+# 59610 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59670,9 +59659,9 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _4 = 
-# 3347 "parsing/parser.mly"
+# 3336 "parsing/parser.mly"
     ( xs )
-# 59676 "parsing/parser.ml"
+# 59665 "parsing/parser.ml"
              in
             let od =
               let _1 =
@@ -59680,18 +59669,18 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59686 "parsing/parser.ml"
+# 59675 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 59695 "parsing/parser.ml"
+# 59684 "parsing/parser.ml"
               
             in
             let _startpos_od_ = _startpos__1_ in
@@ -59699,10 +59688,10 @@ module Tables = struct
             let _symbolstartpos = _startpos_od_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 2960 "parsing/parser.mly"
+# 2949 "parsing/parser.mly"
       ( (* TODO: review the location of Pexp_override *)
         Pexp_open(od, mkexp ~loc:_sloc (Pexp_override _4)) )
-# 59706 "parsing/parser.ml"
+# 59695 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -59710,15 +59699,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59716 "parsing/parser.ml"
+# 59705 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59722 "parsing/parser.ml"
+# 59711 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59771,16 +59760,16 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _4 = 
-# 3347 "parsing/parser.mly"
+# 3336 "parsing/parser.mly"
     ( xs )
-# 59777 "parsing/parser.ml"
+# 59766 "parsing/parser.ml"
              in
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 2963 "parsing/parser.mly"
+# 2952 "parsing/parser.mly"
       ( unclosed "{<" _loc__3_ ">}" _loc__5_ )
-# 59784 "parsing/parser.ml"
+# 59773 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -59788,15 +59777,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59794 "parsing/parser.ml"
+# 59783 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59800 "parsing/parser.ml"
+# 59789 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59827,9 +59816,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 59833 "parsing/parser.ml"
+# 59822 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
@@ -59841,28 +59830,28 @@ module Tables = struct
             let _3 =
               let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
               let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 59847 "parsing/parser.ml"
+# 59836 "parsing/parser.ml"
                in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59855 "parsing/parser.ml"
+# 59844 "parsing/parser.ml"
               
             in
             let _2 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 59861 "parsing/parser.ml"
+# 59850 "parsing/parser.ml"
              in
             
-# 2965 "parsing/parser.mly"
+# 2954 "parsing/parser.mly"
       ( Pexp_send(_1, _3) )
-# 59866 "parsing/parser.ml"
+# 59855 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined2_ in
@@ -59870,15 +59859,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59876 "parsing/parser.ml"
+# 59865 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59882 "parsing/parser.ml"
+# 59871 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59909,9 +59898,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 59915 "parsing/parser.ml"
+# 59904 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : unit = Obj.magic _1_inlined1 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
@@ -59923,28 +59912,28 @@ module Tables = struct
             let _3 =
               let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
               let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 59929 "parsing/parser.ml"
+# 59918 "parsing/parser.ml"
                in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 59937 "parsing/parser.ml"
+# 59926 "parsing/parser.ml"
               
             in
             let _2 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 59943 "parsing/parser.ml"
+# 59932 "parsing/parser.ml"
              in
             
-# 2965 "parsing/parser.mly"
+# 2954 "parsing/parser.mly"
       ( Pexp_send(_1, _3) )
-# 59948 "parsing/parser.ml"
+# 59937 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined2_ in
@@ -59952,15 +59941,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 59958 "parsing/parser.ml"
+# 59947 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 59964 "parsing/parser.ml"
+# 59953 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -59992,9 +59981,9 @@ module Tables = struct
         } = _menhir_stack in
         let _3 : (Parsetree.expression) = Obj.magic _3 in
         let _1_inlined1 : (
-# 1050 "parsing/parser.mly"
+# 1039 "parsing/parser.mly"
        (string)
-# 59998 "parsing/parser.ml"
+# 59987 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _1 : (Parsetree.expression) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
@@ -60008,15 +59997,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1227 "parsing/parser.mly"
+# 1216 "parsing/parser.mly"
    ( mkoperator ~loc:_sloc _1 )
-# 60014 "parsing/parser.ml"
+# 60003 "parsing/parser.ml"
               
             in
             
-# 2967 "parsing/parser.mly"
+# 2956 "parsing/parser.mly"
       ( mkinfix _1 _2 _3 )
-# 60020 "parsing/parser.ml"
+# 60009 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -60024,15 +60013,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60030 "parsing/parser.ml"
+# 60019 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60036 "parsing/parser.ml"
+# 60025 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60056,23 +60045,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2969 "parsing/parser.mly"
+# 2958 "parsing/parser.mly"
       ( Pexp_extension _1 )
-# 60062 "parsing/parser.ml"
+# 60051 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60070 "parsing/parser.ml"
+# 60059 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60076 "parsing/parser.ml"
+# 60065 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60120,18 +60109,18 @@ module Tables = struct
             let _3 =
               let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
               let _1 = 
-# 2970 "parsing/parser.mly"
+# 2959 "parsing/parser.mly"
                                                     (Lident "()")
-# 60126 "parsing/parser.ml"
+# 60115 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos__2_ in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 60135 "parsing/parser.ml"
+# 60124 "parsing/parser.ml"
               
             in
             let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
@@ -60141,25 +60130,25 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 60147 "parsing/parser.ml"
+# 60136 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 60156 "parsing/parser.ml"
+# 60145 "parsing/parser.ml"
               
             in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 2971 "parsing/parser.mly"
+# 2960 "parsing/parser.mly"
       ( Pexp_open(od, mkexp ~loc:(_loc__3_) (Pexp_construct(_3, None))) )
-# 60163 "parsing/parser.ml"
+# 60152 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_inlined1_ in
@@ -60167,15 +60156,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60173 "parsing/parser.ml"
+# 60162 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60179 "parsing/parser.ml"
+# 60168 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60230,9 +60219,9 @@ module Tables = struct
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 2973 "parsing/parser.mly"
+# 2962 "parsing/parser.mly"
       ( unclosed "(" _loc__3_ ")" _loc__5_ )
-# 60236 "parsing/parser.ml"
+# 60225 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -60240,15 +60229,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60246 "parsing/parser.ml"
+# 60235 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60252 "parsing/parser.ml"
+# 60241 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60287,25 +60276,25 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2975 "parsing/parser.mly"
+# 2964 "parsing/parser.mly"
       ( let (exten, fields) = _2 in
         Pexp_record(fields, exten) )
-# 60294 "parsing/parser.ml"
+# 60283 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60303 "parsing/parser.ml"
+# 60292 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60309 "parsing/parser.ml"
+# 60298 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60347,9 +60336,9 @@ module Tables = struct
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2978 "parsing/parser.mly"
+# 2967 "parsing/parser.mly"
       ( unclosed "{" _loc__1_ "}" _loc__3_ )
-# 60353 "parsing/parser.ml"
+# 60342 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -60357,15 +60346,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60363 "parsing/parser.ml"
+# 60352 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60369 "parsing/parser.ml"
+# 60358 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60424,27 +60413,27 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 60430 "parsing/parser.ml"
+# 60419 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 60439 "parsing/parser.ml"
+# 60428 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__5_ in
             
-# 2980 "parsing/parser.mly"
+# 2969 "parsing/parser.mly"
       ( let (exten, fields) = _4 in
         Pexp_open(od, mkexp ~loc:(_startpos__3_, _endpos)
                         (Pexp_record(fields, exten))) )
-# 60448 "parsing/parser.ml"
+# 60437 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -60452,15 +60441,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60458 "parsing/parser.ml"
+# 60447 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60464 "parsing/parser.ml"
+# 60453 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60516,9 +60505,9 @@ module Tables = struct
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 2984 "parsing/parser.mly"
+# 2973 "parsing/parser.mly"
       ( unclosed "{" _loc__3_ "}" _loc__5_ )
-# 60522 "parsing/parser.ml"
+# 60511 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -60526,15 +60515,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60532 "parsing/parser.ml"
+# 60521 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60538 "parsing/parser.ml"
+# 60527 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60575,30 +60564,30 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 60581 "parsing/parser.ml"
+# 60570 "parsing/parser.ml"
                  in
                 
-# 2906 "parsing/parser.mly"
+# 2895 "parsing/parser.mly"
       ( Generic_array.Simple.Literal _2 )
-# 60586 "parsing/parser.ml"
+# 60575 "parsing/parser.ml"
                 
               in
               
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 60592 "parsing/parser.ml"
+# 60581 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 60602 "parsing/parser.ml"
+# 60591 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -60606,15 +60595,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60612 "parsing/parser.ml"
+# 60601 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60618 "parsing/parser.ml"
+# 60607 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60655,32 +60644,32 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 60661 "parsing/parser.ml"
+# 60650 "parsing/parser.ml"
                  in
                 let _loc__3_ = (_startpos__3_, _endpos__3_) in
                 let _loc__1_ = (_startpos__1_, _endpos__1_) in
                 
-# 2908 "parsing/parser.mly"
+# 2897 "parsing/parser.mly"
       ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) )
-# 60668 "parsing/parser.ml"
+# 60657 "parsing/parser.ml"
                 
               in
               
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 60674 "parsing/parser.ml"
+# 60663 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 60684 "parsing/parser.ml"
+# 60673 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -60688,15 +60677,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60694 "parsing/parser.ml"
+# 60683 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60700 "parsing/parser.ml"
+# 60689 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60729,24 +60718,24 @@ module Tables = struct
           let _1 =
             let _1 =
               let _1 = 
-# 2910 "parsing/parser.mly"
+# 2899 "parsing/parser.mly"
       ( Generic_array.Simple.Literal [] )
-# 60735 "parsing/parser.ml"
+# 60724 "parsing/parser.ml"
                in
               
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 60740 "parsing/parser.ml"
+# 60729 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 60750 "parsing/parser.ml"
+# 60739 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_ in
@@ -60754,15 +60743,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60760 "parsing/parser.ml"
+# 60749 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60766 "parsing/parser.ml"
+# 60755 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60816,9 +60805,9 @@ module Tables = struct
           let _1 =
             let _1 =
               let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 60822 "parsing/parser.ml"
+# 60811 "parsing/parser.ml"
                in
               let od =
                 let _1 =
@@ -60826,36 +60815,36 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 60832 "parsing/parser.ml"
+# 60821 "parsing/parser.ml"
                   
                 in
                 let _loc__1_ = (_startpos__1_, _endpos__1_) in
                 
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 60841 "parsing/parser.ml"
+# 60830 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__5_ in
               
-# 2917 "parsing/parser.mly"
+# 2906 "parsing/parser.mly"
       ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4)
       )
-# 60849 "parsing/parser.ml"
+# 60838 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 60859 "parsing/parser.ml"
+# 60848 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -60863,15 +60852,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60869 "parsing/parser.ml"
+# 60858 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60875 "parsing/parser.ml"
+# 60864 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -60923,37 +60912,37 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 60929 "parsing/parser.ml"
+# 60918 "parsing/parser.ml"
                   
                 in
                 let _loc__1_ = (_startpos__1_, _endpos__1_) in
                 
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 60938 "parsing/parser.ml"
+# 60927 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos__4_ in
               
-# 2920 "parsing/parser.mly"
+# 2909 "parsing/parser.mly"
       ( (* TODO: review the location of Pexp_array *)
         Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, [])
       )
-# 60947 "parsing/parser.ml"
+# 60936 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 60957 "parsing/parser.ml"
+# 60946 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -60961,15 +60950,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 60967 "parsing/parser.ml"
+# 60956 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 60973 "parsing/parser.ml"
+# 60962 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61023,26 +61012,26 @@ module Tables = struct
           let _1 =
             let _1 =
               let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 61029 "parsing/parser.ml"
+# 61018 "parsing/parser.ml"
                in
               let _loc__5_ = (_startpos__5_, _endpos__5_) in
               let _loc__3_ = (_startpos__3_, _endpos__3_) in
               
-# 2925 "parsing/parser.mly"
+# 2914 "parsing/parser.mly"
       ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) )
-# 61036 "parsing/parser.ml"
+# 61025 "parsing/parser.ml"
               
             in
             
-# 2986 "parsing/parser.mly"
+# 2975 "parsing/parser.mly"
       ( Generic_array.Expression.to_desc
           "[|" "|]"
           (fun elts -> Pexp_array elts)
           _1
       )
-# 61046 "parsing/parser.ml"
+# 61035 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -61050,15 +61039,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61056 "parsing/parser.ml"
+# 61045 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61062 "parsing/parser.ml"
+# 61051 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61097,15 +61086,15 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 61103 "parsing/parser.ml"
+# 61092 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 2992 "parsing/parser.mly"
+# 2981 "parsing/parser.mly"
       ( fst (mktailexp _loc__3_ _2) )
-# 61109 "parsing/parser.ml"
+# 61098 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -61113,15 +61102,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61119 "parsing/parser.ml"
+# 61108 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61125 "parsing/parser.ml"
+# 61114 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61160,16 +61149,16 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 61166 "parsing/parser.ml"
+# 61155 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2994 "parsing/parser.mly"
+# 2983 "parsing/parser.mly"
       ( unclosed "[" _loc__1_ "]" _loc__3_ )
-# 61173 "parsing/parser.ml"
+# 61162 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -61177,15 +61166,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61183 "parsing/parser.ml"
+# 61172 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61189 "parsing/parser.ml"
+# 61178 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61252,37 +61241,37 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61256 "parsing/parser.ml"
+# 61245 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 61261 "parsing/parser.ml"
+# 61250 "parsing/parser.ml"
                     
                   in
                   let _2 =
                     let _1 = _1_inlined1 in
                     let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 61269 "parsing/parser.ml"
+# 61258 "parsing/parser.ml"
                      in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 61274 "parsing/parser.ml"
+# 61263 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 61280 "parsing/parser.ml"
+# 61269 "parsing/parser.ml"
                   
                 in
                 
-# 2892 "parsing/parser.mly"
+# 2881 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_list_comprehension  _1 )
-# 61286 "parsing/parser.ml"
+# 61275 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -61290,9 +61279,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 61296 "parsing/parser.ml"
+# 61285 "parsing/parser.ml"
               
             in
             let od =
@@ -61301,24 +61290,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 61307 "parsing/parser.ml"
+# 61296 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 61316 "parsing/parser.ml"
+# 61305 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 61322 "parsing/parser.ml"
+# 61311 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -61326,15 +61315,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61332 "parsing/parser.ml"
+# 61321 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61338 "parsing/parser.ml"
+# 61327 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61423,12 +61412,12 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61427 "parsing/parser.ml"
+# 61416 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 61432 "parsing/parser.ml"
+# 61421 "parsing/parser.ml"
                     
                   in
                   let _2 =
@@ -61439,18 +61428,18 @@ module Tables = struct
                           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61443 "parsing/parser.ml"
+# 61432 "parsing/parser.ml"
                            in
                           
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 61448 "parsing/parser.ml"
+# 61437 "parsing/parser.ml"
                           
                         in
                         
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 61454 "parsing/parser.ml"
+# 61443 "parsing/parser.ml"
                         
                       in
                       let _endpos__3_ = _endpos_xs_ in
@@ -61459,46 +61448,46 @@ module Tables = struct
                         let _2 =
                           let _1 = _1_inlined1 in
                           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 61465 "parsing/parser.ml"
+# 61454 "parsing/parser.ml"
                           
                         in
                         
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 61471 "parsing/parser.ml"
+# 61460 "parsing/parser.ml"
                         
                       in
                       let _endpos = _endpos__3_ in
                       let _symbolstartpos = _startpos__1_ in
                       let _sloc = (_symbolstartpos, _endpos) in
                       
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 61484 "parsing/parser.ml"
+# 61473 "parsing/parser.ml"
                       
                     in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 61490 "parsing/parser.ml"
+# 61479 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 61496 "parsing/parser.ml"
+# 61485 "parsing/parser.ml"
                   
                 in
                 
-# 2892 "parsing/parser.mly"
+# 2881 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_list_comprehension  _1 )
-# 61502 "parsing/parser.ml"
+# 61491 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -61506,9 +61495,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 61512 "parsing/parser.ml"
+# 61501 "parsing/parser.ml"
               
             in
             let od =
@@ -61517,24 +61506,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 61523 "parsing/parser.ml"
+# 61512 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 61532 "parsing/parser.ml"
+# 61521 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 61538 "parsing/parser.ml"
+# 61527 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -61542,15 +61531,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61548 "parsing/parser.ml"
+# 61537 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61554 "parsing/parser.ml"
+# 61543 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61617,37 +61606,37 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61621 "parsing/parser.ml"
+# 61610 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 61626 "parsing/parser.ml"
+# 61615 "parsing/parser.ml"
                     
                   in
                   let _2 =
                     let _1 = _1_inlined1 in
                     let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 61634 "parsing/parser.ml"
+# 61623 "parsing/parser.ml"
                      in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 61639 "parsing/parser.ml"
+# 61628 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 61645 "parsing/parser.ml"
+# 61634 "parsing/parser.ml"
                   
                 in
                 
-# 2894 "parsing/parser.mly"
+# 2883 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) )
-# 61651 "parsing/parser.ml"
+# 61640 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -61655,9 +61644,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 61661 "parsing/parser.ml"
+# 61650 "parsing/parser.ml"
               
             in
             let od =
@@ -61666,24 +61655,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 61672 "parsing/parser.ml"
+# 61661 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 61681 "parsing/parser.ml"
+# 61670 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 61687 "parsing/parser.ml"
+# 61676 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -61691,15 +61680,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61697 "parsing/parser.ml"
+# 61686 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61703 "parsing/parser.ml"
+# 61692 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61788,12 +61777,12 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61792 "parsing/parser.ml"
+# 61781 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 61797 "parsing/parser.ml"
+# 61786 "parsing/parser.ml"
                     
                   in
                   let _2 =
@@ -61804,18 +61793,18 @@ module Tables = struct
                           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61808 "parsing/parser.ml"
+# 61797 "parsing/parser.ml"
                            in
                           
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 61813 "parsing/parser.ml"
+# 61802 "parsing/parser.ml"
                           
                         in
                         
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 61819 "parsing/parser.ml"
+# 61808 "parsing/parser.ml"
                         
                       in
                       let _endpos__3_ = _endpos_xs_ in
@@ -61824,46 +61813,46 @@ module Tables = struct
                         let _2 =
                           let _1 = _1_inlined1 in
                           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 61830 "parsing/parser.ml"
+# 61819 "parsing/parser.ml"
                           
                         in
                         
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 61836 "parsing/parser.ml"
+# 61825 "parsing/parser.ml"
                         
                       in
                       let _endpos = _endpos__3_ in
                       let _symbolstartpos = _startpos__1_ in
                       let _sloc = (_symbolstartpos, _endpos) in
                       
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 61849 "parsing/parser.ml"
+# 61838 "parsing/parser.ml"
                       
                     in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 61855 "parsing/parser.ml"
+# 61844 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 61861 "parsing/parser.ml"
+# 61850 "parsing/parser.ml"
                   
                 in
                 
-# 2894 "parsing/parser.mly"
+# 2883 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) )
-# 61867 "parsing/parser.ml"
+# 61856 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -61871,9 +61860,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 61877 "parsing/parser.ml"
+# 61866 "parsing/parser.ml"
               
             in
             let od =
@@ -61882,24 +61871,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 61888 "parsing/parser.ml"
+# 61877 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 61897 "parsing/parser.ml"
+# 61886 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 61903 "parsing/parser.ml"
+# 61892 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -61907,15 +61896,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 61913 "parsing/parser.ml"
+# 61902 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 61919 "parsing/parser.ml"
+# 61908 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -61982,37 +61971,37 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 61986 "parsing/parser.ml"
+# 61975 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 61991 "parsing/parser.ml"
+# 61980 "parsing/parser.ml"
                     
                   in
                   let _2 =
                     let _1 = _1_inlined1 in
                     let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 61999 "parsing/parser.ml"
+# 61988 "parsing/parser.ml"
                      in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 62004 "parsing/parser.ml"
+# 61993 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 62010 "parsing/parser.ml"
+# 61999 "parsing/parser.ml"
                   
                 in
                 
-# 2896 "parsing/parser.mly"
+# 2885 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) )
-# 62016 "parsing/parser.ml"
+# 62005 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -62020,9 +62009,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 62026 "parsing/parser.ml"
+# 62015 "parsing/parser.ml"
               
             in
             let od =
@@ -62031,24 +62020,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62037 "parsing/parser.ml"
+# 62026 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 62046 "parsing/parser.ml"
+# 62035 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 62052 "parsing/parser.ml"
+# 62041 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -62056,15 +62045,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62062 "parsing/parser.ml"
+# 62051 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62068 "parsing/parser.ml"
+# 62057 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62153,12 +62142,12 @@ module Tables = struct
                     let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 62157 "parsing/parser.ml"
+# 62146 "parsing/parser.ml"
                      in
                     
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 62162 "parsing/parser.ml"
+# 62151 "parsing/parser.ml"
                     
                   in
                   let _2 =
@@ -62169,18 +62158,18 @@ module Tables = struct
                           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 62173 "parsing/parser.ml"
+# 62162 "parsing/parser.ml"
                            in
                           
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 62178 "parsing/parser.ml"
+# 62167 "parsing/parser.ml"
                           
                         in
                         
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 62184 "parsing/parser.ml"
+# 62173 "parsing/parser.ml"
                         
                       in
                       let _endpos__3_ = _endpos_xs_ in
@@ -62189,46 +62178,46 @@ module Tables = struct
                         let _2 =
                           let _1 = _1_inlined1 in
                           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 62195 "parsing/parser.ml"
+# 62184 "parsing/parser.ml"
                           
                         in
                         
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 62201 "parsing/parser.ml"
+# 62190 "parsing/parser.ml"
                         
                       in
                       let _endpos = _endpos__3_ in
                       let _symbolstartpos = _startpos__1_ in
                       let _sloc = (_symbolstartpos, _endpos) in
                       
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 62214 "parsing/parser.ml"
+# 62203 "parsing/parser.ml"
                       
                     in
                     
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 62220 "parsing/parser.ml"
+# 62209 "parsing/parser.ml"
                     
                   in
                   
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 62226 "parsing/parser.ml"
+# 62215 "parsing/parser.ml"
                   
                 in
                 
-# 2896 "parsing/parser.mly"
+# 2885 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) )
-# 62232 "parsing/parser.ml"
+# 62221 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__4_ in
@@ -62236,9 +62225,9 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 62242 "parsing/parser.ml"
+# 62231 "parsing/parser.ml"
               
             in
             let od =
@@ -62247,24 +62236,24 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62253 "parsing/parser.ml"
+# 62242 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 62262 "parsing/parser.ml"
+# 62251 "parsing/parser.ml"
               
             in
             
-# 2996 "parsing/parser.mly"
+# 2985 "parsing/parser.mly"
       ( Pexp_open(od, _3) )
-# 62268 "parsing/parser.ml"
+# 62257 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -62272,15 +62261,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62278 "parsing/parser.ml"
+# 62267 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62284 "parsing/parser.ml"
+# 62273 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62333,9 +62322,9 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 62339 "parsing/parser.ml"
+# 62328 "parsing/parser.ml"
              in
             let od =
               let _1 =
@@ -62343,30 +62332,30 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62349 "parsing/parser.ml"
+# 62338 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 62358 "parsing/parser.ml"
+# 62347 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__5_ in
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             
-# 2998 "parsing/parser.mly"
+# 2987 "parsing/parser.mly"
       ( let list_exp =
           (* TODO: review the location of list_exp *)
           let tail_exp, _tail_loc = mktailexp _loc__5_ _4 in
           mkexp ~loc:(_startpos__3_, _endpos) tail_exp in
         Pexp_open(od, list_exp) )
-# 62370 "parsing/parser.ml"
+# 62359 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -62374,15 +62363,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62380 "parsing/parser.ml"
+# 62369 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62386 "parsing/parser.ml"
+# 62375 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62430,18 +62419,18 @@ module Tables = struct
             let _3 =
               let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
               let _1 = 
-# 3003 "parsing/parser.mly"
+# 2992 "parsing/parser.mly"
                                                         (Lident "[]")
-# 62436 "parsing/parser.ml"
+# 62425 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos__2_ in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62445 "parsing/parser.ml"
+# 62434 "parsing/parser.ml"
               
             in
             let (_endpos__3_, _startpos__3_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
@@ -62451,25 +62440,25 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62457 "parsing/parser.ml"
+# 62446 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 62466 "parsing/parser.ml"
+# 62455 "parsing/parser.ml"
               
             in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 3004 "parsing/parser.mly"
+# 2993 "parsing/parser.mly"
       ( Pexp_open(od, mkexp ~loc:_loc__3_ (Pexp_construct(_3, None))) )
-# 62473 "parsing/parser.ml"
+# 62462 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_inlined1_ in
@@ -62477,15 +62466,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62483 "parsing/parser.ml"
+# 62472 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62489 "parsing/parser.ml"
+# 62478 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62538,16 +62527,16 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 62544 "parsing/parser.ml"
+# 62533 "parsing/parser.ml"
              in
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 3007 "parsing/parser.mly"
+# 2996 "parsing/parser.mly"
       ( unclosed "[" _loc__3_ "]" _loc__5_ )
-# 62551 "parsing/parser.ml"
+# 62540 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -62555,15 +62544,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62561 "parsing/parser.ml"
+# 62550 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62567 "parsing/parser.ml"
+# 62556 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62656,11 +62645,11 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 62664 "parsing/parser.ml"
+# 62653 "parsing/parser.ml"
               
             in
             let _5 =
@@ -62668,15 +62657,15 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 62674 "parsing/parser.ml"
+# 62663 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 62680 "parsing/parser.ml"
+# 62669 "parsing/parser.ml"
               
             in
             let od =
@@ -62685,18 +62674,18 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 62691 "parsing/parser.ml"
+# 62680 "parsing/parser.ml"
                 
               in
               let _loc__1_ = (_startpos__1_, _endpos__1_) in
               
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 62700 "parsing/parser.ml"
+# 62689 "parsing/parser.ml"
               
             in
             let _startpos_od_ = _startpos__1_ in
@@ -62704,12 +62693,12 @@ module Tables = struct
             let _symbolstartpos = _startpos_od_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 3010 "parsing/parser.mly"
+# 2999 "parsing/parser.mly"
       ( let modexp =
           mkexp_attrs ~loc:(_startpos__3_, _endpos)
             (Pexp_constraint (ghexp ~loc:_sloc (Pexp_pack _6), _8)) _5 in
         Pexp_open(od, modexp) )
-# 62713 "parsing/parser.ml"
+# 62702 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__9_ in
@@ -62717,15 +62706,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62723 "parsing/parser.ml"
+# 62712 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62729 "parsing/parser.ml"
+# 62718 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62810,23 +62799,23 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 62816 "parsing/parser.ml"
+# 62805 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 62822 "parsing/parser.ml"
+# 62811 "parsing/parser.ml"
               
             in
             let _loc__8_ = (_startpos__8_, _endpos__8_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 3016 "parsing/parser.mly"
+# 3005 "parsing/parser.mly"
       ( unclosed "(" _loc__3_ ")" _loc__8_ )
-# 62830 "parsing/parser.ml"
+# 62819 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__8_ in
@@ -62834,15 +62823,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1233 "parsing/parser.mly"
+# 1222 "parsing/parser.mly"
     ( mkexp ~loc:_sloc _1 )
-# 62840 "parsing/parser.ml"
+# 62829 "parsing/parser.ml"
           
         in
         
-# 2816 "parsing/parser.mly"
+# 2805 "parsing/parser.mly"
       ( _1 )
-# 62846 "parsing/parser.ml"
+# 62835 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62881,20 +62870,20 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 62887 "parsing/parser.ml"
+# 62876 "parsing/parser.ml"
              in
             
-# 2906 "parsing/parser.mly"
+# 2895 "parsing/parser.mly"
       ( Generic_array.Simple.Literal _2 )
-# 62892 "parsing/parser.ml"
+# 62881 "parsing/parser.ml"
             
           in
           
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 62898 "parsing/parser.ml"
+# 62887 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -62902,7 +62891,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -62912,7 +62901,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 62916 "parsing/parser.ml"
+# 62905 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -62951,22 +62940,22 @@ module Tables = struct
         let _v : (Parsetree.expression) = let _1 =
           let _1 =
             let _2 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 62957 "parsing/parser.ml"
+# 62946 "parsing/parser.ml"
              in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 2908 "parsing/parser.mly"
+# 2897 "parsing/parser.mly"
       ( Generic_array.Simple.Unclosed(_loc__1_,_loc__3_) )
-# 62964 "parsing/parser.ml"
+# 62953 "parsing/parser.ml"
             
           in
           
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 62970 "parsing/parser.ml"
+# 62959 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__3_ in
@@ -62974,7 +62963,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -62984,7 +62973,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 62988 "parsing/parser.ml"
+# 62977 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63015,14 +63004,14 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.expression) = let _1 =
           let _1 = 
-# 2910 "parsing/parser.mly"
+# 2899 "parsing/parser.mly"
       ( Generic_array.Simple.Literal [] )
-# 63021 "parsing/parser.ml"
+# 63010 "parsing/parser.ml"
            in
           
-# 2915 "parsing/parser.mly"
+# 2904 "parsing/parser.mly"
       ( Generic_array.Expression.Simple _1 )
-# 63026 "parsing/parser.ml"
+# 63015 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__2_ in
@@ -63030,7 +63019,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -63040,7 +63029,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 63044 "parsing/parser.ml"
+# 63033 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63092,9 +63081,9 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 63098 "parsing/parser.ml"
+# 63087 "parsing/parser.ml"
            in
           let od =
             let _1 =
@@ -63102,26 +63091,26 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 63108 "parsing/parser.ml"
+# 63097 "parsing/parser.ml"
               
             in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 63117 "parsing/parser.ml"
+# 63106 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__5_ in
           
-# 2917 "parsing/parser.mly"
+# 2906 "parsing/parser.mly"
       ( Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, _4)
       )
-# 63125 "parsing/parser.ml"
+# 63114 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__5_ in
@@ -63129,7 +63118,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -63139,7 +63128,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 63143 "parsing/parser.ml"
+# 63132 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63189,27 +63178,27 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 63195 "parsing/parser.ml"
+# 63184 "parsing/parser.ml"
               
             in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 1939 "parsing/parser.mly"
+# 1928 "parsing/parser.mly"
   ( let loc = make_loc _loc__1_ in
     let me = Mod.ident ~loc _1 in
     Opn.mk ~loc me )
-# 63204 "parsing/parser.ml"
+# 63193 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__4_ in
           
-# 2920 "parsing/parser.mly"
+# 2909 "parsing/parser.mly"
       ( (* TODO: review the location of Pexp_array *)
         Generic_array.Expression.Opened_literal(od, _startpos__3_, _endpos, [])
       )
-# 63213 "parsing/parser.ml"
+# 63202 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__4_ in
@@ -63217,7 +63206,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -63227,7 +63216,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 63231 "parsing/parser.ml"
+# 63220 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63279,16 +63268,16 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.expression) = let _1 =
           let _4 = 
-# 3364 "parsing/parser.mly"
+# 3353 "parsing/parser.mly"
     ( es )
-# 63285 "parsing/parser.ml"
+# 63274 "parsing/parser.ml"
            in
           let _loc__5_ = (_startpos__5_, _endpos__5_) in
           let _loc__3_ = (_startpos__3_, _endpos__3_) in
           
-# 2925 "parsing/parser.mly"
+# 2914 "parsing/parser.mly"
       ( Generic_array.Expression.Simple (Unclosed(_loc__3_, _loc__5_)) )
-# 63292 "parsing/parser.ml"
+# 63281 "parsing/parser.ml"
           
         in
         let _endpos__1_ = _endpos__5_ in
@@ -63296,7 +63285,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2821 "parsing/parser.mly"
+# 2810 "parsing/parser.mly"
       ( Generic_array.Expression.to_expression
           "[:" ":]"
           ~loc:_sloc
@@ -63306,7 +63295,7 @@ module Tables = struct
                (Iaexp_immutable_array elts))
         _1
       )
-# 63310 "parsing/parser.ml"
+# 63299 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63332,9 +63321,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2830 "parsing/parser.mly"
+# 2819 "parsing/parser.mly"
              ( Constant.to_expression ~loc:_sloc _1 )
-# 63338 "parsing/parser.ml"
+# 63327 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63384,37 +63373,37 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63388 "parsing/parser.ml"
+# 63377 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 63393 "parsing/parser.ml"
+# 63382 "parsing/parser.ml"
                 
               in
               let _2 =
                 let _1 = _1_inlined1 in
                 let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 63401 "parsing/parser.ml"
+# 63390 "parsing/parser.ml"
                  in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 63406 "parsing/parser.ml"
+# 63395 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 63412 "parsing/parser.ml"
+# 63401 "parsing/parser.ml"
               
             in
             
-# 2892 "parsing/parser.mly"
+# 2881 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_list_comprehension  _1 )
-# 63418 "parsing/parser.ml"
+# 63407 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -63422,15 +63411,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 63428 "parsing/parser.ml"
+# 63417 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 63434 "parsing/parser.ml"
+# 63423 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63502,12 +63491,12 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63506 "parsing/parser.ml"
+# 63495 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 63511 "parsing/parser.ml"
+# 63500 "parsing/parser.ml"
                 
               in
               let _2 =
@@ -63518,18 +63507,18 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63522 "parsing/parser.ml"
+# 63511 "parsing/parser.ml"
                        in
                       
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 63527 "parsing/parser.ml"
+# 63516 "parsing/parser.ml"
                       
                     in
                     
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 63533 "parsing/parser.ml"
+# 63522 "parsing/parser.ml"
                     
                   in
                   let _endpos__3_ = _endpos_xs_ in
@@ -63538,46 +63527,46 @@ module Tables = struct
                     let _2 =
                       let _1 = _1_inlined1 in
                       
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 63544 "parsing/parser.ml"
+# 63533 "parsing/parser.ml"
                       
                     in
                     
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 63550 "parsing/parser.ml"
+# 63539 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos__3_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 63563 "parsing/parser.ml"
+# 63552 "parsing/parser.ml"
                   
                 in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 63569 "parsing/parser.ml"
+# 63558 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 63575 "parsing/parser.ml"
+# 63564 "parsing/parser.ml"
               
             in
             
-# 2892 "parsing/parser.mly"
+# 2881 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_list_comprehension  _1 )
-# 63581 "parsing/parser.ml"
+# 63570 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -63585,15 +63574,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 63591 "parsing/parser.ml"
+# 63580 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 63597 "parsing/parser.ml"
+# 63586 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63643,37 +63632,37 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63647 "parsing/parser.ml"
+# 63636 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 63652 "parsing/parser.ml"
+# 63641 "parsing/parser.ml"
                 
               in
               let _2 =
                 let _1 = _1_inlined1 in
                 let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 63660 "parsing/parser.ml"
+# 63649 "parsing/parser.ml"
                  in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 63665 "parsing/parser.ml"
+# 63654 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 63671 "parsing/parser.ml"
+# 63660 "parsing/parser.ml"
               
             in
             
-# 2894 "parsing/parser.mly"
+# 2883 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) )
-# 63677 "parsing/parser.ml"
+# 63666 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -63681,15 +63670,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 63687 "parsing/parser.ml"
+# 63676 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 63693 "parsing/parser.ml"
+# 63682 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63761,12 +63750,12 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63765 "parsing/parser.ml"
+# 63754 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 63770 "parsing/parser.ml"
+# 63759 "parsing/parser.ml"
                 
               in
               let _2 =
@@ -63777,18 +63766,18 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63781 "parsing/parser.ml"
+# 63770 "parsing/parser.ml"
                        in
                       
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 63786 "parsing/parser.ml"
+# 63775 "parsing/parser.ml"
                       
                     in
                     
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 63792 "parsing/parser.ml"
+# 63781 "parsing/parser.ml"
                     
                   in
                   let _endpos__3_ = _endpos_xs_ in
@@ -63797,46 +63786,46 @@ module Tables = struct
                     let _2 =
                       let _1 = _1_inlined1 in
                       
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 63803 "parsing/parser.ml"
+# 63792 "parsing/parser.ml"
                       
                     in
                     
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 63809 "parsing/parser.ml"
+# 63798 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos__3_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 63822 "parsing/parser.ml"
+# 63811 "parsing/parser.ml"
                   
                 in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 63828 "parsing/parser.ml"
+# 63817 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 63834 "parsing/parser.ml"
+# 63823 "parsing/parser.ml"
               
             in
             
-# 2894 "parsing/parser.mly"
+# 2883 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Mutable, _1) )
-# 63840 "parsing/parser.ml"
+# 63829 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -63844,15 +63833,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 63850 "parsing/parser.ml"
+# 63839 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 63856 "parsing/parser.ml"
+# 63845 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -63902,37 +63891,37 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 63906 "parsing/parser.ml"
+# 63895 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 63911 "parsing/parser.ml"
+# 63900 "parsing/parser.ml"
                 
               in
               let _2 =
                 let _1 = _1_inlined1 in
                 let _1 = 
-# 2557 "parsing/parser.mly"
+# 2546 "parsing/parser.mly"
       ( _1 )
-# 63919 "parsing/parser.ml"
+# 63908 "parsing/parser.ml"
                  in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 63924 "parsing/parser.ml"
+# 63913 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 63930 "parsing/parser.ml"
+# 63919 "parsing/parser.ml"
               
             in
             
-# 2896 "parsing/parser.mly"
+# 2885 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) )
-# 63936 "parsing/parser.ml"
+# 63925 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -63940,15 +63929,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 63946 "parsing/parser.ml"
+# 63935 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 63952 "parsing/parser.ml"
+# 63941 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64020,12 +64009,12 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 64024 "parsing/parser.ml"
+# 64013 "parsing/parser.ml"
                  in
                 
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 64029 "parsing/parser.ml"
+# 64018 "parsing/parser.ml"
                 
               in
               let _2 =
@@ -64036,18 +64025,18 @@ module Tables = struct
                       let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 64040 "parsing/parser.ml"
+# 64029 "parsing/parser.ml"
                        in
                       
-# 1418 "parsing/parser.mly"
+# 1407 "parsing/parser.mly"
     ( xs )
-# 64045 "parsing/parser.ml"
+# 64034 "parsing/parser.ml"
                       
                     in
                     
-# 3202 "parsing/parser.mly"
+# 3191 "parsing/parser.mly"
     ( xs )
-# 64051 "parsing/parser.ml"
+# 64040 "parsing/parser.ml"
                     
                   in
                   let _endpos__3_ = _endpos_xs_ in
@@ -64056,46 +64045,46 @@ module Tables = struct
                     let _2 =
                       let _1 = _1_inlined1 in
                       
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 64062 "parsing/parser.ml"
+# 64051 "parsing/parser.ml"
                       
                     in
                     
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 64068 "parsing/parser.ml"
+# 64057 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos__3_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2559 "parsing/parser.mly"
+# 2548 "parsing/parser.mly"
       ( let loc = make_loc _sloc in
         let cases = _3 in
         mkfunction [] None (Pfunction_cases (cases, loc, []))
           ~loc:_sloc ~attrs:_2
       )
-# 64081 "parsing/parser.ml"
+# 64070 "parsing/parser.ml"
                   
                 in
                 
-# 2741 "parsing/parser.mly"
+# 2730 "parsing/parser.mly"
                           ( _1 )
-# 64087 "parsing/parser.ml"
+# 64076 "parsing/parser.ml"
                 
               in
               
-# 2887 "parsing/parser.mly"
+# 2876 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.{ body = _2; clauses = _3 } )
-# 64093 "parsing/parser.ml"
+# 64082 "parsing/parser.ml"
               
             in
             
-# 2896 "parsing/parser.mly"
+# 2885 "parsing/parser.mly"
       ( Jane_syntax.Comprehensions.Cexp_array_comprehension (Immutable, _1) )
-# 64099 "parsing/parser.ml"
+# 64088 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -64103,15 +64092,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 2901 "parsing/parser.mly"
+# 2890 "parsing/parser.mly"
     ( Jane_syntax.Comprehensions.expr_of ~loc:(make_loc _sloc) _1 )
-# 64109 "parsing/parser.ml"
+# 64098 "parsing/parser.ml"
           
         in
         
-# 2831 "parsing/parser.mly"
+# 2820 "parsing/parser.mly"
                        ( _1 )
-# 64115 "parsing/parser.ml"
+# 64104 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64140,30 +64129,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64146 "parsing/parser.ml"
+# 64135 "parsing/parser.ml"
               
             in
             
-# 3514 "parsing/parser.mly"
+# 3503 "parsing/parser.mly"
       ( Ppat_var (_1) )
-# 64152 "parsing/parser.ml"
+# 64141 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64161 "parsing/parser.ml"
+# 64150 "parsing/parser.ml"
           
         in
         
-# 3515 "parsing/parser.mly"
+# 3504 "parsing/parser.mly"
       ( _1 )
-# 64167 "parsing/parser.ml"
+# 64156 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64186,9 +64175,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = 
-# 3516 "parsing/parser.mly"
+# 3505 "parsing/parser.mly"
                              ( _1 )
-# 64192 "parsing/parser.ml"
+# 64181 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64228,9 +64217,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3521 "parsing/parser.mly"
+# 3510 "parsing/parser.mly"
       ( reloc_pat ~loc:_sloc _2 )
-# 64234 "parsing/parser.ml"
+# 64223 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64253,9 +64242,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = 
-# 3523 "parsing/parser.mly"
+# 3512 "parsing/parser.mly"
       ( _1 )
-# 64259 "parsing/parser.ml"
+# 64248 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64318,9 +64307,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64324 "parsing/parser.ml"
+# 64313 "parsing/parser.ml"
           
         in
         let _3 =
@@ -64328,24 +64317,24 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 64334 "parsing/parser.ml"
+# 64323 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 64340 "parsing/parser.ml"
+# 64329 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3525 "parsing/parser.mly"
+# 3514 "parsing/parser.mly"
       ( mkpat_attrs ~loc:_sloc (Ppat_unpack _4) _3 )
-# 64349 "parsing/parser.ml"
+# 64338 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64422,11 +64411,11 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 64430 "parsing/parser.ml"
+# 64419 "parsing/parser.ml"
           
         in
         let _4 =
@@ -64435,9 +64424,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64441 "parsing/parser.ml"
+# 64430 "parsing/parser.ml"
           
         in
         let (_endpos__4_, _startpos__4_) = (_endpos__1_inlined3_, _startpos__1_inlined3_) in
@@ -64446,15 +64435,15 @@ module Tables = struct
           let _2 =
             let _1 = _1_inlined1 in
             
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 64452 "parsing/parser.ml"
+# 64441 "parsing/parser.ml"
             
           in
           
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 64458 "parsing/parser.ml"
+# 64447 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__7_ in
@@ -64462,11 +64451,11 @@ module Tables = struct
         let _loc__4_ = (_startpos__4_, _endpos__4_) in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3527 "parsing/parser.mly"
+# 3516 "parsing/parser.mly"
       ( mkpat_attrs ~loc:_sloc
           (Ppat_constraint(mkpat ~loc:_loc__4_ (Ppat_unpack _4), _6))
           _3 )
-# 64470 "parsing/parser.ml"
+# 64459 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64490,23 +64479,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3536 "parsing/parser.mly"
+# 3525 "parsing/parser.mly"
       ( Ppat_any )
-# 64496 "parsing/parser.ml"
+# 64485 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64504 "parsing/parser.ml"
+# 64493 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64510 "parsing/parser.ml"
+# 64499 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64544,24 +64533,24 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3538 "parsing/parser.mly"
+# 3527 "parsing/parser.mly"
       ( Ppat_interval (_1, _3) )
-# 64550 "parsing/parser.ml"
+# 64539 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__3_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64559 "parsing/parser.ml"
+# 64548 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64565 "parsing/parser.ml"
+# 64554 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64590,30 +64579,30 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64596 "parsing/parser.ml"
+# 64585 "parsing/parser.ml"
               
             in
             
-# 3540 "parsing/parser.mly"
+# 3529 "parsing/parser.mly"
       ( Ppat_construct(_1, None) )
-# 64602 "parsing/parser.ml"
+# 64591 "parsing/parser.ml"
             
           in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64611 "parsing/parser.ml"
+# 64600 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64617 "parsing/parser.ml"
+# 64606 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64637,23 +64626,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3542 "parsing/parser.mly"
+# 3531 "parsing/parser.mly"
       ( Ppat_variant(_1, None) )
-# 64643 "parsing/parser.ml"
+# 64632 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64651 "parsing/parser.ml"
+# 64640 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64657 "parsing/parser.ml"
+# 64646 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64690,20 +64679,20 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64696 "parsing/parser.ml"
+# 64685 "parsing/parser.ml"
               
             in
             let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 64702 "parsing/parser.ml"
+# 64691 "parsing/parser.ml"
              in
             
-# 3544 "parsing/parser.mly"
+# 3533 "parsing/parser.mly"
       ( Ppat_type (_2) )
-# 64707 "parsing/parser.ml"
+# 64696 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -64711,15 +64700,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64717 "parsing/parser.ml"
+# 64706 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64723 "parsing/parser.ml"
+# 64712 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64756,20 +64745,20 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64762 "parsing/parser.ml"
+# 64751 "parsing/parser.ml"
               
             in
             let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 64768 "parsing/parser.ml"
+# 64757 "parsing/parser.ml"
              in
             
-# 3544 "parsing/parser.mly"
+# 3533 "parsing/parser.mly"
       ( Ppat_type (_2) )
-# 64773 "parsing/parser.ml"
+# 64762 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -64777,15 +64766,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64783 "parsing/parser.ml"
+# 64772 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64789 "parsing/parser.ml"
+# 64778 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64828,15 +64817,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64834 "parsing/parser.ml"
+# 64823 "parsing/parser.ml"
               
             in
             
-# 3546 "parsing/parser.mly"
+# 3535 "parsing/parser.mly"
       ( Ppat_open(_1, _3) )
-# 64840 "parsing/parser.ml"
+# 64829 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -64844,15 +64833,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64850 "parsing/parser.ml"
+# 64839 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64856 "parsing/parser.ml"
+# 64845 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64900,18 +64889,18 @@ module Tables = struct
             let _3 =
               let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
               let _1 = 
-# 3547 "parsing/parser.mly"
+# 3536 "parsing/parser.mly"
                                                      (Lident "[]")
-# 64906 "parsing/parser.ml"
+# 64895 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos__2_ in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64915 "parsing/parser.ml"
+# 64904 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos__2_inlined1_ in
@@ -64920,18 +64909,18 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 64926 "parsing/parser.ml"
+# 64915 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 3548 "parsing/parser.mly"
+# 3537 "parsing/parser.mly"
     ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) )
-# 64935 "parsing/parser.ml"
+# 64924 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_inlined1_ in
@@ -64939,15 +64928,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 64945 "parsing/parser.ml"
+# 64934 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 64951 "parsing/parser.ml"
+# 64940 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -64995,18 +64984,18 @@ module Tables = struct
             let _3 =
               let (_endpos__2_, _startpos__1_) = (_endpos__2_inlined1_, _startpos__1_inlined1_) in
               let _1 = 
-# 3549 "parsing/parser.mly"
+# 3538 "parsing/parser.mly"
                                                  (Lident "()")
-# 65001 "parsing/parser.ml"
+# 64990 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos__2_ in
               let _endpos = _endpos__1_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 65010 "parsing/parser.ml"
+# 64999 "parsing/parser.ml"
               
             in
             let _endpos__3_ = _endpos__2_inlined1_ in
@@ -65015,18 +65004,18 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 65021 "parsing/parser.ml"
+# 65010 "parsing/parser.ml"
               
             in
             let _endpos = _endpos__3_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 3550 "parsing/parser.mly"
+# 3539 "parsing/parser.mly"
     ( Ppat_open(_1, mkpat ~loc:_sloc (Ppat_construct(_3, None))) )
-# 65030 "parsing/parser.ml"
+# 65019 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__2_inlined1_ in
@@ -65034,15 +65023,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65040 "parsing/parser.ml"
+# 65029 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65046 "parsing/parser.ml"
+# 65035 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65099,15 +65088,15 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 65105 "parsing/parser.ml"
+# 65094 "parsing/parser.ml"
               
             in
             
-# 3552 "parsing/parser.mly"
+# 3541 "parsing/parser.mly"
       ( Ppat_open (_1, _4) )
-# 65111 "parsing/parser.ml"
+# 65100 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -65115,15 +65104,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65121 "parsing/parser.ml"
+# 65110 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65127 "parsing/parser.ml"
+# 65116 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65178,9 +65167,9 @@ module Tables = struct
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             
-# 3554 "parsing/parser.mly"
+# 3543 "parsing/parser.mly"
       ( unclosed "(" _loc__3_ ")" _loc__5_  )
-# 65184 "parsing/parser.ml"
+# 65173 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -65188,15 +65177,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65194 "parsing/parser.ml"
+# 65183 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65200 "parsing/parser.ml"
+# 65189 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65243,9 +65232,9 @@ module Tables = struct
           let _1 =
             let _loc__4_ = (_startpos__4_, _endpos__4_) in
             
-# 3556 "parsing/parser.mly"
+# 3545 "parsing/parser.mly"
       ( expecting _loc__4_ "pattern" )
-# 65249 "parsing/parser.ml"
+# 65238 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -65253,15 +65242,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65259 "parsing/parser.ml"
+# 65248 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65265 "parsing/parser.ml"
+# 65254 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65302,9 +65291,9 @@ module Tables = struct
             let _loc__3_ = (_startpos__3_, _endpos__3_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 3558 "parsing/parser.mly"
+# 3547 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 65308 "parsing/parser.ml"
+# 65297 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__3_ in
@@ -65312,15 +65301,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65318 "parsing/parser.ml"
+# 65307 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65324 "parsing/parser.ml"
+# 65313 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65372,24 +65361,24 @@ module Tables = struct
         let _endpos = _endpos__5_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3560 "parsing/parser.mly"
+# 3549 "parsing/parser.mly"
       ( Ppat_constraint(_2, _4) )
-# 65378 "parsing/parser.ml"
+# 65367 "parsing/parser.ml"
            in
           let _endpos__1_ = _endpos__5_ in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65387 "parsing/parser.ml"
+# 65376 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65393 "parsing/parser.ml"
+# 65382 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65444,9 +65433,9 @@ module Tables = struct
             let _loc__5_ = (_startpos__5_, _endpos__5_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 3562 "parsing/parser.mly"
+# 3551 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__5_ )
-# 65450 "parsing/parser.ml"
+# 65439 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__5_ in
@@ -65454,15 +65443,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65460 "parsing/parser.ml"
+# 65449 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65466 "parsing/parser.ml"
+# 65455 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65509,9 +65498,9 @@ module Tables = struct
           let _1 =
             let _loc__4_ = (_startpos__4_, _endpos__4_) in
             
-# 3564 "parsing/parser.mly"
+# 3553 "parsing/parser.mly"
       ( expecting _loc__4_ "type" )
-# 65515 "parsing/parser.ml"
+# 65504 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__4_ in
@@ -65519,15 +65508,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65525 "parsing/parser.ml"
+# 65514 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65531 "parsing/parser.ml"
+# 65520 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65606,11 +65595,11 @@ module Tables = struct
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 4389 "parsing/parser.mly"
+# 4378 "parsing/parser.mly"
       ( let (lid, cstrs, attrs) = package_type_of_module_type _1 in
         let descr = Ptyp_package (lid, cstrs) in
         mktyp ~loc:_sloc ~attrs descr )
-# 65614 "parsing/parser.ml"
+# 65603 "parsing/parser.ml"
               
             in
             let _3 =
@@ -65618,23 +65607,23 @@ module Tables = struct
               let _2 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 65624 "parsing/parser.ml"
+# 65613 "parsing/parser.ml"
                 
               in
               
-# 4858 "parsing/parser.mly"
+# 4847 "parsing/parser.mly"
                     ( _1, _2 )
-# 65630 "parsing/parser.ml"
+# 65619 "parsing/parser.ml"
               
             in
             let _loc__7_ = (_startpos__7_, _endpos__7_) in
             let _loc__1_ = (_startpos__1_, _endpos__1_) in
             
-# 3567 "parsing/parser.mly"
+# 3556 "parsing/parser.mly"
       ( unclosed "(" _loc__1_ ")" _loc__7_ )
-# 65638 "parsing/parser.ml"
+# 65627 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__7_ in
@@ -65642,15 +65631,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65648 "parsing/parser.ml"
+# 65637 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65654 "parsing/parser.ml"
+# 65643 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65674,23 +65663,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.pattern) = let _1 =
           let _1 = 
-# 3569 "parsing/parser.mly"
+# 3558 "parsing/parser.mly"
       ( Ppat_extension _1 )
-# 65680 "parsing/parser.ml"
+# 65669 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1235 "parsing/parser.mly"
+# 1224 "parsing/parser.mly"
     ( mkpat ~loc:_sloc _1 )
-# 65688 "parsing/parser.ml"
+# 65677 "parsing/parser.ml"
           
         in
         
-# 3531 "parsing/parser.mly"
+# 3520 "parsing/parser.mly"
       ( _1 )
-# 65694 "parsing/parser.ml"
+# 65683 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65716,9 +65705,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3532 "parsing/parser.mly"
+# 3521 "parsing/parser.mly"
                     ( Constant.to_pattern _1 ~loc:_sloc )
-# 65722 "parsing/parser.ml"
+# 65711 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65737,17 +65726,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 65743 "parsing/parser.ml"
+# 65732 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4765 "parsing/parser.mly"
+# 4754 "parsing/parser.mly"
            ( _1 )
-# 65751 "parsing/parser.ml"
+# 65740 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65766,17 +65755,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1066 "parsing/parser.mly"
+# 1055 "parsing/parser.mly"
        (string)
-# 65772 "parsing/parser.ml"
+# 65761 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4766 "parsing/parser.mly"
+# 4755 "parsing/parser.mly"
            ( _1 )
-# 65780 "parsing/parser.ml"
+# 65769 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65799,9 +65788,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4767 "parsing/parser.mly"
+# 4756 "parsing/parser.mly"
         ( "and" )
-# 65805 "parsing/parser.ml"
+# 65794 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65824,9 +65813,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4768 "parsing/parser.mly"
+# 4757 "parsing/parser.mly"
        ( "as" )
-# 65830 "parsing/parser.ml"
+# 65819 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65849,9 +65838,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4769 "parsing/parser.mly"
+# 4758 "parsing/parser.mly"
            ( "assert" )
-# 65855 "parsing/parser.ml"
+# 65844 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65874,9 +65863,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4770 "parsing/parser.mly"
+# 4759 "parsing/parser.mly"
           ( "begin" )
-# 65880 "parsing/parser.ml"
+# 65869 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65899,9 +65888,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4771 "parsing/parser.mly"
+# 4760 "parsing/parser.mly"
           ( "class" )
-# 65905 "parsing/parser.ml"
+# 65894 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65924,9 +65913,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4772 "parsing/parser.mly"
+# 4761 "parsing/parser.mly"
                ( "constraint" )
-# 65930 "parsing/parser.ml"
+# 65919 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65949,9 +65938,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4773 "parsing/parser.mly"
+# 4762 "parsing/parser.mly"
        ( "do" )
-# 65955 "parsing/parser.ml"
+# 65944 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65974,9 +65963,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4774 "parsing/parser.mly"
+# 4763 "parsing/parser.mly"
          ( "done" )
-# 65980 "parsing/parser.ml"
+# 65969 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -65999,9 +65988,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4775 "parsing/parser.mly"
+# 4764 "parsing/parser.mly"
            ( "downto" )
-# 66005 "parsing/parser.ml"
+# 65994 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66024,9 +66013,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4776 "parsing/parser.mly"
+# 4765 "parsing/parser.mly"
          ( "else" )
-# 66030 "parsing/parser.ml"
+# 66019 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66049,9 +66038,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4777 "parsing/parser.mly"
+# 4766 "parsing/parser.mly"
         ( "end" )
-# 66055 "parsing/parser.ml"
+# 66044 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66074,9 +66063,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4778 "parsing/parser.mly"
+# 4767 "parsing/parser.mly"
               ( "exception" )
-# 66080 "parsing/parser.ml"
+# 66069 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66099,9 +66088,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4779 "parsing/parser.mly"
+# 4768 "parsing/parser.mly"
              ( "external" )
-# 66105 "parsing/parser.ml"
+# 66094 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66124,9 +66113,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4780 "parsing/parser.mly"
+# 4769 "parsing/parser.mly"
           ( "false" )
-# 66130 "parsing/parser.ml"
+# 66119 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66149,9 +66138,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4781 "parsing/parser.mly"
+# 4770 "parsing/parser.mly"
         ( "for" )
-# 66155 "parsing/parser.ml"
+# 66144 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66174,9 +66163,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4782 "parsing/parser.mly"
+# 4771 "parsing/parser.mly"
         ( "fun" )
-# 66180 "parsing/parser.ml"
+# 66169 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66199,9 +66188,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4783 "parsing/parser.mly"
+# 4772 "parsing/parser.mly"
              ( "function" )
-# 66205 "parsing/parser.ml"
+# 66194 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66224,9 +66213,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4784 "parsing/parser.mly"
+# 4773 "parsing/parser.mly"
             ( "functor" )
-# 66230 "parsing/parser.ml"
+# 66219 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66249,9 +66238,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4785 "parsing/parser.mly"
+# 4774 "parsing/parser.mly"
        ( "if" )
-# 66255 "parsing/parser.ml"
+# 66244 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66274,9 +66263,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4786 "parsing/parser.mly"
+# 4775 "parsing/parser.mly"
        ( "in" )
-# 66280 "parsing/parser.ml"
+# 66269 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66299,9 +66288,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4787 "parsing/parser.mly"
+# 4776 "parsing/parser.mly"
             ( "include" )
-# 66305 "parsing/parser.ml"
+# 66294 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66324,9 +66313,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4788 "parsing/parser.mly"
+# 4777 "parsing/parser.mly"
             ( "inherit" )
-# 66330 "parsing/parser.ml"
+# 66319 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66349,9 +66338,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4789 "parsing/parser.mly"
+# 4778 "parsing/parser.mly"
                 ( "initializer" )
-# 66355 "parsing/parser.ml"
+# 66344 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66374,9 +66363,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4790 "parsing/parser.mly"
+# 4779 "parsing/parser.mly"
          ( "lazy" )
-# 66380 "parsing/parser.ml"
+# 66369 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66399,9 +66388,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4791 "parsing/parser.mly"
+# 4780 "parsing/parser.mly"
         ( "let" )
-# 66405 "parsing/parser.ml"
+# 66394 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66424,9 +66413,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4792 "parsing/parser.mly"
+# 4781 "parsing/parser.mly"
           ( "local_" )
-# 66430 "parsing/parser.ml"
+# 66419 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66449,9 +66438,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4793 "parsing/parser.mly"
+# 4782 "parsing/parser.mly"
           ( "match" )
-# 66455 "parsing/parser.ml"
+# 66444 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66474,9 +66463,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4794 "parsing/parser.mly"
+# 4783 "parsing/parser.mly"
            ( "method" )
-# 66480 "parsing/parser.ml"
+# 66469 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66499,9 +66488,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4795 "parsing/parser.mly"
+# 4784 "parsing/parser.mly"
            ( "module" )
-# 66505 "parsing/parser.ml"
+# 66494 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66524,9 +66513,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4796 "parsing/parser.mly"
+# 4785 "parsing/parser.mly"
             ( "mutable" )
-# 66530 "parsing/parser.ml"
+# 66519 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66549,9 +66538,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4797 "parsing/parser.mly"
+# 4786 "parsing/parser.mly"
         ( "new" )
-# 66555 "parsing/parser.ml"
+# 66544 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66574,9 +66563,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4798 "parsing/parser.mly"
+# 4787 "parsing/parser.mly"
            ( "nonrec" )
-# 66580 "parsing/parser.ml"
+# 66569 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66599,9 +66588,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4799 "parsing/parser.mly"
+# 4788 "parsing/parser.mly"
            ( "object" )
-# 66605 "parsing/parser.ml"
+# 66594 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66624,9 +66613,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4800 "parsing/parser.mly"
+# 4789 "parsing/parser.mly"
        ( "of" )
-# 66630 "parsing/parser.ml"
+# 66619 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66649,9 +66638,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4801 "parsing/parser.mly"
+# 4790 "parsing/parser.mly"
          ( "open" )
-# 66655 "parsing/parser.ml"
+# 66644 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66674,9 +66663,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4802 "parsing/parser.mly"
+# 4791 "parsing/parser.mly"
        ( "or" )
-# 66680 "parsing/parser.ml"
+# 66669 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66699,9 +66688,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4803 "parsing/parser.mly"
+# 4792 "parsing/parser.mly"
             ( "private" )
-# 66705 "parsing/parser.ml"
+# 66694 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66724,9 +66713,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4804 "parsing/parser.mly"
+# 4793 "parsing/parser.mly"
         ( "rec" )
-# 66730 "parsing/parser.ml"
+# 66719 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66749,9 +66738,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4805 "parsing/parser.mly"
+# 4794 "parsing/parser.mly"
         ( "sig" )
-# 66755 "parsing/parser.ml"
+# 66744 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66774,9 +66763,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4806 "parsing/parser.mly"
+# 4795 "parsing/parser.mly"
            ( "struct" )
-# 66780 "parsing/parser.ml"
+# 66769 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66799,9 +66788,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4807 "parsing/parser.mly"
+# 4796 "parsing/parser.mly"
          ( "then" )
-# 66805 "parsing/parser.ml"
+# 66794 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66824,9 +66813,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4808 "parsing/parser.mly"
+# 4797 "parsing/parser.mly"
        ( "to" )
-# 66830 "parsing/parser.ml"
+# 66819 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66849,9 +66838,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4809 "parsing/parser.mly"
+# 4798 "parsing/parser.mly"
          ( "true" )
-# 66855 "parsing/parser.ml"
+# 66844 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66874,9 +66863,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4810 "parsing/parser.mly"
+# 4799 "parsing/parser.mly"
         ( "try" )
-# 66880 "parsing/parser.ml"
+# 66869 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66899,9 +66888,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4811 "parsing/parser.mly"
+# 4800 "parsing/parser.mly"
          ( "type" )
-# 66905 "parsing/parser.ml"
+# 66894 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66924,9 +66913,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4812 "parsing/parser.mly"
+# 4801 "parsing/parser.mly"
         ( "val" )
-# 66930 "parsing/parser.ml"
+# 66919 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66949,9 +66938,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4813 "parsing/parser.mly"
+# 4802 "parsing/parser.mly"
             ( "virtual" )
-# 66955 "parsing/parser.ml"
+# 66944 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66974,9 +66963,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4814 "parsing/parser.mly"
+# 4803 "parsing/parser.mly"
          ( "when" )
-# 66980 "parsing/parser.ml"
+# 66969 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -66999,9 +66988,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4815 "parsing/parser.mly"
+# 4804 "parsing/parser.mly"
           ( "while" )
-# 67005 "parsing/parser.ml"
+# 66994 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67024,9 +67013,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4816 "parsing/parser.mly"
+# 4805 "parsing/parser.mly"
          ( "with" )
-# 67030 "parsing/parser.ml"
+# 67019 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67049,9 +67038,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.type_exception * string Asttypes.loc option) = 
-# 3889 "parsing/parser.mly"
+# 3878 "parsing/parser.mly"
     ( _1 )
-# 67055 "parsing/parser.ml"
+# 67044 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67125,18 +67114,18 @@ module Tables = struct
         let _v : (Parsetree.type_exception * string Asttypes.loc option) = let attrs =
           let _1 = _1_inlined5 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 67131 "parsing/parser.ml"
+# 67120 "parsing/parser.ml"
           
         in
         let _endpos_attrs_ = _endpos__1_inlined5_ in
         let attrs2 =
           let _1 = _1_inlined4 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 67140 "parsing/parser.ml"
+# 67129 "parsing/parser.ml"
           
         in
         let lid =
@@ -67145,9 +67134,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 67151 "parsing/parser.ml"
+# 67140 "parsing/parser.ml"
           
         in
         let id =
@@ -67156,30 +67145,30 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 67162 "parsing/parser.ml"
+# 67151 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 67170 "parsing/parser.ml"
+# 67159 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3898 "parsing/parser.mly"
+# 3887 "parsing/parser.mly"
   ( let loc = make_loc _sloc in
     let docs = symbol_docs _sloc in
     Te.mk_exception ~attrs
       (Te.rebind id lid ~attrs:(attrs1 @ attrs2) ~loc ~docs)
     , ext )
-# 67183 "parsing/parser.ml"
+# 67172 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67209,9 +67198,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Jane_syntax.Mode_expr.t -> Parsetree.expression) = 
-# 3170 "parsing/parser.mly"
+# 3159 "parsing/parser.mly"
       ( fun _ -> _2 )
-# 67215 "parsing/parser.ml"
+# 67204 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67258,7 +67247,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3172 "parsing/parser.mly"
+# 3161 "parsing/parser.mly"
     ( fun mode_annotations ->
         let constraint_ : N_ary.function_constraint option =
           match _2 with
@@ -67268,7 +67257,7 @@ module Tables = struct
         let exp = mkfunction _1 constraint_ _4 ~loc:_sloc ~attrs:(None, []) in
         { exp with pexp_loc = { exp.pexp_loc with loc_ghost = true } }
     )
-# 67272 "parsing/parser.ml"
+# 67261 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67350,24 +67339,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 67354 "parsing/parser.ml"
+# 67343 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 67359 "parsing/parser.ml"
+# 67348 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 67365 "parsing/parser.ml"
+# 67354 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 67371 "parsing/parser.ml"
+# 67360 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -67375,45 +67364,45 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 67381 "parsing/parser.ml"
+# 67370 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 67387 "parsing/parser.ml"
+# 67376 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 67394 "parsing/parser.ml"
+# 67383 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 67400 "parsing/parser.ml"
+# 67389 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 67406 "parsing/parser.ml"
+# 67395 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 67411 "parsing/parser.ml"
+# 67400 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 67417 "parsing/parser.ml"
+# 67406 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -67421,15 +67410,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 67427 "parsing/parser.ml"
+# 67416 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 67433 "parsing/parser.ml"
+# 67422 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67476,38 +67465,38 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 67482 "parsing/parser.ml"
+# 67471 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 67488 "parsing/parser.ml"
+# 67477 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 67494 "parsing/parser.ml"
+# 67483 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 67500 "parsing/parser.ml"
+# 67489 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 67505 "parsing/parser.ml"
+# 67494 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 67511 "parsing/parser.ml"
+# 67500 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -67515,15 +67504,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 67521 "parsing/parser.ml"
+# 67510 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 67527 "parsing/parser.ml"
+# 67516 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67613,24 +67602,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 67617 "parsing/parser.ml"
+# 67606 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 67622 "parsing/parser.ml"
+# 67611 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 67628 "parsing/parser.ml"
+# 67617 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 67634 "parsing/parser.ml"
+# 67623 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -67638,22 +67627,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 67644 "parsing/parser.ml"
+# 67633 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 67650 "parsing/parser.ml"
+# 67639 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 67657 "parsing/parser.ml"
+# 67646 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -67662,33 +67651,33 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 67668 "parsing/parser.ml"
+# 67657 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 67674 "parsing/parser.ml"
+# 67663 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 67681 "parsing/parser.ml"
+# 67670 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 67686 "parsing/parser.ml"
+# 67675 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 67692 "parsing/parser.ml"
+# 67681 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -67696,15 +67685,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 67702 "parsing/parser.ml"
+# 67691 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 67708 "parsing/parser.ml"
+# 67697 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67758,15 +67747,15 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 67764 "parsing/parser.ml"
+# 67753 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 67770 "parsing/parser.ml"
+# 67759 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -67775,33 +67764,33 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 67781 "parsing/parser.ml"
+# 67770 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 67787 "parsing/parser.ml"
+# 67776 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 67794 "parsing/parser.ml"
+# 67783 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 67799 "parsing/parser.ml"
+# 67788 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 67805 "parsing/parser.ml"
+# 67794 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -67809,15 +67798,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 67815 "parsing/parser.ml"
+# 67804 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 67821 "parsing/parser.ml"
+# 67810 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -67892,9 +67881,9 @@ module Tables = struct
         let _1 : unit = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 67898 "parsing/parser.ml"
+# 67887 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -67910,24 +67899,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 67914 "parsing/parser.ml"
+# 67903 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 67919 "parsing/parser.ml"
+# 67908 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 67925 "parsing/parser.ml"
+# 67914 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 67931 "parsing/parser.ml"
+# 67920 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -67935,45 +67924,45 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 67941 "parsing/parser.ml"
+# 67930 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 67947 "parsing/parser.ml"
+# 67936 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 67954 "parsing/parser.ml"
+# 67943 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 67960 "parsing/parser.ml"
+# 67949 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 67966 "parsing/parser.ml"
+# 67955 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 67971 "parsing/parser.ml"
+# 67960 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 67977 "parsing/parser.ml"
+# 67966 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -67981,15 +67970,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 67987 "parsing/parser.ml"
+# 67976 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 67993 "parsing/parser.ml"
+# 67982 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68036,9 +68025,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 68042 "parsing/parser.ml"
+# 68031 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -68047,38 +68036,38 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 68053 "parsing/parser.ml"
+# 68042 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68059 "parsing/parser.ml"
+# 68048 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 68065 "parsing/parser.ml"
+# 68054 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 68071 "parsing/parser.ml"
+# 68060 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 68076 "parsing/parser.ml"
+# 68065 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68082 "parsing/parser.ml"
+# 68071 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -68086,15 +68075,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68092 "parsing/parser.ml"
+# 68081 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68098 "parsing/parser.ml"
+# 68087 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68176,9 +68165,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 68182 "parsing/parser.ml"
+# 68171 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -68195,24 +68184,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 68199 "parsing/parser.ml"
+# 68188 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 68204 "parsing/parser.ml"
+# 68193 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 68210 "parsing/parser.ml"
+# 68199 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 68216 "parsing/parser.ml"
+# 68205 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -68220,22 +68209,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 68226 "parsing/parser.ml"
+# 68215 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 68232 "parsing/parser.ml"
+# 68221 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68239 "parsing/parser.ml"
+# 68228 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -68244,33 +68233,33 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 68250 "parsing/parser.ml"
+# 68239 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 68256 "parsing/parser.ml"
+# 68245 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 68263 "parsing/parser.ml"
+# 68252 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 68268 "parsing/parser.ml"
+# 68257 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68274 "parsing/parser.ml"
+# 68263 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -68278,15 +68267,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68284 "parsing/parser.ml"
+# 68273 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68290 "parsing/parser.ml"
+# 68279 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68340,9 +68329,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 68346 "parsing/parser.ml"
+# 68335 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -68351,15 +68340,15 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 68357 "parsing/parser.ml"
+# 68346 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68363 "parsing/parser.ml"
+# 68352 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -68368,33 +68357,33 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 68374 "parsing/parser.ml"
+# 68363 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 68380 "parsing/parser.ml"
+# 68369 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 68387 "parsing/parser.ml"
+# 68376 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 68392 "parsing/parser.ml"
+# 68381 "parsing/parser.ml"
               
             in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68398 "parsing/parser.ml"
+# 68387 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -68402,15 +68391,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68408 "parsing/parser.ml"
+# 68397 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68414 "parsing/parser.ml"
+# 68403 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68485,24 +68474,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 68489 "parsing/parser.ml"
+# 68478 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 68494 "parsing/parser.ml"
+# 68483 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 68500 "parsing/parser.ml"
+# 68489 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 68506 "parsing/parser.ml"
+# 68495 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -68510,38 +68499,38 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 68516 "parsing/parser.ml"
+# 68505 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 68522 "parsing/parser.ml"
+# 68511 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68529 "parsing/parser.ml"
+# 68518 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 68535 "parsing/parser.ml"
+# 68524 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 68540 "parsing/parser.ml"
+# 68529 "parsing/parser.ml"
              in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68545 "parsing/parser.ml"
+# 68534 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -68549,15 +68538,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68555 "parsing/parser.ml"
+# 68544 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68561 "parsing/parser.ml"
+# 68550 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68597,31 +68586,31 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 68603 "parsing/parser.ml"
+# 68592 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68609 "parsing/parser.ml"
+# 68598 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 68615 "parsing/parser.ml"
+# 68604 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 68620 "parsing/parser.ml"
+# 68609 "parsing/parser.ml"
              in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68625 "parsing/parser.ml"
+# 68614 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in
@@ -68629,15 +68618,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68635 "parsing/parser.ml"
+# 68624 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68641 "parsing/parser.ml"
+# 68630 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68720,24 +68709,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 68724 "parsing/parser.ml"
+# 68713 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 68729 "parsing/parser.ml"
+# 68718 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 68735 "parsing/parser.ml"
+# 68724 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 68741 "parsing/parser.ml"
+# 68730 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -68745,22 +68734,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 68751 "parsing/parser.ml"
+# 68740 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 68757 "parsing/parser.ml"
+# 68746 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68764 "parsing/parser.ml"
+# 68753 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -68769,26 +68758,26 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 68775 "parsing/parser.ml"
+# 68764 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 68781 "parsing/parser.ml"
+# 68770 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 68787 "parsing/parser.ml"
+# 68776 "parsing/parser.ml"
              in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68792 "parsing/parser.ml"
+# 68781 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -68796,15 +68785,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68802 "parsing/parser.ml"
+# 68791 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68808 "parsing/parser.ml"
+# 68797 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68851,15 +68840,15 @@ module Tables = struct
           let _1 =
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 68857 "parsing/parser.ml"
+# 68846 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 68863 "parsing/parser.ml"
+# 68852 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -68868,26 +68857,26 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 68874 "parsing/parser.ml"
+# 68863 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 68880 "parsing/parser.ml"
+# 68869 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 68886 "parsing/parser.ml"
+# 68875 "parsing/parser.ml"
              in
             
-# 4172 "parsing/parser.mly"
+# 4161 "parsing/parser.mly"
         ( Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 68891 "parsing/parser.ml"
+# 68880 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -68895,15 +68884,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 68901 "parsing/parser.ml"
+# 68890 "parsing/parser.ml"
           
         in
         
-# 4174 "parsing/parser.mly"
+# 4163 "parsing/parser.mly"
     ( _1 )
-# 68907 "parsing/parser.ml"
+# 68896 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -68977,9 +68966,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 68983 "parsing/parser.ml"
+# 68972 "parsing/parser.ml"
              in
             let domain =
               let _1 =
@@ -68990,24 +68979,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 68994 "parsing/parser.ml"
+# 68983 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 68999 "parsing/parser.ml"
+# 68988 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 69005 "parsing/parser.ml"
+# 68994 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 69011 "parsing/parser.ml"
+# 69000 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -69015,48 +69004,48 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 69021 "parsing/parser.ml"
+# 69010 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 69027 "parsing/parser.ml"
+# 69016 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69034 "parsing/parser.ml"
+# 69023 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69040 "parsing/parser.ml"
+# 69029 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69046 "parsing/parser.ml"
+# 69035 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69051 "parsing/parser.ml"
+# 69040 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69060 "parsing/parser.ml"
+# 69049 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69064,15 +69053,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69070 "parsing/parser.ml"
+# 69059 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69076 "parsing/parser.ml"
+# 69065 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69159,15 +69148,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69165 "parsing/parser.ml"
+# 69154 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69171 "parsing/parser.ml"
+# 69160 "parsing/parser.ml"
               
             in
             let domain =
@@ -69179,24 +69168,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 69183 "parsing/parser.ml"
+# 69172 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 69188 "parsing/parser.ml"
+# 69177 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 69194 "parsing/parser.ml"
+# 69183 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 69200 "parsing/parser.ml"
+# 69189 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -69204,48 +69193,48 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 69210 "parsing/parser.ml"
+# 69199 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 69216 "parsing/parser.ml"
+# 69205 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69223 "parsing/parser.ml"
+# 69212 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69229 "parsing/parser.ml"
+# 69218 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69235 "parsing/parser.ml"
+# 69224 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69240 "parsing/parser.ml"
+# 69229 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69249 "parsing/parser.ml"
+# 69238 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69253,15 +69242,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69259 "parsing/parser.ml"
+# 69248 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69265 "parsing/parser.ml"
+# 69254 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69307,47 +69296,47 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69313 "parsing/parser.ml"
+# 69302 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 69319 "parsing/parser.ml"
+# 69308 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69325 "parsing/parser.ml"
+# 69314 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69331 "parsing/parser.ml"
+# 69320 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69337 "parsing/parser.ml"
+# 69326 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69342 "parsing/parser.ml"
+# 69331 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69351 "parsing/parser.ml"
+# 69340 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69355,15 +69344,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69361 "parsing/parser.ml"
+# 69350 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69367 "parsing/parser.ml"
+# 69356 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69421,54 +69410,54 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69427 "parsing/parser.ml"
+# 69416 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69433 "parsing/parser.ml"
+# 69422 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 69440 "parsing/parser.ml"
+# 69429 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69446 "parsing/parser.ml"
+# 69435 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69452 "parsing/parser.ml"
+# 69441 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69458 "parsing/parser.ml"
+# 69447 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69463 "parsing/parser.ml"
+# 69452 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69472 "parsing/parser.ml"
+# 69461 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69476,15 +69465,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69482 "parsing/parser.ml"
+# 69471 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69488 "parsing/parser.ml"
+# 69477 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69565,9 +69554,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69571 "parsing/parser.ml"
+# 69560 "parsing/parser.ml"
              in
             let domain =
               let _startpos__1_ = _startpos__1_inlined1_ in
@@ -69579,24 +69568,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 69583 "parsing/parser.ml"
+# 69572 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 69588 "parsing/parser.ml"
+# 69577 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 69594 "parsing/parser.ml"
+# 69583 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 69600 "parsing/parser.ml"
+# 69589 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -69604,22 +69593,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 69610 "parsing/parser.ml"
+# 69599 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 69616 "parsing/parser.ml"
+# 69605 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69623 "parsing/parser.ml"
+# 69612 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -69628,36 +69617,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69634 "parsing/parser.ml"
+# 69623 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69640 "parsing/parser.ml"
+# 69629 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69647 "parsing/parser.ml"
+# 69636 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69652 "parsing/parser.ml"
+# 69641 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69661 "parsing/parser.ml"
+# 69650 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69665,15 +69654,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69671 "parsing/parser.ml"
+# 69660 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69677 "parsing/parser.ml"
+# 69666 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69767,15 +69756,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69773 "parsing/parser.ml"
+# 69762 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69779 "parsing/parser.ml"
+# 69768 "parsing/parser.ml"
               
             in
             let domain =
@@ -69788,24 +69777,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 69792 "parsing/parser.ml"
+# 69781 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 69797 "parsing/parser.ml"
+# 69786 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 69803 "parsing/parser.ml"
+# 69792 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 69809 "parsing/parser.ml"
+# 69798 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -69813,22 +69802,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 69819 "parsing/parser.ml"
+# 69808 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 69825 "parsing/parser.ml"
+# 69814 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69832 "parsing/parser.ml"
+# 69821 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -69837,36 +69826,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69843 "parsing/parser.ml"
+# 69832 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69849 "parsing/parser.ml"
+# 69838 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69856 "parsing/parser.ml"
+# 69845 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69861 "parsing/parser.ml"
+# 69850 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69870 "parsing/parser.ml"
+# 69859 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69874,15 +69863,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 69880 "parsing/parser.ml"
+# 69869 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 69886 "parsing/parser.ml"
+# 69875 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -69935,21 +69924,21 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 69941 "parsing/parser.ml"
+# 69930 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 69947 "parsing/parser.ml"
+# 69936 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 69953 "parsing/parser.ml"
+# 69942 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -69958,36 +69947,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 69964 "parsing/parser.ml"
+# 69953 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 69970 "parsing/parser.ml"
+# 69959 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 69977 "parsing/parser.ml"
+# 69966 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 69982 "parsing/parser.ml"
+# 69971 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 69991 "parsing/parser.ml"
+# 69980 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -69995,15 +69984,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70001 "parsing/parser.ml"
+# 69990 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70007 "parsing/parser.ml"
+# 69996 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70069,28 +70058,28 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 70075 "parsing/parser.ml"
+# 70064 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 70081 "parsing/parser.ml"
+# 70070 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 70088 "parsing/parser.ml"
+# 70077 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70094 "parsing/parser.ml"
+# 70083 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -70099,36 +70088,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 70105 "parsing/parser.ml"
+# 70094 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 70111 "parsing/parser.ml"
+# 70100 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4239 "parsing/parser.mly"
+# 4228 "parsing/parser.mly"
       ( Optional label )
-# 70118 "parsing/parser.ml"
+# 70107 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70123 "parsing/parser.ml"
+# 70112 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70132 "parsing/parser.ml"
+# 70121 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70136,15 +70125,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70142 "parsing/parser.ml"
+# 70131 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70148 "parsing/parser.ml"
+# 70137 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70219,9 +70208,9 @@ module Tables = struct
         let _1 : unit = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 70225 "parsing/parser.ml"
+# 70214 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -70229,9 +70218,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70235 "parsing/parser.ml"
+# 70224 "parsing/parser.ml"
              in
             let domain =
               let _1 =
@@ -70242,24 +70231,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 70246 "parsing/parser.ml"
+# 70235 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 70251 "parsing/parser.ml"
+# 70240 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 70257 "parsing/parser.ml"
+# 70246 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 70263 "parsing/parser.ml"
+# 70252 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -70267,48 +70256,48 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 70273 "parsing/parser.ml"
+# 70262 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 70279 "parsing/parser.ml"
+# 70268 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70286 "parsing/parser.ml"
+# 70275 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70292 "parsing/parser.ml"
+# 70281 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 70298 "parsing/parser.ml"
+# 70287 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70303 "parsing/parser.ml"
+# 70292 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70312 "parsing/parser.ml"
+# 70301 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70316,15 +70305,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70322 "parsing/parser.ml"
+# 70311 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70328 "parsing/parser.ml"
+# 70317 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70406,9 +70395,9 @@ module Tables = struct
         let _1 : unit = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 70412 "parsing/parser.ml"
+# 70401 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -70422,15 +70411,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 70428 "parsing/parser.ml"
+# 70417 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 70434 "parsing/parser.ml"
+# 70423 "parsing/parser.ml"
               
             in
             let domain =
@@ -70442,24 +70431,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 70446 "parsing/parser.ml"
+# 70435 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 70451 "parsing/parser.ml"
+# 70440 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 70457 "parsing/parser.ml"
+# 70446 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 70463 "parsing/parser.ml"
+# 70452 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -70467,48 +70456,48 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 70473 "parsing/parser.ml"
+# 70462 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 70479 "parsing/parser.ml"
+# 70468 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70486 "parsing/parser.ml"
+# 70475 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70492 "parsing/parser.ml"
+# 70481 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 70498 "parsing/parser.ml"
+# 70487 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70503 "parsing/parser.ml"
+# 70492 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70512 "parsing/parser.ml"
+# 70501 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70516,15 +70505,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70522 "parsing/parser.ml"
+# 70511 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70528 "parsing/parser.ml"
+# 70517 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70571,9 +70560,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 70577 "parsing/parser.ml"
+# 70566 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -70581,47 +70570,47 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70587 "parsing/parser.ml"
+# 70576 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 70593 "parsing/parser.ml"
+# 70582 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70599 "parsing/parser.ml"
+# 70588 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70605 "parsing/parser.ml"
+# 70594 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 70611 "parsing/parser.ml"
+# 70600 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70616 "parsing/parser.ml"
+# 70605 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70625 "parsing/parser.ml"
+# 70614 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70629,15 +70618,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70635 "parsing/parser.ml"
+# 70624 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70641 "parsing/parser.ml"
+# 70630 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70691,9 +70680,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 70697 "parsing/parser.ml"
+# 70686 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -70706,54 +70695,54 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 70712 "parsing/parser.ml"
+# 70701 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 70718 "parsing/parser.ml"
+# 70707 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 70725 "parsing/parser.ml"
+# 70714 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70731 "parsing/parser.ml"
+# 70720 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70737 "parsing/parser.ml"
+# 70726 "parsing/parser.ml"
              in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 70743 "parsing/parser.ml"
+# 70732 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70748 "parsing/parser.ml"
+# 70737 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70757 "parsing/parser.ml"
+# 70746 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70761,15 +70750,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70767 "parsing/parser.ml"
+# 70756 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70773 "parsing/parser.ml"
+# 70762 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -70851,9 +70840,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 70857 "parsing/parser.ml"
+# 70846 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -70861,9 +70850,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 70867 "parsing/parser.ml"
+# 70856 "parsing/parser.ml"
              in
             let domain =
               let _startpos__1_ = _startpos__1_inlined1_ in
@@ -70875,24 +70864,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 70879 "parsing/parser.ml"
+# 70868 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 70884 "parsing/parser.ml"
+# 70873 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 70890 "parsing/parser.ml"
+# 70879 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 70896 "parsing/parser.ml"
+# 70885 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -70900,22 +70889,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 70906 "parsing/parser.ml"
+# 70895 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 70912 "parsing/parser.ml"
+# 70901 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 70919 "parsing/parser.ml"
+# 70908 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -70924,36 +70913,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 70930 "parsing/parser.ml"
+# 70919 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 70936 "parsing/parser.ml"
+# 70925 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 70943 "parsing/parser.ml"
+# 70932 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 70948 "parsing/parser.ml"
+# 70937 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 70957 "parsing/parser.ml"
+# 70946 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -70961,15 +70950,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 70967 "parsing/parser.ml"
+# 70956 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 70973 "parsing/parser.ml"
+# 70962 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71058,9 +71047,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 71064 "parsing/parser.ml"
+# 71053 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -71074,15 +71063,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71080 "parsing/parser.ml"
+# 71069 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71086 "parsing/parser.ml"
+# 71075 "parsing/parser.ml"
               
             in
             let domain =
@@ -71095,24 +71084,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 71099 "parsing/parser.ml"
+# 71088 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 71104 "parsing/parser.ml"
+# 71093 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 71110 "parsing/parser.ml"
+# 71099 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 71116 "parsing/parser.ml"
+# 71105 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -71120,22 +71109,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 71126 "parsing/parser.ml"
+# 71115 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 71132 "parsing/parser.ml"
+# 71121 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71139 "parsing/parser.ml"
+# 71128 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -71144,36 +71133,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71150 "parsing/parser.ml"
+# 71139 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71156 "parsing/parser.ml"
+# 71145 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 71163 "parsing/parser.ml"
+# 71152 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 71168 "parsing/parser.ml"
+# 71157 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71177 "parsing/parser.ml"
+# 71166 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -71181,15 +71170,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71187 "parsing/parser.ml"
+# 71176 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71193 "parsing/parser.ml"
+# 71182 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71243,9 +71232,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 71249 "parsing/parser.ml"
+# 71238 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -71253,21 +71242,21 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71259 "parsing/parser.ml"
+# 71248 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 71265 "parsing/parser.ml"
+# 71254 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71271 "parsing/parser.ml"
+# 71260 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -71276,36 +71265,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71282 "parsing/parser.ml"
+# 71271 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71288 "parsing/parser.ml"
+# 71277 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 71295 "parsing/parser.ml"
+# 71284 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 71300 "parsing/parser.ml"
+# 71289 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71309 "parsing/parser.ml"
+# 71298 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -71313,15 +71302,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71319 "parsing/parser.ml"
+# 71308 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71325 "parsing/parser.ml"
+# 71314 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71382,9 +71371,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 71388 "parsing/parser.ml"
+# 71377 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -71398,28 +71387,28 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71404 "parsing/parser.ml"
+# 71393 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71410 "parsing/parser.ml"
+# 71399 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 71417 "parsing/parser.ml"
+# 71406 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71423 "parsing/parser.ml"
+# 71412 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -71428,36 +71417,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71434 "parsing/parser.ml"
+# 71423 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71440 "parsing/parser.ml"
+# 71429 "parsing/parser.ml"
               
             in
             let label =
               let _1 = 
-# 4241 "parsing/parser.mly"
+# 4230 "parsing/parser.mly"
       ( Labelled label )
-# 71447 "parsing/parser.ml"
+# 71436 "parsing/parser.ml"
                in
               
-# 4246 "parsing/parser.mly"
+# 4235 "parsing/parser.mly"
       ( _1 )
-# 71452 "parsing/parser.ml"
+# 71441 "parsing/parser.ml"
               
             in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71461 "parsing/parser.ml"
+# 71450 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -71465,15 +71454,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71471 "parsing/parser.ml"
+# 71460 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71477 "parsing/parser.ml"
+# 71466 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71540,9 +71529,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71546 "parsing/parser.ml"
+# 71535 "parsing/parser.ml"
              in
             let domain =
               let _1 =
@@ -71553,24 +71542,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 71557 "parsing/parser.ml"
+# 71546 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 71562 "parsing/parser.ml"
+# 71551 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 71568 "parsing/parser.ml"
+# 71557 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 71574 "parsing/parser.ml"
+# 71563 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -71578,41 +71567,41 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 71584 "parsing/parser.ml"
+# 71573 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 71590 "parsing/parser.ml"
+# 71579 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71597 "parsing/parser.ml"
+# 71586 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71603 "parsing/parser.ml"
+# 71592 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 71608 "parsing/parser.ml"
+# 71597 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71616 "parsing/parser.ml"
+# 71605 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -71620,15 +71609,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71626 "parsing/parser.ml"
+# 71615 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71632 "parsing/parser.ml"
+# 71621 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71708,15 +71697,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71714 "parsing/parser.ml"
+# 71703 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71720 "parsing/parser.ml"
+# 71709 "parsing/parser.ml"
               
             in
             let domain =
@@ -71728,24 +71717,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 71732 "parsing/parser.ml"
+# 71721 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 71737 "parsing/parser.ml"
+# 71726 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 71743 "parsing/parser.ml"
+# 71732 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 71749 "parsing/parser.ml"
+# 71738 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -71753,41 +71742,41 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 71759 "parsing/parser.ml"
+# 71748 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 71765 "parsing/parser.ml"
+# 71754 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71772 "parsing/parser.ml"
+# 71761 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71778 "parsing/parser.ml"
+# 71767 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 71783 "parsing/parser.ml"
+# 71772 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71791 "parsing/parser.ml"
+# 71780 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -71795,15 +71784,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71801 "parsing/parser.ml"
+# 71790 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71807 "parsing/parser.ml"
+# 71796 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71842,40 +71831,40 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71848 "parsing/parser.ml"
+# 71837 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 71854 "parsing/parser.ml"
+# 71843 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71860 "parsing/parser.ml"
+# 71849 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71866 "parsing/parser.ml"
+# 71855 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 71871 "parsing/parser.ml"
+# 71860 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71879 "parsing/parser.ml"
+# 71868 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in
@@ -71883,15 +71872,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71889 "parsing/parser.ml"
+# 71878 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 71895 "parsing/parser.ml"
+# 71884 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -71942,47 +71931,47 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 71948 "parsing/parser.ml"
+# 71937 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 71954 "parsing/parser.ml"
+# 71943 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 71961 "parsing/parser.ml"
+# 71950 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 71967 "parsing/parser.ml"
+# 71956 "parsing/parser.ml"
               
             in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 71973 "parsing/parser.ml"
+# 71962 "parsing/parser.ml"
              in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 71978 "parsing/parser.ml"
+# 71967 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 71986 "parsing/parser.ml"
+# 71975 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_ty_) in
@@ -71990,15 +71979,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 71996 "parsing/parser.ml"
+# 71985 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 72002 "parsing/parser.ml"
+# 71991 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72072,9 +72061,9 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 72078 "parsing/parser.ml"
+# 72067 "parsing/parser.ml"
              in
             let domain =
               let _startpos__1_ = _startpos__1_inlined1_ in
@@ -72086,24 +72075,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 72090 "parsing/parser.ml"
+# 72079 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 72095 "parsing/parser.ml"
+# 72084 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 72101 "parsing/parser.ml"
+# 72090 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 72107 "parsing/parser.ml"
+# 72096 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -72111,22 +72100,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 72117 "parsing/parser.ml"
+# 72106 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 72123 "parsing/parser.ml"
+# 72112 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 72130 "parsing/parser.ml"
+# 72119 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -72135,29 +72124,29 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72141 "parsing/parser.ml"
+# 72130 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72147 "parsing/parser.ml"
+# 72136 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 72153 "parsing/parser.ml"
+# 72142 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 72161 "parsing/parser.ml"
+# 72150 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -72165,15 +72154,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72171 "parsing/parser.ml"
+# 72160 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 72177 "parsing/parser.ml"
+# 72166 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72260,15 +72249,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72266 "parsing/parser.ml"
+# 72255 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72272 "parsing/parser.ml"
+# 72261 "parsing/parser.ml"
               
             in
             let domain =
@@ -72281,24 +72270,24 @@ module Tables = struct
                         let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 72285 "parsing/parser.ml"
+# 72274 "parsing/parser.ml"
                          in
                         
-# 1305 "parsing/parser.mly"
+# 1294 "parsing/parser.mly"
     ( xs )
-# 72290 "parsing/parser.ml"
+# 72279 "parsing/parser.ml"
                         
                       in
                       
-# 4085 "parsing/parser.mly"
+# 4074 "parsing/parser.mly"
     ( _1 )
-# 72296 "parsing/parser.ml"
+# 72285 "parsing/parser.ml"
                       
                     in
                     
-# 4270 "parsing/parser.mly"
+# 4259 "parsing/parser.mly"
       ( Jane_syntax.Layouts.Ltyp_poly { bound_vars; inner_type } )
-# 72302 "parsing/parser.ml"
+# 72291 "parsing/parser.ml"
                     
                   in
                   let _endpos__1_ = _endpos__5_ in
@@ -72306,22 +72295,22 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1264 "parsing/parser.mly"
+# 1253 "parsing/parser.mly"
     ( Jane_syntax.Layouts.type_of ~loc:(make_loc _sloc) _1 )
-# 72312 "parsing/parser.ml"
+# 72301 "parsing/parser.ml"
                   
                 in
                 
-# 4272 "parsing/parser.mly"
+# 4261 "parsing/parser.mly"
     ( _1 )
-# 72318 "parsing/parser.ml"
+# 72307 "parsing/parser.ml"
                 
               in
               let _endpos__1_ = _endpos__5_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 72325 "parsing/parser.ml"
+# 72314 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -72330,29 +72319,29 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72336 "parsing/parser.ml"
+# 72325 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72342 "parsing/parser.ml"
+# 72331 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 72348 "parsing/parser.ml"
+# 72337 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 72356 "parsing/parser.ml"
+# 72345 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -72360,15 +72349,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72366 "parsing/parser.ml"
+# 72355 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 72372 "parsing/parser.ml"
+# 72361 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72414,21 +72403,21 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 72420 "parsing/parser.ml"
+# 72409 "parsing/parser.ml"
              in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 72426 "parsing/parser.ml"
+# 72415 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 72432 "parsing/parser.ml"
+# 72421 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -72437,29 +72426,29 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72443 "parsing/parser.ml"
+# 72432 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72449 "parsing/parser.ml"
+# 72438 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 72455 "parsing/parser.ml"
+# 72444 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 72463 "parsing/parser.ml"
+# 72452 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -72467,15 +72456,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72473 "parsing/parser.ml"
+# 72462 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 72479 "parsing/parser.ml"
+# 72468 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72534,28 +72523,28 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72540 "parsing/parser.ml"
+# 72529 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72546 "parsing/parser.ml"
+# 72535 "parsing/parser.ml"
               
             in
             let domain =
               let _1 = 
-# 4274 "parsing/parser.mly"
+# 4263 "parsing/parser.mly"
     ( ty )
-# 72553 "parsing/parser.ml"
+# 72542 "parsing/parser.ml"
                in
               let _endpos__1_ = _endpos_ty_ in
               
-# 1198 "parsing/parser.mly"
+# 1187 "parsing/parser.mly"
                               ( extra_rhs_core_type _1 ~pos:_endpos__1_ )
-# 72559 "parsing/parser.ml"
+# 72548 "parsing/parser.ml"
               
             in
             let arg_modes =
@@ -72564,29 +72553,29 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72570 "parsing/parser.ml"
+# 72559 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72576 "parsing/parser.ml"
+# 72565 "parsing/parser.ml"
               
             in
             let label = 
-# 4248 "parsing/parser.mly"
+# 4237 "parsing/parser.mly"
       ( Nolabel )
-# 72582 "parsing/parser.ml"
+# 72571 "parsing/parser.ml"
              in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4183 "parsing/parser.mly"
+# 4172 "parsing/parser.mly"
         ( Ptyp_arrow(label,
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_)) )
-# 72590 "parsing/parser.ml"
+# 72579 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_codomain_ in
@@ -72594,15 +72583,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72600 "parsing/parser.ml"
+# 72589 "parsing/parser.ml"
           
         in
         
-# 4187 "parsing/parser.mly"
+# 4176 "parsing/parser.mly"
     ( _1 )
-# 72606 "parsing/parser.ml"
+# 72595 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72663,9 +72652,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 72669 "parsing/parser.ml"
+# 72658 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -72677,36 +72666,36 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 72681 "parsing/parser.ml"
+# 72670 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 72686 "parsing/parser.ml"
+# 72675 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 72692 "parsing/parser.ml"
+# 72681 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 72699 "parsing/parser.ml"
+# 72688 "parsing/parser.ml"
              in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             
-# 4206 "parsing/parser.mly"
+# 4195 "parsing/parser.mly"
          (
            let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
            let domain = extra_rhs_core_type domain ~pos:_endpos_tuple_ in
            Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 72710 "parsing/parser.ml"
+# 72699 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -72714,15 +72703,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72720 "parsing/parser.ml"
+# 72709 "parsing/parser.ml"
           
         in
         
-# 4213 "parsing/parser.mly"
+# 4202 "parsing/parser.mly"
     ( _1 )
-# 72726 "parsing/parser.ml"
+# 72715 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72790,9 +72779,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 72796 "parsing/parser.ml"
+# 72785 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -72804,18 +72793,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 72808 "parsing/parser.ml"
+# 72797 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 72813 "parsing/parser.ml"
+# 72802 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 72819 "parsing/parser.ml"
+# 72808 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
@@ -72825,27 +72814,27 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 72831 "parsing/parser.ml"
+# 72820 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 72837 "parsing/parser.ml"
+# 72826 "parsing/parser.ml"
               
             in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             
-# 4206 "parsing/parser.mly"
+# 4195 "parsing/parser.mly"
          (
            let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
            let domain = extra_rhs_core_type domain ~pos:_endpos_tuple_ in
            Ptyp_arrow(label, mktyp_with_modes arg_modes domain , codomain) )
-# 72849 "parsing/parser.ml"
+# 72838 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -72853,15 +72842,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72859 "parsing/parser.ml"
+# 72848 "parsing/parser.ml"
           
         in
         
-# 4213 "parsing/parser.mly"
+# 4202 "parsing/parser.mly"
     ( _1 )
-# 72865 "parsing/parser.ml"
+# 72854 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -72922,9 +72911,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 72928 "parsing/parser.ml"
+# 72917 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -72932,39 +72921,39 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 72938 "parsing/parser.ml"
+# 72927 "parsing/parser.ml"
              in
             let tuple =
               let ltys =
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 72945 "parsing/parser.ml"
+# 72934 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 72950 "parsing/parser.ml"
+# 72939 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 72956 "parsing/parser.ml"
+# 72945 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 72963 "parsing/parser.ml"
+# 72952 "parsing/parser.ml"
              in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4221 "parsing/parser.mly"
+# 4210 "parsing/parser.mly"
          ( let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
@@ -72973,7 +72962,7 @@ module Tables = struct
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_))
          )
-# 72977 "parsing/parser.ml"
+# 72966 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -72981,15 +72970,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 72987 "parsing/parser.ml"
+# 72976 "parsing/parser.ml"
           
         in
         
-# 4230 "parsing/parser.mly"
+# 4219 "parsing/parser.mly"
     ( _1 )
-# 72993 "parsing/parser.ml"
+# 72982 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73057,9 +73046,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 73063 "parsing/parser.ml"
+# 73052 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -73072,15 +73061,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 73078 "parsing/parser.ml"
+# 73067 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 73084 "parsing/parser.ml"
+# 73073 "parsing/parser.ml"
               
             in
             let tuple =
@@ -73088,30 +73077,30 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 73092 "parsing/parser.ml"
+# 73081 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 73097 "parsing/parser.ml"
+# 73086 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 73103 "parsing/parser.ml"
+# 73092 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
             let arg_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 73110 "parsing/parser.ml"
+# 73099 "parsing/parser.ml"
              in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4221 "parsing/parser.mly"
+# 4210 "parsing/parser.mly"
          ( let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
@@ -73120,7 +73109,7 @@ module Tables = struct
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_))
          )
-# 73124 "parsing/parser.ml"
+# 73113 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -73128,15 +73117,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 73134 "parsing/parser.ml"
+# 73123 "parsing/parser.ml"
           
         in
         
-# 4230 "parsing/parser.mly"
+# 4219 "parsing/parser.mly"
     ( _1 )
-# 73140 "parsing/parser.ml"
+# 73129 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73204,9 +73193,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 73210 "parsing/parser.ml"
+# 73199 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -73214,27 +73203,27 @@ module Tables = struct
         let _v : (Parsetree.core_type) = let _1 =
           let _1 =
             let ret_modes = 
-# 4264 "parsing/parser.mly"
+# 4253 "parsing/parser.mly"
      ( Mode.empty )
-# 73220 "parsing/parser.ml"
+# 73209 "parsing/parser.ml"
              in
             let tuple =
               let ltys =
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 73227 "parsing/parser.ml"
+# 73216 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 73232 "parsing/parser.ml"
+# 73221 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 73238 "parsing/parser.ml"
+# 73227 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
@@ -73244,21 +73233,21 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 73250 "parsing/parser.ml"
+# 73239 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 73256 "parsing/parser.ml"
+# 73245 "parsing/parser.ml"
               
             in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4221 "parsing/parser.mly"
+# 4210 "parsing/parser.mly"
          ( let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
@@ -73267,7 +73256,7 @@ module Tables = struct
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_))
          )
-# 73271 "parsing/parser.ml"
+# 73260 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -73275,15 +73264,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 73281 "parsing/parser.ml"
+# 73270 "parsing/parser.ml"
           
         in
         
-# 4230 "parsing/parser.mly"
+# 4219 "parsing/parser.mly"
     ( _1 )
-# 73287 "parsing/parser.ml"
+# 73276 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73358,9 +73347,9 @@ module Tables = struct
         let _1 : (Mode.Const.t list) = Obj.magic _1 in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 73364 "parsing/parser.ml"
+# 73353 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -73374,15 +73363,15 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 73380 "parsing/parser.ml"
+# 73369 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 73386 "parsing/parser.ml"
+# 73375 "parsing/parser.ml"
               
             in
             let tuple =
@@ -73390,18 +73379,18 @@ module Tables = struct
                 let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 73394 "parsing/parser.ml"
+# 73383 "parsing/parser.ml"
                  in
                 
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 73399 "parsing/parser.ml"
+# 73388 "parsing/parser.ml"
                 
               in
               
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 73405 "parsing/parser.ml"
+# 73394 "parsing/parser.ml"
               
             in
             let (_endpos_tuple_, _startpos_tuple_) = (_endpos_xs_, _startpos_ty_) in
@@ -73411,21 +73400,21 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4261 "parsing/parser.mly"
+# 4250 "parsing/parser.mly"
       (mkloc _1 (make_loc _sloc))
-# 73417 "parsing/parser.ml"
+# 73406 "parsing/parser.ml"
                 
               in
               
-# 4265 "parsing/parser.mly"
+# 4254 "parsing/parser.mly"
                                (_1)
-# 73423 "parsing/parser.ml"
+# 73412 "parsing/parser.ml"
               
             in
             let _loc_tuple_ = (_startpos_tuple_, _endpos_tuple_) in
             let _loc_codomain_ = (_startpos_codomain_, _endpos_codomain_) in
             
-# 4221 "parsing/parser.mly"
+# 4210 "parsing/parser.mly"
          ( let ty, ltys = tuple in
            let label = Labelled label in
            let domain = ptyp_ltuple _loc_tuple_ ((None, ty) :: ltys) in
@@ -73434,7 +73423,7 @@ module Tables = struct
             mktyp_with_modes arg_modes domain ,
             mktyp_with_modes ret_modes (maybe_curry_typ codomain _loc_codomain_))
          )
-# 73438 "parsing/parser.ml"
+# 73427 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_codomain_, _startpos_label_) in
@@ -73442,15 +73431,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 73448 "parsing/parser.ml"
+# 73437 "parsing/parser.ml"
           
         in
         
-# 4230 "parsing/parser.mly"
+# 4219 "parsing/parser.mly"
     ( _1 )
-# 73454 "parsing/parser.ml"
+# 73443 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73497,9 +73486,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _2 : unit = Obj.magic _2 in
         let label : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 73503 "parsing/parser.ml"
+# 73492 "parsing/parser.ml"
         ) = Obj.magic label in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos_label_ in
@@ -73509,18 +73498,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 73513 "parsing/parser.ml"
+# 73502 "parsing/parser.ml"
              in
             
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 73518 "parsing/parser.ml"
+# 73507 "parsing/parser.ml"
             
           in
           
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 73524 "parsing/parser.ml"
+# 73513 "parsing/parser.ml"
           
         in
         let _endpos__3_ = _endpos_xs_ in
@@ -73528,11 +73517,11 @@ module Tables = struct
         let _symbolstartpos = _startpos_label_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4232 "parsing/parser.mly"
+# 4221 "parsing/parser.mly"
     ( let ty, ltys = _3 in
       ptyp_ltuple _sloc ((Some label, ty) :: ltys)
     )
-# 73536 "parsing/parser.ml"
+# 73525 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73559,39 +73548,39 @@ module Tables = struct
             let ys = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 73563 "parsing/parser.ml"
+# 73552 "parsing/parser.ml"
              in
             let xs =
               let items = 
-# 1273 "parsing/parser.mly"
+# 1262 "parsing/parser.mly"
     ( [] )
-# 73569 "parsing/parser.ml"
+# 73558 "parsing/parser.ml"
                in
               
-# 1723 "parsing/parser.mly"
+# 1712 "parsing/parser.mly"
     ( items )
-# 73574 "parsing/parser.ml"
+# 73563 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 73580 "parsing/parser.ml"
+# 73569 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1192 "parsing/parser.mly"
+# 1181 "parsing/parser.mly"
                               ( extra_str _startpos _endpos _1 )
-# 73589 "parsing/parser.ml"
+# 73578 "parsing/parser.ml"
           
         in
         
-# 1716 "parsing/parser.mly"
+# 1705 "parsing/parser.mly"
   ( _1 )
-# 73595 "parsing/parser.ml"
+# 73584 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73632,7 +73621,7 @@ module Tables = struct
             let ys = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 73636 "parsing/parser.ml"
+# 73625 "parsing/parser.ml"
              in
             let xs =
               let items =
@@ -73640,65 +73629,65 @@ module Tables = struct
                   let _1 =
                     let _1 =
                       let attrs = 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 73646 "parsing/parser.ml"
+# 73635 "parsing/parser.ml"
                        in
                       
-# 1730 "parsing/parser.mly"
+# 1719 "parsing/parser.mly"
     ( mkstrexp e attrs )
-# 73651 "parsing/parser.ml"
+# 73640 "parsing/parser.ml"
                       
                     in
                     let _startpos__1_ = _startpos_e_ in
                     let _startpos = _startpos__1_ in
                     
-# 1204 "parsing/parser.mly"
+# 1193 "parsing/parser.mly"
   ( text_str _startpos @ [_1] )
-# 73659 "parsing/parser.ml"
+# 73648 "parsing/parser.ml"
                     
                   in
                   let _startpos__1_ = _startpos_e_ in
                   let _endpos = _endpos__1_ in
                   let _startpos = _startpos__1_ in
                   
-# 1223 "parsing/parser.mly"
+# 1212 "parsing/parser.mly"
   ( mark_rhs_docs _startpos _endpos;
     _1 )
-# 73669 "parsing/parser.ml"
+# 73658 "parsing/parser.ml"
                   
                 in
                 
-# 1275 "parsing/parser.mly"
+# 1264 "parsing/parser.mly"
     ( x )
-# 73675 "parsing/parser.ml"
+# 73664 "parsing/parser.ml"
                 
               in
               
-# 1723 "parsing/parser.mly"
+# 1712 "parsing/parser.mly"
     ( items )
-# 73681 "parsing/parser.ml"
+# 73670 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 73687 "parsing/parser.ml"
+# 73676 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1192 "parsing/parser.mly"
+# 1181 "parsing/parser.mly"
                               ( extra_str _startpos _endpos _1 )
-# 73696 "parsing/parser.ml"
+# 73685 "parsing/parser.ml"
           
         in
         
-# 1716 "parsing/parser.mly"
+# 1705 "parsing/parser.mly"
   ( _1 )
-# 73702 "parsing/parser.ml"
+# 73691 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73724,9 +73713,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1745 "parsing/parser.mly"
+# 1734 "parsing/parser.mly"
       ( val_of_let_bindings ~loc:_sloc _1 )
-# 73730 "parsing/parser.ml"
+# 73719 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73760,9 +73749,9 @@ module Tables = struct
             let _2 =
               let _1 = _1_inlined1 in
               
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 73766 "parsing/parser.ml"
+# 73755 "parsing/parser.ml"
               
             in
             let _endpos__2_ = _endpos__1_inlined1_ in
@@ -73770,10 +73759,10 @@ module Tables = struct
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1748 "parsing/parser.mly"
+# 1737 "parsing/parser.mly"
         ( let docs = symbol_docs _sloc in
           Pstr_extension (_1, add_docs_attrs docs _2) )
-# 73777 "parsing/parser.ml"
+# 73766 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined1_ in
@@ -73781,15 +73770,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1239 "parsing/parser.mly"
+# 1228 "parsing/parser.mly"
     ( mkstr ~loc:_sloc _1 )
-# 73787 "parsing/parser.ml"
+# 73776 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 73793 "parsing/parser.ml"
+# 73782 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73813,23 +73802,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1751 "parsing/parser.mly"
+# 1740 "parsing/parser.mly"
         ( Pstr_attribute _1 )
-# 73819 "parsing/parser.ml"
+# 73808 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1239 "parsing/parser.mly"
+# 1228 "parsing/parser.mly"
     ( mkstr ~loc:_sloc _1 )
-# 73827 "parsing/parser.ml"
+# 73816 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 73833 "parsing/parser.ml"
+# 73822 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73853,23 +73842,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1755 "parsing/parser.mly"
+# 1744 "parsing/parser.mly"
         ( pstr_primitive _1 )
-# 73859 "parsing/parser.ml"
+# 73848 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 73867 "parsing/parser.ml"
+# 73856 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 73873 "parsing/parser.ml"
+# 73862 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73893,23 +73882,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1757 "parsing/parser.mly"
+# 1746 "parsing/parser.mly"
         ( pstr_primitive _1 )
-# 73899 "parsing/parser.ml"
+# 73888 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 73907 "parsing/parser.ml"
+# 73896 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 73913 "parsing/parser.ml"
+# 73902 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -73944,26 +73933,26 @@ module Tables = struct
             let _1 =
               let _1 =
                 let _1 = 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 73950 "parsing/parser.ml"
+# 73939 "parsing/parser.ml"
                  in
                 
-# 3693 "parsing/parser.mly"
+# 3682 "parsing/parser.mly"
   ( _1 )
-# 73955 "parsing/parser.ml"
+# 73944 "parsing/parser.ml"
                 
               in
               
-# 3676 "parsing/parser.mly"
+# 3665 "parsing/parser.mly"
     ( _1 )
-# 73961 "parsing/parser.ml"
+# 73950 "parsing/parser.ml"
               
             in
             
-# 1759 "parsing/parser.mly"
+# 1748 "parsing/parser.mly"
         ( pstr_type _1 )
-# 73967 "parsing/parser.ml"
+# 73956 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_bs_, _startpos_a_) in
@@ -73971,15 +73960,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 73977 "parsing/parser.ml"
+# 73966 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 73983 "parsing/parser.ml"
+# 73972 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74064,16 +74053,16 @@ module Tables = struct
                 let attrs2 =
                   let _1 = _1_inlined3 in
                   
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74070 "parsing/parser.ml"
+# 74059 "parsing/parser.ml"
                   
                 in
                 let _endpos_attrs2_ = _endpos__1_inlined3_ in
                 let cs = 
-# 1446 "parsing/parser.mly"
+# 1435 "parsing/parser.mly"
     ( List.rev xs )
-# 74077 "parsing/parser.ml"
+# 74066 "parsing/parser.ml"
                  in
                 let tid =
                   let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
@@ -74081,46 +74070,46 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 74087 "parsing/parser.ml"
+# 74076 "parsing/parser.ml"
                   
                 in
                 let _4 = 
-# 4673 "parsing/parser.mly"
+# 4662 "parsing/parser.mly"
                 ( Recursive )
-# 74093 "parsing/parser.ml"
+# 74082 "parsing/parser.ml"
                  in
                 let attrs1 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74100 "parsing/parser.ml"
+# 74089 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos_attrs2_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4005 "parsing/parser.mly"
+# 3994 "parsing/parser.mly"
     ( let docs = symbol_docs _sloc in
       let attrs = attrs1 @ attrs2 in
       Te.mk tid cs ~params ~priv ~attrs ~docs,
       ext )
-# 74112 "parsing/parser.ml"
+# 74101 "parsing/parser.ml"
                 
               in
               
-# 3988 "parsing/parser.mly"
+# 3977 "parsing/parser.mly"
     ( _1 )
-# 74118 "parsing/parser.ml"
+# 74107 "parsing/parser.ml"
               
             in
             
-# 1761 "parsing/parser.mly"
+# 1750 "parsing/parser.mly"
         ( pstr_typext _1 )
-# 74124 "parsing/parser.ml"
+# 74113 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined3_ in
@@ -74128,15 +74117,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74134 "parsing/parser.ml"
+# 74123 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74140 "parsing/parser.ml"
+# 74129 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74228,16 +74217,16 @@ module Tables = struct
                 let attrs2 =
                   let _1 = _1_inlined4 in
                   
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74234 "parsing/parser.ml"
+# 74223 "parsing/parser.ml"
                   
                 in
                 let _endpos_attrs2_ = _endpos__1_inlined4_ in
                 let cs = 
-# 1446 "parsing/parser.mly"
+# 1435 "parsing/parser.mly"
     ( List.rev xs )
-# 74241 "parsing/parser.ml"
+# 74230 "parsing/parser.ml"
                  in
                 let tid =
                   let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined3_, _startpos__1_inlined3_, _1_inlined3) in
@@ -74245,9 +74234,9 @@ module Tables = struct
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 74251 "parsing/parser.ml"
+# 74240 "parsing/parser.ml"
                   
                 in
                 let _4 =
@@ -74256,41 +74245,41 @@ module Tables = struct
                   let _startpos = _startpos__1_ in
                   let _loc = (_startpos, _endpos) in
                   
-# 4675 "parsing/parser.mly"
+# 4664 "parsing/parser.mly"
                 ( not_expecting _loc "nonrec flag" )
-# 74262 "parsing/parser.ml"
+# 74251 "parsing/parser.ml"
                   
                 in
                 let attrs1 =
                   let _1 = _1_inlined1 in
                   
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74270 "parsing/parser.ml"
+# 74259 "parsing/parser.ml"
                   
                 in
                 let _endpos = _endpos_attrs2_ in
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 4005 "parsing/parser.mly"
+# 3994 "parsing/parser.mly"
     ( let docs = symbol_docs _sloc in
       let attrs = attrs1 @ attrs2 in
       Te.mk tid cs ~params ~priv ~attrs ~docs,
       ext )
-# 74282 "parsing/parser.ml"
+# 74271 "parsing/parser.ml"
                 
               in
               
-# 3988 "parsing/parser.mly"
+# 3977 "parsing/parser.mly"
     ( _1 )
-# 74288 "parsing/parser.ml"
+# 74277 "parsing/parser.ml"
               
             in
             
-# 1761 "parsing/parser.mly"
+# 1750 "parsing/parser.mly"
         ( pstr_typext _1 )
-# 74294 "parsing/parser.ml"
+# 74283 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined4_ in
@@ -74298,15 +74287,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74304 "parsing/parser.ml"
+# 74293 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74310 "parsing/parser.ml"
+# 74299 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74330,23 +74319,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1763 "parsing/parser.mly"
+# 1752 "parsing/parser.mly"
         ( pstr_exception _1 )
-# 74336 "parsing/parser.ml"
+# 74325 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74344 "parsing/parser.ml"
+# 74333 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74350 "parsing/parser.ml"
+# 74339 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74409,9 +74398,9 @@ module Tables = struct
               let attrs2 =
                 let _1 = _1_inlined3 in
                 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74415 "parsing/parser.ml"
+# 74404 "parsing/parser.ml"
                 
               in
               let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -74421,36 +74410,36 @@ module Tables = struct
                 let _symbolstartpos = _startpos__1_ in
                 let _sloc = (_symbolstartpos, _endpos) in
                 
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 74427 "parsing/parser.ml"
+# 74416 "parsing/parser.ml"
                 
               in
               let attrs1 =
                 let _1 = _1_inlined1 in
                 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74435 "parsing/parser.ml"
+# 74424 "parsing/parser.ml"
                 
               in
               let _endpos = _endpos_attrs2_ in
               let _symbolstartpos = _startpos__1_ in
               let _sloc = (_symbolstartpos, _endpos) in
               
-# 1798 "parsing/parser.mly"
+# 1787 "parsing/parser.mly"
     ( let docs = symbol_docs _sloc in
       let loc = make_loc _sloc in
       let attrs = attrs1 @ attrs2 in
       let body = Mb.mk name body ~attrs ~loc ~docs in
       Pstr_module body, ext )
-# 74448 "parsing/parser.ml"
+# 74437 "parsing/parser.ml"
               
             in
             
-# 1765 "parsing/parser.mly"
+# 1754 "parsing/parser.mly"
         ( _1 )
-# 74454 "parsing/parser.ml"
+# 74443 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos__1_inlined3_ in
@@ -74458,15 +74447,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74464 "parsing/parser.ml"
+# 74453 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74470 "parsing/parser.ml"
+# 74459 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74545,9 +74534,9 @@ module Tables = struct
                   let attrs2 =
                     let _1 = _1_inlined3 in
                     
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74551 "parsing/parser.ml"
+# 74540 "parsing/parser.ml"
                     
                   in
                   let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -74557,24 +74546,24 @@ module Tables = struct
                     let _symbolstartpos = _startpos__1_ in
                     let _sloc = (_symbolstartpos, _endpos) in
                     
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 74563 "parsing/parser.ml"
+# 74552 "parsing/parser.ml"
                     
                   in
                   let attrs1 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74571 "parsing/parser.ml"
+# 74560 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos_attrs2_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 1835 "parsing/parser.mly"
+# 1824 "parsing/parser.mly"
   (
     let loc = make_loc _sloc in
     let attrs = attrs1 @ attrs2 in
@@ -74582,25 +74571,25 @@ module Tables = struct
     ext,
     Mb.mk name body ~attrs ~loc ~docs
   )
-# 74586 "parsing/parser.ml"
+# 74575 "parsing/parser.ml"
                   
                 in
                 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 74592 "parsing/parser.ml"
+# 74581 "parsing/parser.ml"
                 
               in
               
-# 1823 "parsing/parser.mly"
+# 1812 "parsing/parser.mly"
     ( _1 )
-# 74598 "parsing/parser.ml"
+# 74587 "parsing/parser.ml"
               
             in
             
-# 1767 "parsing/parser.mly"
+# 1756 "parsing/parser.mly"
         ( pstr_recmodule _1 )
-# 74604 "parsing/parser.ml"
+# 74593 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_bs_ in
@@ -74608,15 +74597,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74614 "parsing/parser.ml"
+# 74603 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74620 "parsing/parser.ml"
+# 74609 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74640,23 +74629,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1769 "parsing/parser.mly"
+# 1758 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Pstr_modtype body, ext) )
-# 74646 "parsing/parser.ml"
+# 74635 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74654 "parsing/parser.ml"
+# 74643 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74660 "parsing/parser.ml"
+# 74649 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74680,23 +74669,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1771 "parsing/parser.mly"
+# 1760 "parsing/parser.mly"
         ( let (body, ext) = _1 in (Pstr_open body, ext) )
-# 74686 "parsing/parser.ml"
+# 74675 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74694 "parsing/parser.ml"
+# 74683 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74700 "parsing/parser.ml"
+# 74689 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74766,9 +74755,9 @@ module Tables = struct
         let _1_inlined3 : (Parsetree.attributes) = Obj.magic _1_inlined3 in
         let body : (Parsetree.class_expr) = Obj.magic body in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 74772 "parsing/parser.ml"
+# 74761 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let params : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = Obj.magic params in
         let virt : (Asttypes.virtual_flag) = Obj.magic virt in
@@ -74786,9 +74775,9 @@ module Tables = struct
                   let attrs2 =
                     let _1 = _1_inlined3 in
                     
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74792 "parsing/parser.ml"
+# 74781 "parsing/parser.ml"
                     
                   in
                   let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -74798,24 +74787,24 @@ module Tables = struct
                     let _symbolstartpos = _startpos__1_ in
                     let _sloc = (_symbolstartpos, _endpos) in
                     
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 74804 "parsing/parser.ml"
+# 74793 "parsing/parser.ml"
                     
                   in
                   let attrs1 =
                     let _1 = _1_inlined1 in
                     
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74812 "parsing/parser.ml"
+# 74801 "parsing/parser.ml"
                     
                   in
                   let _endpos = _endpos_attrs2_ in
                   let _symbolstartpos = _startpos__1_ in
                   let _sloc = (_symbolstartpos, _endpos) in
                   
-# 2198 "parsing/parser.mly"
+# 2187 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
@@ -74823,25 +74812,25 @@ module Tables = struct
     ext,
     Ci.mk id body ~virt ~params ~attrs ~loc ~docs
   )
-# 74827 "parsing/parser.ml"
+# 74816 "parsing/parser.ml"
                   
                 in
                 
-# 1454 "parsing/parser.mly"
+# 1443 "parsing/parser.mly"
     ( let (x, b) = a in x, b :: bs )
-# 74833 "parsing/parser.ml"
+# 74822 "parsing/parser.ml"
                 
               in
               
-# 2187 "parsing/parser.mly"
+# 2176 "parsing/parser.mly"
     ( _1 )
-# 74839 "parsing/parser.ml"
+# 74828 "parsing/parser.ml"
               
             in
             
-# 1773 "parsing/parser.mly"
+# 1762 "parsing/parser.mly"
         ( let (ext, l) = _1 in (Pstr_class l, ext) )
-# 74845 "parsing/parser.ml"
+# 74834 "parsing/parser.ml"
             
           in
           let _endpos__1_ = _endpos_bs_ in
@@ -74849,15 +74838,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74855 "parsing/parser.ml"
+# 74844 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74861 "parsing/parser.ml"
+# 74850 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74881,23 +74870,23 @@ module Tables = struct
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.structure_item) = let _1 =
           let _1 = 
-# 1775 "parsing/parser.mly"
+# 1764 "parsing/parser.mly"
         ( let (ext, l) = _1 in (Pstr_class_type l, ext) )
-# 74887 "parsing/parser.ml"
+# 74876 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1256 "parsing/parser.mly"
+# 1245 "parsing/parser.mly"
     ( wrap_mkstr_ext ~loc:_sloc _1 )
-# 74895 "parsing/parser.ml"
+# 74884 "parsing/parser.ml"
           
         in
         
-# 1777 "parsing/parser.mly"
+# 1766 "parsing/parser.mly"
     ( _1 )
-# 74901 "parsing/parser.ml"
+# 74890 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -74951,22 +74940,22 @@ module Tables = struct
           let attrs2 =
             let _1 = _1_inlined1 in
             
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 74957 "parsing/parser.ml"
+# 74946 "parsing/parser.ml"
             
           in
           let _endpos_attrs2_ = _endpos__1_inlined1_ in
           let attrs1 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 74964 "parsing/parser.ml"
+# 74953 "parsing/parser.ml"
            in
           let _endpos = _endpos_attrs2_ in
           let _symbolstartpos = _startpos_is_functor_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1879 "parsing/parser.mly"
+# 1868 "parsing/parser.mly"
   (
     let attrs = attrs1 @ attrs2 in
     let loc = make_loc _sloc in
@@ -74974,7 +74963,7 @@ module Tables = struct
     let incl = Incl.mk thing ~attrs ~loc ~docs in
     is_functor, incl, ext
   )
-# 74978 "parsing/parser.ml"
+# 74967 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos_is_functor_) in
@@ -74982,7 +74971,7 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 1779 "parsing/parser.mly"
+# 1768 "parsing/parser.mly"
       ( let is_functor, incl, ext = _1 in
         let item =
           if is_functor
@@ -74992,7 +74981,7 @@ module Tables = struct
         in
         wrap_str_ext ~loc:_sloc item ext
       )
-# 74996 "parsing/parser.ml"
+# 74985 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75015,9 +75004,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4750 "parsing/parser.mly"
+# 4739 "parsing/parser.mly"
                                                 ( "-" )
-# 75021 "parsing/parser.ml"
+# 75010 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75040,9 +75029,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4751 "parsing/parser.mly"
+# 4740 "parsing/parser.mly"
                                                 ( "-." )
-# 75046 "parsing/parser.ml"
+# 75035 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75095,9 +75084,9 @@ module Tables = struct
         let _v : (Parsetree.row_field) = let _5 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 75101 "parsing/parser.ml"
+# 75090 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined1_ in
@@ -75106,18 +75095,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 75110 "parsing/parser.ml"
+# 75099 "parsing/parser.ml"
              in
             
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 75115 "parsing/parser.ml"
+# 75104 "parsing/parser.ml"
             
           in
           
-# 4419 "parsing/parser.mly"
+# 4408 "parsing/parser.mly"
     ( _1 )
-# 75121 "parsing/parser.ml"
+# 75110 "parsing/parser.ml"
           
         in
         let _1 =
@@ -75125,20 +75114,20 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75131 "parsing/parser.ml"
+# 75120 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4405 "parsing/parser.mly"
+# 4394 "parsing/parser.mly"
       ( let info = symbol_info _endpos in
         let attrs = add_info_attrs info _5 in
         Rf.tag ~loc:(make_loc _sloc) ~attrs _1 _3 _4 )
-# 75142 "parsing/parser.ml"
+# 75131 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75170,9 +75159,9 @@ module Tables = struct
         let _v : (Parsetree.row_field) = let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 75176 "parsing/parser.ml"
+# 75165 "parsing/parser.ml"
           
         in
         let _endpos__2_ = _endpos__1_inlined1_ in
@@ -75181,20 +75170,20 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75187 "parsing/parser.ml"
+# 75176 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4409 "parsing/parser.mly"
+# 4398 "parsing/parser.mly"
       ( let info = symbol_info _endpos in
         let attrs = add_info_attrs info _2 in
         Rf.tag ~loc:(make_loc _sloc) ~attrs _1 true [] )
-# 75198 "parsing/parser.ml"
+# 75187 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75226,7 +75215,7 @@ module Tables = struct
         let _v : (Parsetree.toplevel_phrase) = let arg = 
 # 124 "<standard.mly>"
     ( None )
-# 75230 "parsing/parser.ml"
+# 75219 "parsing/parser.ml"
          in
         let _endpos_arg_ = _endpos__1_inlined1_ in
         let dir =
@@ -75235,23 +75224,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75241 "parsing/parser.ml"
+# 75230 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75247 "parsing/parser.ml"
+# 75236 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75255 "parsing/parser.ml"
+# 75244 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75282,9 +75271,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
-# 75288 "parsing/parser.ml"
+# 75277 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -75295,23 +75284,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4640 "parsing/parser.mly"
+# 4629 "parsing/parser.mly"
                   ( let (s, _, _) = _1 in Pdir_string s )
-# 75301 "parsing/parser.ml"
+# 75290 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75309 "parsing/parser.ml"
+# 75298 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75315 "parsing/parser.ml"
+# 75304 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75321,23 +75310,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75327 "parsing/parser.ml"
+# 75316 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75333 "parsing/parser.ml"
+# 75322 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75341 "parsing/parser.ml"
+# 75330 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75368,9 +75357,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
-# 75374 "parsing/parser.ml"
+# 75363 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -75381,23 +75370,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4641 "parsing/parser.mly"
+# 4630 "parsing/parser.mly"
                   ( let (n, m) = _1 in Pdir_int (n ,m) )
-# 75387 "parsing/parser.ml"
+# 75376 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75395 "parsing/parser.ml"
+# 75384 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75401 "parsing/parser.ml"
+# 75390 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75407,23 +75396,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75413 "parsing/parser.ml"
+# 75402 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75419 "parsing/parser.ml"
+# 75408 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75427 "parsing/parser.ml"
+# 75416 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75463,23 +75452,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4642 "parsing/parser.mly"
+# 4631 "parsing/parser.mly"
                   ( Pdir_ident _1 )
-# 75469 "parsing/parser.ml"
+# 75458 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75477 "parsing/parser.ml"
+# 75466 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75483 "parsing/parser.ml"
+# 75472 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75489,23 +75478,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75495 "parsing/parser.ml"
+# 75484 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75501 "parsing/parser.ml"
+# 75490 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75509 "parsing/parser.ml"
+# 75498 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75545,23 +75534,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4643 "parsing/parser.mly"
+# 4632 "parsing/parser.mly"
                   ( Pdir_ident _1 )
-# 75551 "parsing/parser.ml"
+# 75540 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75559 "parsing/parser.ml"
+# 75548 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75565 "parsing/parser.ml"
+# 75554 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75571,23 +75560,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75577 "parsing/parser.ml"
+# 75566 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75583 "parsing/parser.ml"
+# 75572 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75591 "parsing/parser.ml"
+# 75580 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75627,23 +75616,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in
           let x =
             let _1 = 
-# 4644 "parsing/parser.mly"
+# 4633 "parsing/parser.mly"
                   ( Pdir_bool false )
-# 75633 "parsing/parser.ml"
+# 75622 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75641 "parsing/parser.ml"
+# 75630 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75647 "parsing/parser.ml"
+# 75636 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75653,23 +75642,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75659 "parsing/parser.ml"
+# 75648 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75665 "parsing/parser.ml"
+# 75654 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75673 "parsing/parser.ml"
+# 75662 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75709,23 +75698,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in
           let x =
             let _1 = 
-# 4645 "parsing/parser.mly"
+# 4634 "parsing/parser.mly"
                   ( Pdir_bool true )
-# 75715 "parsing/parser.ml"
+# 75704 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75723 "parsing/parser.ml"
+# 75712 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75729 "parsing/parser.ml"
+# 75718 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75735,23 +75724,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75741 "parsing/parser.ml"
+# 75730 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2934 "parsing/parser.mly"
+# 2923 "parsing/parser.mly"
          ( () )
-# 75747 "parsing/parser.ml"
+# 75736 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75755 "parsing/parser.ml"
+# 75744 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75783,7 +75772,7 @@ module Tables = struct
         let _v : (Parsetree.toplevel_phrase) = let arg = 
 # 124 "<standard.mly>"
     ( None )
-# 75787 "parsing/parser.ml"
+# 75776 "parsing/parser.ml"
          in
         let _endpos_arg_ = _endpos__1_inlined1_ in
         let dir =
@@ -75792,23 +75781,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75798 "parsing/parser.ml"
+# 75787 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 75804 "parsing/parser.ml"
+# 75793 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75812 "parsing/parser.ml"
+# 75801 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75839,9 +75828,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
-# 75845 "parsing/parser.ml"
+# 75834 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -75852,23 +75841,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4640 "parsing/parser.mly"
+# 4629 "parsing/parser.mly"
                   ( let (s, _, _) = _1 in Pdir_string s )
-# 75858 "parsing/parser.ml"
+# 75847 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75866 "parsing/parser.ml"
+# 75855 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75872 "parsing/parser.ml"
+# 75861 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75878,23 +75867,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75884 "parsing/parser.ml"
+# 75873 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 75890 "parsing/parser.ml"
+# 75879 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75898 "parsing/parser.ml"
+# 75887 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -75925,9 +75914,9 @@ module Tables = struct
           };
         } = _menhir_stack in
         let _1_inlined2 : (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
-# 75931 "parsing/parser.ml"
+# 75920 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _1_inlined1 : (Asttypes.label) = Obj.magic _1_inlined1 in
         let _1 : unit = Obj.magic _1 in
@@ -75938,23 +75927,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4641 "parsing/parser.mly"
+# 4630 "parsing/parser.mly"
                   ( let (n, m) = _1 in Pdir_int (n ,m) )
-# 75944 "parsing/parser.ml"
+# 75933 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 75952 "parsing/parser.ml"
+# 75941 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 75958 "parsing/parser.ml"
+# 75947 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -75964,23 +75953,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 75970 "parsing/parser.ml"
+# 75959 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 75976 "parsing/parser.ml"
+# 75965 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 75984 "parsing/parser.ml"
+# 75973 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76020,23 +76009,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4642 "parsing/parser.mly"
+# 4631 "parsing/parser.mly"
                   ( Pdir_ident _1 )
-# 76026 "parsing/parser.ml"
+# 76015 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 76034 "parsing/parser.ml"
+# 76023 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 76040 "parsing/parser.ml"
+# 76029 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -76046,23 +76035,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 76052 "parsing/parser.ml"
+# 76041 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 76058 "parsing/parser.ml"
+# 76047 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 76066 "parsing/parser.ml"
+# 76055 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76102,23 +76091,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let x =
             let _1 = 
-# 4643 "parsing/parser.mly"
+# 4632 "parsing/parser.mly"
                   ( Pdir_ident _1 )
-# 76108 "parsing/parser.ml"
+# 76097 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 76116 "parsing/parser.ml"
+# 76105 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 76122 "parsing/parser.ml"
+# 76111 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -76128,23 +76117,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 76134 "parsing/parser.ml"
+# 76123 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 76140 "parsing/parser.ml"
+# 76129 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 76148 "parsing/parser.ml"
+# 76137 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76184,23 +76173,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in
           let x =
             let _1 = 
-# 4644 "parsing/parser.mly"
+# 4633 "parsing/parser.mly"
                   ( Pdir_bool false )
-# 76190 "parsing/parser.ml"
+# 76179 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 76198 "parsing/parser.ml"
+# 76187 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 76204 "parsing/parser.ml"
+# 76193 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -76210,23 +76199,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 76216 "parsing/parser.ml"
+# 76205 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 76222 "parsing/parser.ml"
+# 76211 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 76230 "parsing/parser.ml"
+# 76219 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76266,23 +76255,23 @@ module Tables = struct
           let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined2_, _startpos__1_inlined2_) in
           let x =
             let _1 = 
-# 4645 "parsing/parser.mly"
+# 4634 "parsing/parser.mly"
                   ( Pdir_bool true )
-# 76272 "parsing/parser.ml"
+# 76261 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1261 "parsing/parser.mly"
+# 1250 "parsing/parser.mly"
     ( mk_directive_arg ~loc:_sloc _1 )
-# 76280 "parsing/parser.ml"
+# 76269 "parsing/parser.ml"
             
           in
           
 # 126 "<standard.mly>"
     ( Some x )
-# 76286 "parsing/parser.ml"
+# 76275 "parsing/parser.ml"
           
         in
         let _endpos_arg_ = _endpos__1_inlined2_ in
@@ -76292,23 +76281,23 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 76298 "parsing/parser.ml"
+# 76287 "parsing/parser.ml"
           
         in
         let _1 = 
-# 2935 "parsing/parser.mly"
+# 2924 "parsing/parser.mly"
                 ( () )
-# 76304 "parsing/parser.ml"
+# 76293 "parsing/parser.ml"
          in
         let _endpos = _endpos_arg_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4636 "parsing/parser.mly"
+# 4625 "parsing/parser.mly"
     ( mk_directive ~loc:_sloc dir arg )
-# 76312 "parsing/parser.ml"
+# 76301 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76348,37 +76337,37 @@ module Tables = struct
           let _1 =
             let _1 =
               let attrs = 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 76354 "parsing/parser.ml"
+# 76343 "parsing/parser.ml"
                in
               
-# 1730 "parsing/parser.mly"
+# 1719 "parsing/parser.mly"
     ( mkstrexp e attrs )
-# 76359 "parsing/parser.ml"
+# 76348 "parsing/parser.ml"
               
             in
             let _startpos__1_ = _startpos_e_ in
             let _startpos = _startpos__1_ in
             
-# 1204 "parsing/parser.mly"
+# 1193 "parsing/parser.mly"
   ( text_str _startpos @ [_1] )
-# 76367 "parsing/parser.ml"
+# 76356 "parsing/parser.ml"
             
           in
           let _startpos__1_ = _startpos_e_ in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1192 "parsing/parser.mly"
+# 1181 "parsing/parser.mly"
                               ( extra_str _startpos _endpos _1 )
-# 76376 "parsing/parser.ml"
+# 76365 "parsing/parser.ml"
           
         in
         
-# 1494 "parsing/parser.mly"
+# 1483 "parsing/parser.mly"
     ( Ptop_def _1 )
-# 76382 "parsing/parser.ml"
+# 76371 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76411,21 +76400,21 @@ module Tables = struct
           let _1 = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 76415 "parsing/parser.ml"
+# 76404 "parsing/parser.ml"
            in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1192 "parsing/parser.mly"
+# 1181 "parsing/parser.mly"
                               ( extra_str _startpos _endpos _1 )
-# 76423 "parsing/parser.ml"
+# 76412 "parsing/parser.ml"
           
         in
         
-# 1498 "parsing/parser.mly"
+# 1487 "parsing/parser.mly"
     ( Ptop_def _1 )
-# 76429 "parsing/parser.ml"
+# 76418 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76455,9 +76444,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.toplevel_phrase) = 
-# 1502 "parsing/parser.mly"
+# 1491 "parsing/parser.mly"
     ( _1 )
-# 76461 "parsing/parser.ml"
+# 76450 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76480,9 +76469,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.toplevel_phrase) = 
-# 1505 "parsing/parser.mly"
+# 1494 "parsing/parser.mly"
     ( raise End_of_file )
-# 76486 "parsing/parser.ml"
+# 76475 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76505,9 +76494,9 @@ module Tables = struct
         let _startpos = _startpos_ty_ in
         let _endpos = _endpos_ty_ in
         let _v : (Parsetree.core_type) = 
-# 4292 "parsing/parser.mly"
+# 4281 "parsing/parser.mly"
       ( ty )
-# 76511 "parsing/parser.ml"
+# 76500 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76548,18 +76537,18 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 76552 "parsing/parser.ml"
+# 76541 "parsing/parser.ml"
              in
             
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 76557 "parsing/parser.ml"
+# 76546 "parsing/parser.ml"
             
           in
           
-# 4303 "parsing/parser.mly"
+# 4292 "parsing/parser.mly"
       ( ty, ltys )
-# 76563 "parsing/parser.ml"
+# 76552 "parsing/parser.ml"
           
         in
         let (_endpos__1_, _startpos__1_) = (_endpos_xs_, _startpos_ty_) in
@@ -76567,11 +76556,11 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4294 "parsing/parser.mly"
+# 4283 "parsing/parser.mly"
     ( let ty, ltys = _1 in
       ptyp_ltuple _sloc ((None, ty) :: ltys)
     )
-# 76575 "parsing/parser.ml"
+# 76564 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76601,9 +76590,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (N_ary.type_constraint) = 
-# 3367 "parsing/parser.mly"
+# 3356 "parsing/parser.mly"
                                                 ( N_ary.Pconstraint _2 )
-# 76607 "parsing/parser.ml"
+# 76596 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76647,9 +76636,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__4_ in
         let _v : (N_ary.type_constraint) = 
-# 3368 "parsing/parser.mly"
+# 3357 "parsing/parser.mly"
                                                 ( N_ary.Pcoerce (Some _2, _4) )
-# 76653 "parsing/parser.ml"
+# 76642 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76679,9 +76668,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (N_ary.type_constraint) = 
-# 3369 "parsing/parser.mly"
+# 3358 "parsing/parser.mly"
                                                 ( N_ary.Pcoerce (None, _2) )
-# 76685 "parsing/parser.ml"
+# 76674 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76711,9 +76700,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (N_ary.type_constraint) = 
-# 3370 "parsing/parser.mly"
+# 3359 "parsing/parser.mly"
                                                 ( syntax_error() )
-# 76717 "parsing/parser.ml"
+# 76706 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76743,9 +76732,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (N_ary.type_constraint) = 
-# 3371 "parsing/parser.mly"
+# 3360 "parsing/parser.mly"
                                                 ( syntax_error() )
-# 76749 "parsing/parser.ml"
+# 76738 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76761,9 +76750,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = 
-# 3771 "parsing/parser.mly"
+# 3760 "parsing/parser.mly"
       ( (Ptype_abstract, Public, None) )
-# 76767 "parsing/parser.ml"
+# 76756 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76793,9 +76782,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Parsetree.type_kind * Asttypes.private_flag * Parsetree.core_type option) = 
-# 3773 "parsing/parser.mly"
+# 3762 "parsing/parser.mly"
       ( _2 )
-# 76799 "parsing/parser.ml"
+# 76788 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76818,9 +76807,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4593 "parsing/parser.mly"
+# 4582 "parsing/parser.mly"
                                                             ( _1 )
-# 76824 "parsing/parser.ml"
+# 76813 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76866,39 +76855,39 @@ module Tables = struct
         let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 76872 "parsing/parser.ml"
+# 76861 "parsing/parser.ml"
           
         in
         let _2 =
           let _startpos__1_ = _startpos__1_inlined1_ in
           let _1 =
             let _1 = 
-# 3821 "parsing/parser.mly"
+# 3810 "parsing/parser.mly"
       ( Ptyp_var tyvar )
-# 76881 "parsing/parser.ml"
+# 76870 "parsing/parser.ml"
              in
             let _endpos__1_ = _endpos_tyvar_ in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 76890 "parsing/parser.ml"
+# 76879 "parsing/parser.ml"
             
           in
           
-# 3824 "parsing/parser.mly"
+# 3813 "parsing/parser.mly"
     ( _1 )
-# 76896 "parsing/parser.ml"
+# 76885 "parsing/parser.ml"
           
         in
         
-# 3815 "parsing/parser.mly"
+# 3804 "parsing/parser.mly"
       ( {_2 with ptyp_attributes = _3}, _1 )
-# 76902 "parsing/parser.ml"
+# 76891 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76937,38 +76926,38 @@ module Tables = struct
         let _v : (Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) = let _3 =
           let _1 = _1_inlined2 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 76943 "parsing/parser.ml"
+# 76932 "parsing/parser.ml"
           
         in
         let _2 =
           let (_endpos__1_, _startpos__1_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
           let _1 =
             let _1 = 
-# 3823 "parsing/parser.mly"
+# 3812 "parsing/parser.mly"
       ( Ptyp_any )
-# 76952 "parsing/parser.ml"
+# 76941 "parsing/parser.ml"
              in
             let _endpos = _endpos__1_ in
             let _symbolstartpos = _startpos__1_ in
             let _sloc = (_symbolstartpos, _endpos) in
             
-# 1237 "parsing/parser.mly"
+# 1226 "parsing/parser.mly"
     ( mktyp ~loc:_sloc _1 )
-# 76960 "parsing/parser.ml"
+# 76949 "parsing/parser.ml"
             
           in
           
-# 3824 "parsing/parser.mly"
+# 3813 "parsing/parser.mly"
     ( _1 )
-# 76966 "parsing/parser.ml"
+# 76955 "parsing/parser.ml"
           
         in
         
-# 3815 "parsing/parser.mly"
+# 3804 "parsing/parser.mly"
       ( {_2 with ptyp_attributes = _3}, _1 )
-# 76972 "parsing/parser.ml"
+# 76961 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -76984,9 +76973,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = 
-# 3781 "parsing/parser.mly"
+# 3770 "parsing/parser.mly"
       ( [] )
-# 76990 "parsing/parser.ml"
+# 76979 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77009,9 +76998,9 @@ module Tables = struct
         let _startpos = _startpos_p_ in
         let _endpos = _endpos_p_ in
         let _v : ((Parsetree.core_type * (Asttypes.variance * Asttypes.injectivity)) list) = 
-# 3783 "parsing/parser.mly"
+# 3772 "parsing/parser.mly"
       ( [p] )
-# 77015 "parsing/parser.ml"
+# 77004 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77051,18 +77040,18 @@ module Tables = struct
           let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 77055 "parsing/parser.ml"
+# 77044 "parsing/parser.ml"
            in
           
-# 1357 "parsing/parser.mly"
+# 1346 "parsing/parser.mly"
     ( xs )
-# 77060 "parsing/parser.ml"
+# 77049 "parsing/parser.ml"
           
         in
         
-# 3787 "parsing/parser.mly"
+# 3776 "parsing/parser.mly"
       ( ps )
-# 77066 "parsing/parser.ml"
+# 77055 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77088,17 +77077,17 @@ module Tables = struct
         } = _menhir_stack in
         let _2 : unit = Obj.magic _2 in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 77094 "parsing/parser.ml"
+# 77083 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (string) = 
-# 4590 "parsing/parser.mly"
+# 4579 "parsing/parser.mly"
                       ( _1 ^ "#" )
-# 77102 "parsing/parser.ml"
+# 77091 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77117,17 +77106,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 77123 "parsing/parser.ml"
+# 77112 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (string) = 
-# 4587 "parsing/parser.mly"
+# 4576 "parsing/parser.mly"
           ( _1 )
-# 77131 "parsing/parser.ml"
+# 77120 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77150,9 +77139,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4596 "parsing/parser.mly"
+# 4585 "parsing/parser.mly"
                                                          ( _1 )
-# 77156 "parsing/parser.ml"
+# 77145 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77168,9 +77157,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3835 "parsing/parser.mly"
+# 3824 "parsing/parser.mly"
                                             ( NoVariance, NoInjectivity )
-# 77174 "parsing/parser.ml"
+# 77163 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77193,9 +77182,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3836 "parsing/parser.mly"
+# 3825 "parsing/parser.mly"
                                             ( Covariant, NoInjectivity )
-# 77199 "parsing/parser.ml"
+# 77188 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77218,9 +77207,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3837 "parsing/parser.mly"
+# 3826 "parsing/parser.mly"
                                             ( Contravariant, NoInjectivity )
-# 77224 "parsing/parser.ml"
+# 77213 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77243,9 +77232,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3838 "parsing/parser.mly"
+# 3827 "parsing/parser.mly"
                                             ( NoVariance, Injective )
-# 77249 "parsing/parser.ml"
+# 77238 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77275,9 +77264,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3839 "parsing/parser.mly"
+# 3828 "parsing/parser.mly"
                                             ( Covariant, Injective )
-# 77281 "parsing/parser.ml"
+# 77270 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77307,9 +77296,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3839 "parsing/parser.mly"
+# 3828 "parsing/parser.mly"
                                             ( Covariant, Injective )
-# 77313 "parsing/parser.ml"
+# 77302 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77339,9 +77328,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3840 "parsing/parser.mly"
+# 3829 "parsing/parser.mly"
                                             ( Contravariant, Injective )
-# 77345 "parsing/parser.ml"
+# 77334 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77371,9 +77360,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = 
-# 3840 "parsing/parser.mly"
+# 3829 "parsing/parser.mly"
                                             ( Contravariant, Injective )
-# 77377 "parsing/parser.ml"
+# 77366 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77392,20 +77381,20 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 988 "parsing/parser.mly"
+# 977 "parsing/parser.mly"
        (string)
-# 77398 "parsing/parser.ml"
+# 77387 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 3842 "parsing/parser.mly"
+# 3831 "parsing/parser.mly"
       ( if _1 = "+!" then Covariant, Injective else
         if _1 = "-!" then Contravariant, Injective else
         expecting _loc__1_ "type_variance" )
-# 77409 "parsing/parser.ml"
+# 77398 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77424,20 +77413,20 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1038 "parsing/parser.mly"
+# 1027 "parsing/parser.mly"
        (string)
-# 77430 "parsing/parser.ml"
+# 77419 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.variance * Asttypes.injectivity) = let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 3846 "parsing/parser.mly"
+# 3835 "parsing/parser.mly"
       ( if _1 = "!+" then Covariant, Injective else
         if _1 = "!-" then Contravariant, Injective else
         expecting _loc__1_ "type_variance" )
-# 77441 "parsing/parser.ml"
+# 77430 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77456,9 +77445,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 997 "parsing/parser.mly"
+# 986 "parsing/parser.mly"
        (string * char option)
-# 77462 "parsing/parser.ml"
+# 77451 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -77467,9 +77456,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4476 "parsing/parser.mly"
+# 4465 "parsing/parser.mly"
                       ( unboxed_int _sloc _sloc Positive _1 )
-# 77473 "parsing/parser.ml"
+# 77462 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77488,9 +77477,9 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 974 "parsing/parser.mly"
+# 963 "parsing/parser.mly"
        (string * char option)
-# 77494 "parsing/parser.ml"
+# 77483 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
@@ -77499,9 +77488,9 @@ module Tables = struct
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4477 "parsing/parser.mly"
+# 4466 "parsing/parser.mly"
                       ( unboxed_float _sloc Positive _1 )
-# 77505 "parsing/parser.ml"
+# 77494 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77535,39 +77524,39 @@ module Tables = struct
             let ys = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 77539 "parsing/parser.ml"
+# 77528 "parsing/parser.ml"
              in
             let xs =
               let _1 = 
-# 1273 "parsing/parser.mly"
+# 1262 "parsing/parser.mly"
     ( [] )
-# 77545 "parsing/parser.ml"
+# 77534 "parsing/parser.ml"
                in
               
-# 1525 "parsing/parser.mly"
+# 1514 "parsing/parser.mly"
     ( _1 )
-# 77550 "parsing/parser.ml"
+# 77539 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 77556 "parsing/parser.ml"
+# 77545 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_xss_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1196 "parsing/parser.mly"
+# 1185 "parsing/parser.mly"
                               ( extra_def _startpos _endpos _1 )
-# 77565 "parsing/parser.ml"
+# 77554 "parsing/parser.ml"
           
         in
         
-# 1518 "parsing/parser.mly"
+# 1507 "parsing/parser.mly"
     ( _1 )
-# 77571 "parsing/parser.ml"
+# 77560 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77615,7 +77604,7 @@ module Tables = struct
             let ys = 
 # 260 "<standard.mly>"
     ( List.flatten xss )
-# 77619 "parsing/parser.ml"
+# 77608 "parsing/parser.ml"
              in
             let xs =
               let _1 =
@@ -77623,61 +77612,61 @@ module Tables = struct
                   let _1 =
                     let _1 =
                       let attrs = 
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 77629 "parsing/parser.ml"
+# 77618 "parsing/parser.ml"
                        in
                       
-# 1730 "parsing/parser.mly"
+# 1719 "parsing/parser.mly"
     ( mkstrexp e attrs )
-# 77634 "parsing/parser.ml"
+# 77623 "parsing/parser.ml"
                       
                     in
                     
-# 1214 "parsing/parser.mly"
+# 1203 "parsing/parser.mly"
   ( Ptop_def [_1] )
-# 77640 "parsing/parser.ml"
+# 77629 "parsing/parser.ml"
                     
                   in
                   let _startpos__1_ = _startpos_e_ in
                   let _startpos = _startpos__1_ in
                   
-# 1212 "parsing/parser.mly"
+# 1201 "parsing/parser.mly"
   ( text_def _startpos @ [_1] )
-# 77648 "parsing/parser.ml"
+# 77637 "parsing/parser.ml"
                   
                 in
                 
-# 1275 "parsing/parser.mly"
+# 1264 "parsing/parser.mly"
     ( x )
-# 77654 "parsing/parser.ml"
+# 77643 "parsing/parser.ml"
                 
               in
               
-# 1525 "parsing/parser.mly"
+# 1514 "parsing/parser.mly"
     ( _1 )
-# 77660 "parsing/parser.ml"
+# 77649 "parsing/parser.ml"
               
             in
             
 # 267 "<standard.mly>"
     ( xs @ ys )
-# 77666 "parsing/parser.ml"
+# 77655 "parsing/parser.ml"
             
           in
           let (_endpos__1_, _startpos__1_) = (_endpos_xss_, _startpos_e_) in
           let _endpos = _endpos__1_ in
           let _startpos = _startpos__1_ in
           
-# 1196 "parsing/parser.mly"
+# 1185 "parsing/parser.mly"
                               ( extra_def _startpos _endpos _1 )
-# 77675 "parsing/parser.ml"
+# 77664 "parsing/parser.ml"
           
         in
         
-# 1518 "parsing/parser.mly"
+# 1507 "parsing/parser.mly"
     ( _1 )
-# 77681 "parsing/parser.ml"
+# 77670 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77714,9 +77703,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.label) = 
-# 4506 "parsing/parser.mly"
+# 4495 "parsing/parser.mly"
                               ( _2 )
-# 77720 "parsing/parser.ml"
+# 77709 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77755,9 +77744,9 @@ module Tables = struct
         let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         let _loc__1_ = (_startpos__1_, _endpos__1_) in
         
-# 4507 "parsing/parser.mly"
+# 4496 "parsing/parser.mly"
                               ( unclosed "(" _loc__1_ ")" _loc__3_ )
-# 77761 "parsing/parser.ml"
+# 77750 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77788,9 +77777,9 @@ module Tables = struct
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.label) = let _loc__2_ = (_startpos__2_, _endpos__2_) in
         
-# 4508 "parsing/parser.mly"
+# 4497 "parsing/parser.mly"
                               ( expecting _loc__2_ "operator" )
-# 77794 "parsing/parser.ml"
+# 77783 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77828,9 +77817,9 @@ module Tables = struct
         let _endpos = _endpos__3_ in
         let _v : (Asttypes.label) = let _loc__3_ = (_startpos__3_, _endpos__3_) in
         
-# 4509 "parsing/parser.mly"
+# 4498 "parsing/parser.mly"
                               ( expecting _loc__3_ "module-expr" )
-# 77834 "parsing/parser.ml"
+# 77823 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77849,17 +77838,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 77855 "parsing/parser.ml"
+# 77844 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4512 "parsing/parser.mly"
+# 4501 "parsing/parser.mly"
                               ( _1 )
-# 77863 "parsing/parser.ml"
+# 77852 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77882,9 +77871,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.label) = 
-# 4513 "parsing/parser.mly"
+# 4502 "parsing/parser.mly"
                               ( _1 )
-# 77888 "parsing/parser.ml"
+# 77877 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77907,9 +77896,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Longident.t) = 
-# 4581 "parsing/parser.mly"
+# 4570 "parsing/parser.mly"
                                            ( _1 )
-# 77913 "parsing/parser.ml"
+# 77902 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -77954,9 +77943,9 @@ module Tables = struct
         let ty : (Parsetree.core_type) = Obj.magic ty in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 77960 "parsing/parser.ml"
+# 77949 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let mutable_ : (Asttypes.mutable_flag) = Obj.magic mutable_ in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -77968,33 +77957,33 @@ module Tables = struct
   Parsetree.attributes) = let label =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 77974 "parsing/parser.ml"
+# 77963 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 77982 "parsing/parser.ml"
+# 77971 "parsing/parser.ml"
           
         in
         let attrs = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 77988 "parsing/parser.ml"
+# 77977 "parsing/parser.ml"
          in
         let _1 = 
-# 4743 "parsing/parser.mly"
+# 4732 "parsing/parser.mly"
                                                 ( Fresh )
-# 77993 "parsing/parser.ml"
+# 77982 "parsing/parser.ml"
          in
         
-# 2338 "parsing/parser.mly"
+# 2327 "parsing/parser.mly"
       ( (label, mutable_, Cfk_virtual ty), attrs )
-# 77998 "parsing/parser.ml"
+# 77987 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78039,9 +78028,9 @@ module Tables = struct
         let _6 : (Parsetree.expression) = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 78045 "parsing/parser.ml"
+# 78034 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -78053,33 +78042,33 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 78059 "parsing/parser.ml"
+# 78048 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78067 "parsing/parser.ml"
+# 78056 "parsing/parser.ml"
           
         in
         let _2 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 78073 "parsing/parser.ml"
+# 78062 "parsing/parser.ml"
          in
         let _1 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 78078 "parsing/parser.ml"
+# 78067 "parsing/parser.ml"
          in
         
-# 2340 "parsing/parser.mly"
+# 2329 "parsing/parser.mly"
       ( (_4, _3, Cfk_concrete (_1, _6)), _2 )
-# 78083 "parsing/parser.ml"
+# 78072 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78130,9 +78119,9 @@ module Tables = struct
         let _6 : (Parsetree.expression) = Obj.magic _6 in
         let _5 : unit = Obj.magic _5 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 78136 "parsing/parser.ml"
+# 78125 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -78145,36 +78134,36 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 78151 "parsing/parser.ml"
+# 78140 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78159 "parsing/parser.ml"
+# 78148 "parsing/parser.ml"
           
         in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 78167 "parsing/parser.ml"
+# 78156 "parsing/parser.ml"
           
         in
         let _1 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 78173 "parsing/parser.ml"
+# 78162 "parsing/parser.ml"
          in
         
-# 2340 "parsing/parser.mly"
+# 2329 "parsing/parser.mly"
       ( (_4, _3, Cfk_concrete (_1, _6)), _2 )
-# 78178 "parsing/parser.ml"
+# 78167 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78226,9 +78215,9 @@ module Tables = struct
         let _6 : unit = Obj.magic _6 in
         let _5 : (N_ary.type_constraint) = Obj.magic _5 in
         let _1_inlined1 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 78232 "parsing/parser.ml"
+# 78221 "parsing/parser.ml"
         ) = Obj.magic _1_inlined1 in
         let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in
         let _1 : (Parsetree.attributes) = Obj.magic _1 in
@@ -78240,30 +78229,30 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined1_, _startpos__1_inlined1_, _1_inlined1) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 78246 "parsing/parser.ml"
+# 78235 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78254 "parsing/parser.ml"
+# 78243 "parsing/parser.ml"
           
         in
         let _startpos__4_ = _startpos__1_inlined1_ in
         let _2 = 
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 78261 "parsing/parser.ml"
+# 78250 "parsing/parser.ml"
          in
         let (_endpos__2_, _startpos__2_) = (_endpos__1_, _startpos__1_) in
         let _1 = 
-# 4746 "parsing/parser.mly"
+# 4735 "parsing/parser.mly"
                                                 ( Fresh )
-# 78267 "parsing/parser.ml"
+# 78256 "parsing/parser.ml"
          in
         let (_endpos__1_, _startpos__1_) = (_endpos__0_, _endpos__0_) in
         let _endpos = _endpos__7_ in
@@ -78279,11 +78268,11 @@ module Tables = struct
               _startpos__4_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2343 "parsing/parser.mly"
+# 2332 "parsing/parser.mly"
       ( let e = mkexp_constraint ~loc:_sloc _7 _5 in
         (_4, _3, Cfk_concrete (_1, e)), _2
       )
-# 78287 "parsing/parser.ml"
+# 78276 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78341,9 +78330,9 @@ module Tables = struct
         let _6 : unit = Obj.magic _6 in
         let _5 : (N_ary.type_constraint) = Obj.magic _5 in
         let _1_inlined2 : (
-# 1012 "parsing/parser.mly"
+# 1001 "parsing/parser.mly"
        (string)
-# 78347 "parsing/parser.ml"
+# 78336 "parsing/parser.ml"
         ) = Obj.magic _1_inlined2 in
         let _3 : (Asttypes.mutable_flag) = Obj.magic _3 in
         let _1_inlined1 : (Parsetree.attributes) = Obj.magic _1_inlined1 in
@@ -78356,33 +78345,33 @@ module Tables = struct
   Parsetree.attributes) = let _4 =
           let (_endpos__1_, _startpos__1_, _1) = (_endpos__1_inlined2_, _startpos__1_inlined2_, _1_inlined2) in
           let _1 = 
-# 4463 "parsing/parser.mly"
+# 4452 "parsing/parser.mly"
                                                 ( _1 )
-# 78362 "parsing/parser.ml"
+# 78351 "parsing/parser.ml"
            in
           let _endpos = _endpos__1_ in
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78370 "parsing/parser.ml"
+# 78359 "parsing/parser.ml"
           
         in
         let _startpos__4_ = _startpos__1_inlined2_ in
         let _2 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 78379 "parsing/parser.ml"
+# 78368 "parsing/parser.ml"
           
         in
         let (_endpos__2_, _startpos__2_) = (_endpos__1_inlined1_, _startpos__1_inlined1_) in
         let _1 = 
-# 4747 "parsing/parser.mly"
+# 4736 "parsing/parser.mly"
                                                 ( Override )
-# 78386 "parsing/parser.ml"
+# 78375 "parsing/parser.ml"
          in
         let _endpos = _endpos__7_ in
         let _symbolstartpos = if _startpos__1_ != _endpos__1_ then
@@ -78397,11 +78386,11 @@ module Tables = struct
               _startpos__4_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 2343 "parsing/parser.mly"
+# 2332 "parsing/parser.mly"
       ( let e = mkexp_constraint ~loc:_sloc _7 _5 in
         (_4, _3, Cfk_concrete (_1, e)), _2
       )
-# 78405 "parsing/parser.ml"
+# 78394 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78420,17 +78409,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 996 "parsing/parser.mly"
+# 985 "parsing/parser.mly"
        (string * char option)
-# 78426 "parsing/parser.ml"
+# 78415 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constant) = 
-# 4469 "parsing/parser.mly"
+# 4458 "parsing/parser.mly"
                       ( let (n, m) = _1 in Pconst_integer (n, m) )
-# 78434 "parsing/parser.ml"
+# 78423 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78449,17 +78438,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 951 "parsing/parser.mly"
+# 940 "parsing/parser.mly"
        (char)
-# 78455 "parsing/parser.ml"
+# 78444 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constant) = 
-# 4470 "parsing/parser.mly"
+# 4459 "parsing/parser.mly"
                       ( Pconst_char _1 )
-# 78463 "parsing/parser.ml"
+# 78452 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78478,18 +78467,18 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 1053 "parsing/parser.mly"
+# 1042 "parsing/parser.mly"
        (string * Location.t * string option)
-# 78484 "parsing/parser.ml"
+# 78473 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constant) = 
-# 4471 "parsing/parser.mly"
+# 4460 "parsing/parser.mly"
                       ( let (s, strloc, d) = _1 in
                         Pconst_string (s, strloc, d) )
-# 78493 "parsing/parser.ml"
+# 78482 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78508,17 +78497,17 @@ module Tables = struct
           MenhirLib.EngineTypes.next = _menhir_stack;
         } = _menhir_stack in
         let _1 : (
-# 973 "parsing/parser.mly"
+# 962 "parsing/parser.mly"
        (string * char option)
-# 78514 "parsing/parser.ml"
+# 78503 "parsing/parser.ml"
         ) = Obj.magic _1 in
         let _endpos__0_ = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Parsetree.constant) = 
-# 4473 "parsing/parser.mly"
+# 4462 "parsing/parser.mly"
                       ( let (f, m) = _1 in Pconst_float (f, m) )
-# 78522 "parsing/parser.ml"
+# 78511 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78585,9 +78574,9 @@ module Tables = struct
         let _v : (Parsetree.value_description * string Asttypes.loc option) = let attrs2 =
           let _1 = _1_inlined3 in
           
-# 4841 "parsing/parser.mly"
+# 4830 "parsing/parser.mly"
     ( _1 )
-# 78591 "parsing/parser.ml"
+# 78580 "parsing/parser.ml"
           
         in
         let _endpos_attrs2_ = _endpos__1_inlined3_ in
@@ -78597,30 +78586,30 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78603 "parsing/parser.ml"
+# 78592 "parsing/parser.ml"
           
         in
         let attrs1 =
           let _1 = _1_inlined1 in
           
-# 4845 "parsing/parser.mly"
+# 4834 "parsing/parser.mly"
     ( _1 )
-# 78611 "parsing/parser.ml"
+# 78600 "parsing/parser.ml"
           
         in
         let _endpos = _endpos_attrs2_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 3638 "parsing/parser.mly"
+# 3627 "parsing/parser.mly"
     ( let attrs = attrs1 @ attrs2 in
       let loc = make_loc _sloc in
       let docs = symbol_docs _sloc in
       Val.mk id ty ~attrs ~loc ~docs,
       ext )
-# 78624 "parsing/parser.ml"
+# 78613 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78636,9 +78625,9 @@ module Tables = struct
         let _startpos = _menhir_stack.MenhirLib.EngineTypes.endp in
         let _endpos = _startpos in
         let _v : (Asttypes.virtual_flag) = 
-# 4707 "parsing/parser.mly"
+# 4696 "parsing/parser.mly"
                                                 ( Concrete )
-# 78642 "parsing/parser.ml"
+# 78631 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78661,9 +78650,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.virtual_flag) = 
-# 4708 "parsing/parser.mly"
+# 4697 "parsing/parser.mly"
                                                 ( Virtual )
-# 78667 "parsing/parser.ml"
+# 78656 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78686,9 +78675,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.mutable_flag) = 
-# 4731 "parsing/parser.mly"
+# 4720 "parsing/parser.mly"
             ( Immutable )
-# 78692 "parsing/parser.ml"
+# 78681 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78718,9 +78707,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.mutable_flag) = 
-# 4732 "parsing/parser.mly"
+# 4721 "parsing/parser.mly"
                     ( Mutable )
-# 78724 "parsing/parser.ml"
+# 78713 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78750,9 +78739,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.mutable_flag) = 
-# 4733 "parsing/parser.mly"
+# 4722 "parsing/parser.mly"
                     ( Mutable )
-# 78756 "parsing/parser.ml"
+# 78745 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78775,9 +78764,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.private_flag) = 
-# 4738 "parsing/parser.mly"
+# 4727 "parsing/parser.mly"
             ( Public )
-# 78781 "parsing/parser.ml"
+# 78770 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78807,9 +78796,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.private_flag) = 
-# 4739 "parsing/parser.mly"
+# 4728 "parsing/parser.mly"
                     ( Private )
-# 78813 "parsing/parser.ml"
+# 78802 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78839,9 +78828,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.private_flag) = 
-# 4740 "parsing/parser.mly"
+# 4729 "parsing/parser.mly"
                     ( Private )
-# 78845 "parsing/parser.ml"
+# 78834 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -78903,27 +78892,27 @@ module Tables = struct
             let xs = 
 # 253 "<standard.mly>"
     ( List.rev xs )
-# 78907 "parsing/parser.ml"
+# 78896 "parsing/parser.ml"
              in
             
-# 1287 "parsing/parser.mly"
+# 1276 "parsing/parser.mly"
     ( xs )
-# 78912 "parsing/parser.ml"
+# 78901 "parsing/parser.ml"
             
           in
           
-# 3742 "parsing/parser.mly"
+# 3731 "parsing/parser.mly"
     ( _1 )
-# 78918 "parsing/parser.ml"
+# 78907 "parsing/parser.ml"
           
         in
         let _endpos__6_ = _endpos_xs_ in
         let _5 =
           let _1 = _1_inlined2 in
           
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 78927 "parsing/parser.ml"
+# 78916 "parsing/parser.ml"
           
         in
         let _3 =
@@ -78932,16 +78921,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 78938 "parsing/parser.ml"
+# 78927 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__6_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4040 "parsing/parser.mly"
+# 4029 "parsing/parser.mly"
       ( let lident = loc_last _3 in
         Pwith_type
           (_3,
@@ -78951,7 +78940,7 @@ module Tables = struct
               ~manifest:_5
               ~priv:_4
               ~loc:(make_loc _sloc))) )
-# 78955 "parsing/parser.ml"
+# 78944 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79004,9 +78993,9 @@ module Tables = struct
         let _v : (Parsetree.with_constraint) = let _5 =
           let _1 = _1_inlined2 in
           
-# 4126 "parsing/parser.mly"
+# 4115 "parsing/parser.mly"
     ( _1 )
-# 79010 "parsing/parser.ml"
+# 78999 "parsing/parser.ml"
           
         in
         let _endpos__5_ = _endpos__1_inlined2_ in
@@ -79016,16 +79005,16 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79022 "parsing/parser.ml"
+# 79011 "parsing/parser.ml"
           
         in
         let _endpos = _endpos__5_ in
         let _symbolstartpos = _startpos__1_ in
         let _sloc = (_symbolstartpos, _endpos) in
         
-# 4053 "parsing/parser.mly"
+# 4042 "parsing/parser.mly"
       ( let lident = loc_last _3 in
         Pwith_typesubst
          (_3,
@@ -79033,7 +79022,7 @@ module Tables = struct
               ~params:_2
               ~manifest:_5
               ~loc:(make_loc _sloc))) )
-# 79037 "parsing/parser.ml"
+# 79026 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79082,9 +79071,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79088 "parsing/parser.ml"
+# 79077 "parsing/parser.ml"
           
         in
         let _2 =
@@ -79093,15 +79082,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79099 "parsing/parser.ml"
+# 79088 "parsing/parser.ml"
           
         in
         
-# 4061 "parsing/parser.mly"
+# 4050 "parsing/parser.mly"
       ( Pwith_module (_2, _4) )
-# 79105 "parsing/parser.ml"
+# 79094 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79150,9 +79139,9 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79156 "parsing/parser.ml"
+# 79145 "parsing/parser.ml"
           
         in
         let _2 =
@@ -79161,15 +79150,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79167 "parsing/parser.ml"
+# 79156 "parsing/parser.ml"
           
         in
         
-# 4063 "parsing/parser.mly"
+# 4052 "parsing/parser.mly"
       ( Pwith_modsubst (_2, _4) )
-# 79173 "parsing/parser.ml"
+# 79162 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79225,15 +79214,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79231 "parsing/parser.ml"
+# 79220 "parsing/parser.ml"
           
         in
         
-# 4065 "parsing/parser.mly"
+# 4054 "parsing/parser.mly"
       ( Pwith_modtype (l, rhs) )
-# 79237 "parsing/parser.ml"
+# 79226 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79289,15 +79278,15 @@ module Tables = struct
           let _symbolstartpos = _startpos__1_ in
           let _sloc = (_symbolstartpos, _endpos) in
           
-# 1200 "parsing/parser.mly"
+# 1189 "parsing/parser.mly"
     ( mkrhs _1 _sloc )
-# 79295 "parsing/parser.ml"
+# 79284 "parsing/parser.ml"
           
         in
         
-# 4067 "parsing/parser.mly"
+# 4056 "parsing/parser.mly"
       ( Pwith_modtypesubst (l, rhs) )
-# 79301 "parsing/parser.ml"
+# 79290 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79320,9 +79309,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__1_ in
         let _v : (Asttypes.private_flag) = 
-# 4070 "parsing/parser.mly"
+# 4059 "parsing/parser.mly"
                    ( Public )
-# 79326 "parsing/parser.ml"
+# 79315 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79352,9 +79341,9 @@ module Tables = struct
         let _startpos = _startpos__1_ in
         let _endpos = _endpos__2_ in
         let _v : (Asttypes.private_flag) = 
-# 4071 "parsing/parser.mly"
+# 4060 "parsing/parser.mly"
                    ( Private )
-# 79358 "parsing/parser.ml"
+# 79347 "parsing/parser.ml"
          in
         {
           MenhirLib.EngineTypes.state = _menhir_s;
@@ -79504,12 +79493,12 @@ module Incremental = struct
   
 end
 
-# 4883 "parsing/parser.mly"
+# 4872 "parsing/parser.mly"
   
 
-# 79511 "parsing/parser.ml"
+# 79500 "parsing/parser.ml"
 
 # 269 "<standard.mly>"
   
 
-# 79516 "parsing/parser.ml"
+# 79505 "parsing/parser.ml"
diff --git a/ocaml/parsing/ast_iterator.ml b/ocaml/parsing/ast_iterator.ml
index 8b58a042e3e..591d9871bdf 100644
--- a/ocaml/parsing/ast_iterator.ml
+++ b/ocaml/parsing/ast_iterator.ml
@@ -557,14 +557,10 @@ module E = struct
   let iter sub
         ({pexp_loc = loc; pexp_desc = desc; pexp_attributes = attrs} as expr)=
     sub.location sub loc;
-    match desc with
-    | Pexp_apply
-        ({ pexp_desc = Pexp_extension(
-          {txt; _}, payload); pexp_loc },
-         [Nolabel, e]) when txt = Jane_syntax.Mode_expr.extension_name ->
-        let modes = Jane_syntax.Mode_expr.of_payload ~loc:pexp_loc payload in
+    match Jane_syntax.Mode_expr.coerce_of_expr expr with
+    | Some (modes, e) ->
         sub.expr_mode_syntax sub modes e
-    | _ ->
+    | None ->
     match Jane_syntax.Expression.of_ast expr with
     | Some (jexp, attrs) ->
         sub.attributes sub attrs;
diff --git a/ocaml/parsing/jane_syntax.ml b/ocaml/parsing/jane_syntax.ml
index 045b87b005d..af31f0eb002 100644
--- a/ocaml/parsing/jane_syntax.ml
+++ b/ocaml/parsing/jane_syntax.ml
@@ -454,17 +454,12 @@ module Mode_expr = struct
 
   let feature : Feature.t = Language_extension Mode
 
-  let attribute_components = []
+  let attribute_or_extension_name =
+    Embedded_name.of_feature feature [] |> Embedded_name.to_string
 
-  let extension_components = []
+  let attribute_name = attribute_or_extension_name
 
-  let attribute_name =
-    Embedded_name.of_feature feature attribute_components
-    |> Embedded_name.to_string
-
-  let extension_name =
-    Embedded_name.of_feature feature extension_components
-    |> Embedded_name.to_string
+  let extension_name = attribute_or_extension_name
 
   let payload_of { txt; _ } =
     match txt with
@@ -513,6 +508,26 @@ module Mode_expr = struct
     let loc = { loc with loc_ghost = true } in
     let txt = List.map Const.ghostify txt in
     { loc; txt }
+
+  let coerce_of_expr { pexp_desc; _ } =
+    match pexp_desc with
+    | Pexp_apply
+        ( { pexp_desc = Pexp_extension ({ txt; _ }, payload); pexp_loc; _ },
+          [(Nolabel, body)] )
+      when txt = extension_name ->
+      let modes = of_payload ~loc:pexp_loc payload in
+      Some (modes, body)
+    | _ -> None
+
+  let expr_of_coerce ~loc modes body =
+    match payload_of modes with
+    | None -> body
+    | Some payload ->
+      let ext =
+        Ast_helper.Exp.extension ~loc:modes.loc
+          (Location.mknoloc extension_name, payload)
+      in
+      Ast_helper.Exp.apply ~loc ext [Nolabel, body]
 end
 
 (** List and array comprehensions *)
diff --git a/ocaml/parsing/jane_syntax.mli b/ocaml/parsing/jane_syntax.mli
index ecd031c2418..822c5750cdc 100644
--- a/ocaml/parsing/jane_syntax.mli
+++ b/ocaml/parsing/jane_syntax.mli
@@ -140,12 +140,6 @@ module Mode_expr : sig
   (** The mode expression containing a single mode constant. *)
   val singleton : Const.t -> t
 
-  (** The string used to mark extensions as containing mode expressions. *)
-  val extension_name : string
-
-  (** The string used to mark attributes as containing mode expressions. *)
-  val attribute_name : string
-
   (** Extract the mode attribute (if any) from a list of attributes; also
       returns the rest of the attributes; Raises if multiple relevant attributes
       are found *)
@@ -165,13 +159,14 @@ module Mode_expr : sig
       attribute is found. *)
   val of_attrs : Parsetree.attributes -> t * Parsetree.attributes
 
-  (** Encodes a mode expression into a [payload]. If the expression is safe to
-      ignore (i.e. empty), returns [None]. *)
-  val payload_of : t -> Parsetree.payload option
+  (** Decode mode coercion and returns the mode and the body.
+      For example, return [Some (local, expr)] on input [local_ expr].
+      Returns [None] if the given expression is not a mode coercion. *)
+  val coerce_of_expr : Parsetree.expression -> (t * Parsetree.expression) option
 
-  (** Decode a mode expression from a [payload] whose location is [loc]. Raises
-      if the payload encodes an empty mode expression. *)
-  val of_payload : loc:Location.t -> Parsetree.payload -> t
+  (** Encode a mode coercion like [local_ expr] into an expression *)
+  val expr_of_coerce :
+    loc:Location.t -> t -> Parsetree.expression -> Parsetree.expression
 
   (** In some cases, a single mode expression appears twice in the parsetree;
       one of them needs to be made ghost to make our internal tools happy. *)
diff --git a/ocaml/parsing/parser.mly b/ocaml/parsing/parser.mly
index b06b93cb5db..b419a5ca16b 100644
--- a/ocaml/parsing/parser.mly
+++ b/ocaml/parsing/parser.mly
@@ -151,20 +151,10 @@ let mk_attr ~loc name payload =
   Attr.mk ~loc name payload
 
 let mkexp_with_modes ?(ghost=false) ~loc modes exp =
-  match Mode.payload_of modes with
-  | None -> exp
-  | Some payload ->
-      let loc =
-        if ghost then ghost_loc loc else make_loc loc
-      in
-      let ext =
-        (* Use the loc of the annotation as the loc of the extension node *)
-        Exp.extension ~loc:modes.loc (
-          Location.mknoloc Mode.extension_name,
-          payload
-        )
-      in
-      Exp.apply ~loc ext [Nolabel, exp]
+  let loc =
+    if ghost then ghost_loc loc else make_loc loc
+  in
+  Mode.expr_of_coerce ~loc modes exp
 
 (* For modes-related attributes, no need to call [register_attr] because they
 result from native syntax which is only parsed at proper places that are
diff --git a/ocaml/parsing/pprintast.ml b/ocaml/parsing/pprintast.ml
index 66b325a344e..cfdb8a9f78c 100644
--- a/ocaml/parsing/pprintast.ml
+++ b/ocaml/parsing/pprintast.ml
@@ -304,7 +304,7 @@ let tyvar_jkind_loc ~print_quote f (str,jkind) =
 let tyvar_loc f str = tyvar f str.txt
 let string_quot f x = pp f "`%s" x
 
-let maybe_modes m =
+let modes m =
   let l =
     List.map (fun m ->
       let {txt; _} = (m : Jane_syntax.Mode_expr.Const.t :> _ Location.loc) in
@@ -316,17 +316,12 @@ let maybe_modes m =
       | s -> Misc.fatal_errorf "Unrecognized mode %s - should not parse" s
     ) m.txt
   in
-  match l with
-  | [] -> None
-  | _ -> Some (String.concat " " l)
+  String.concat " " l
 
 let maybe_modes_of_attrs attrs =
-  let m, rest = Jane_syntax.Mode_expr.of_attrs attrs in
-  maybe_modes m, rest
+  let m, rest = Jane_syntax.Mode_expr.maybe_of_attrs attrs in
+  Option.map modes m, rest
 
-let maybe_modes_of_payload ~loc payload =
-  let m = Jane_syntax.Mode_expr.of_payload ~loc payload in
-  maybe_modes m
 
 let maybe_modes_type pty ctxt f c =
   let m, cattrs = maybe_modes_of_attrs c.ptyp_attributes in
@@ -793,6 +788,10 @@ and sugar_expr ctxt f e =
    expressions that aren't already self-delimiting.
 *)
 and expression ?(jane_syntax_parens = false) ctxt f x =
+  match Jane_syntax.Mode_expr.coerce_of_expr x with
+  | Some (m, body) ->
+    pp f "@[<2>%s %a@]" (modes m) (expression ctxt) body
+  | None ->
   match Jane_syntax.Expression.of_ast x with
   | Some (jexpr, attrs) ->
       jane_syntax_expr ctxt attrs f jexpr ~parens:jane_syntax_parens
@@ -835,13 +834,6 @@ and expression ?(jane_syntax_parens = false) ctxt f x =
         pp f "@[<2>%a in@;<1 -2>%a@]"
           (bindings reset_ctxt) (rf,l)
           (expression ctxt) e
-    | Pexp_apply
-      ({ pexp_desc = Pexp_extension({txt; _}, payload);
-         pexp_loc },
-       [Nolabel, sbody]) when txt = Jane_syntax.Mode_expr.extension_name ->
-        let modes = maybe_modes_of_payload ~loc:pexp_loc payload in
-        let modes = Option.get modes in
-        pp f "@[<2>%s %a@]" modes (expression ctxt) sbody
     | Pexp_apply
       ({ pexp_desc = Pexp_extension({txt = "extension.exclave"}, PStr []) },
        [Nolabel, sbody]) ->
@@ -1596,10 +1588,8 @@ and bindings ctxt f (rf,l) =
   let binding kwd rf f x =
     let modes, attrs = maybe_modes_of_attrs x.pvb_attributes in
     let x =
-      match modes, x.pvb_expr.pexp_desc with
-      | Some _ , Pexp_apply
-          ({ pexp_desc = Pexp_extension({txt; _}, _) },
-           [Nolabel, sbody]) when txt = Jane_syntax.Mode_expr.extension_name ->
+      match modes, Jane_syntax.Mode_expr.coerce_of_expr x.pvb_expr with
+      | Some _ , Some (_, sbody) ->
           {x with pvb_expr = sbody}
       | _ -> x
     in
diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml
index c01f4d952e0..9e5884b372c 100644
--- a/ocaml/typing/typecore.ml
+++ b/ocaml/typing/typecore.ml
@@ -3927,6 +3927,16 @@ end = struct
 
   let expr e =
     let rec loop e =
+      match Jane_syntax.Mode_expr.coerce_of_expr e with
+      | Some (modes, exp) ->
+          if List.exists
+            (fun m ->
+              let {txt; _} = (m : Jane_syntax.Mode_expr.Const.t :> _ Location.loc) in
+              txt = "local")
+            modes.txt
+          then Local e.pexp_loc
+          else loop exp
+      | None ->
       match Jane_syntax.Expression.of_ast e with
       | Some (jexp, _attrs) -> begin
           match jexp with
@@ -3939,18 +3949,6 @@ end = struct
         end
       | None      ->
       match e.pexp_desc with
-      | Pexp_apply
-          ({ pexp_desc = Pexp_extension(
-             {txt; _}, payload); pexp_loc },
-           [Nolabel, exp]) when txt = Jane_syntax.Mode_expr.extension_name ->
-          let modes = Jane_syntax.Mode_expr.of_payload ~loc:pexp_loc payload in
-          if List.exists
-            (fun m ->
-              let {txt; _} = (m : Jane_syntax.Mode_expr.Const.t :> _ Location.loc) in
-              txt = "local")
-            modes.txt
-          then Local e.pexp_loc
-          else loop exp
       | Pexp_assert { pexp_desc = Pexp_construct ({ txt = Lident "false" },
                                                   None) } ->
           Either
@@ -4165,6 +4163,9 @@ let type_approx_fun_one_param
 
 let rec type_approx env sexp ty_expected =
   let loc = sexp.pexp_loc in
+  match Jane_syntax.Mode_expr.coerce_of_expr sexp with
+  | Some (_, e) -> type_approx env e ty_expected
+  | None ->
   match Jane_syntax.Expression.of_ast sexp with
   | Some (jexp, _attrs) -> type_approx_aux_jane_syntax ~loc env jexp ty_expected
   | None      -> match sexp.pexp_desc with
@@ -4188,11 +4189,6 @@ let rec type_approx env sexp ty_expected =
       ignore
         (type_approx_constraint env (Pcoerce (sty1, sty2)) ty_expected ~loc
            : type_expr)
-  | Pexp_apply
-      ({ pexp_desc = Pexp_extension(
-         {txt; _}, _) },
-       [Nolabel, e]) when txt = Jane_syntax.Mode_expr.extension_name ->
-    type_approx env e ty_expected
   | Pexp_apply
       ({ pexp_desc = Pexp_extension({txt = "extension.escape"}, PStr []) },
        [Nolabel, e]) ->
@@ -4647,13 +4643,12 @@ let unify_exp ?sdesc_for_hint env exp expected_ty =
    the "expected type" provided by the context. *)
 
 let rec is_inferred sexp =
+  match Jane_syntax.Mode_expr.coerce_of_expr sexp with
+  | Some (_, exp) -> is_inferred exp
+  | None ->
   match Jane_syntax.Expression.of_ast sexp with
   | Some (jexp, _attrs) -> is_inferred_jane_syntax jexp
   | None      -> match sexp.pexp_desc with
-  | Pexp_apply
-      ({ pexp_desc = Pexp_extension({txt; _}, _) },
-       [Nolabel, exp]) when txt = Jane_syntax.Mode_expr.extension_name ->
-      is_inferred exp
   | Pexp_ident _ | Pexp_apply _ | Pexp_field _ | Pexp_constraint _
   | Pexp_coerce _ | Pexp_send _ | Pexp_new _ -> true
   | Pexp_sequence (_, e) | Pexp_open (_, e) -> is_inferred e
@@ -5080,6 +5075,33 @@ and type_expect_
     submode ~env ~loc:exp.exp_loc ~reason:Other mode expected_mode;
     exp
   in
+  match Jane_syntax.Mode_expr.coerce_of_expr sexp with
+  | Some (modes, sbody) ->
+      let expected_mode = List.fold_left (fun expected_mode mode ->
+          let mode = (mode : Jane_syntax.Mode_expr.Const.t :> _ Location.loc) in
+          match mode.txt with
+          | "unique" ->
+            let expected_mode = mode_unique expected_mode in
+            expect_mode_cross env ty_expected expected_mode
+          | "once" ->
+            let expected_mode = expect_mode_cross env ty_expected expected_mode in
+            submode ~loc ~env ~reason:Other
+              (Value.min_with_linearity Linearity.once) expected_mode;
+            mode_once expected_mode
+          | "local" ->
+            let expected_mode = expect_mode_cross env ty_expected expected_mode in
+            submode ~loc ~env ~reason:Other
+              (Value.min_with_regionality Regionality.local) expected_mode;
+            mode_strictly_local expected_mode
+          | s ->
+            Misc.fatal_errorf "Unrecognized mode %s - should not parse" s
+          ) expected_mode modes.txt
+      in
+      let exp =
+        type_expect ~recarg env expected_mode sbody ty_expected_explained
+      in
+      {exp with exp_loc = loc}
+  | None ->
   match Jane_syntax.Expression.of_ast sexp with
   | Some (jexp, attributes) ->
       type_expect_jane_syntax
@@ -5247,34 +5269,6 @@ and type_expect_
       Misc.fatal_error "non-Jane-Syntax [Pexp_fun] made it to typechecking"
   | Pexp_function _ ->
       Misc.fatal_error "non-Jane-Syntax [Pexp_function] made it to typechecking"
-  | Pexp_apply
-      ({ pexp_desc = Pexp_extension({txt; _}, payload); pexp_loc},
-        [Nolabel, sbody]) when txt = Jane_syntax.Mode_expr.extension_name ->
-      let modes = Jane_syntax.Mode_expr.of_payload ~loc:pexp_loc payload in
-      let expected_mode = List.fold_left (fun expected_mode mode ->
-          let mode = (mode : Jane_syntax.Mode_expr.Const.t :> _ Location.loc) in
-          match mode.txt with
-          | "unique" ->
-            let expected_mode = mode_unique expected_mode in
-            expect_mode_cross env ty_expected expected_mode
-          | "once" ->
-            let expected_mode = expect_mode_cross env ty_expected expected_mode in
-            submode ~loc ~env ~reason:Other
-              (Value.min_with_linearity Linearity.once) expected_mode;
-            mode_once expected_mode
-          | "local" ->
-            let expected_mode = expect_mode_cross env ty_expected expected_mode in
-            submode ~loc ~env ~reason:Other
-              (Value.min_with_regionality Regionality.local) expected_mode;
-            mode_strictly_local expected_mode
-          | s ->
-            Misc.fatal_errorf "Unrecognized mode %s - should not parse" s
-          ) expected_mode modes.txt
-      in
-      let exp =
-        type_expect ~recarg env expected_mode sbody ty_expected_explained
-      in
-      {exp with exp_loc = loc}
   | Pexp_apply
       ({ pexp_desc = Pexp_extension({txt = "extension.escape"}, PStr []) },
        [Nolabel, sbody]) ->
@@ -8221,17 +8215,15 @@ and type_newtype_expr
 and type_let ?check ?check_strict ?(force_toplevel = false)
     existential_context env rec_flag spat_sexp_list allow_modules =
   let rec sexp_is_fun sexp =
+    match Jane_syntax.Mode_expr.coerce_of_expr sexp with
+    | Some (_, e) -> sexp_is_fun e
+    | None ->
     match Jane_syntax.Expression.of_ast sexp with
     | Some (jexp, _attrs) -> jexp_is_fun jexp
     | None      -> match sexp.pexp_desc with
     | Pexp_fun _ | Pexp_function _ -> true
     | Pexp_constraint (e, _)
     | Pexp_newtype (_, e) -> sexp_is_fun e
-    | Pexp_apply
-      ({ pexp_desc = Pexp_extension({
-          txt}, _) },
-        [Nolabel, e]) when txt=Jane_syntax.Mode_expr.extension_name
-        -> sexp_is_fun e
     | _ -> false
   and jexp_is_fun : Jane_syntax.Expression.t -> _ = function
     | Jexp_comprehension _