Source file error_messages.ml

(* This file was auto-generated based on "./error_messages.txt". *)

(* Please note that the function [message] can raise [Not_found]. *)

let message =
  fun s ->
    match s with
    | 67 | 92 | 65 | 77 | 98 ->
        "Anonymous predicate declaration expected.\nExamples:\n(pred)\n(pred tm -> ty)\n(func tm -> ty)\n(func)\n.\nExamples (legacy syntax):\n(pred i:ty, o:ty)\n(func i:ty, o:ty)\n"
    | 559 ->
        "You cannot ascribe a type on the head predicate.\n"
    | 307 | 306 | 144 | 145 | 146 | 147 | 219 | 313 | 314 | 62 ->
        "Illformed type cast.\nExamples:\n(x : ty)\npi x : ty \\ t\nlam (x : ty \\ t)\n"
    | 4 | 60 | 103 | 104 | 107 | 111 | 114 | 115 | 119 | 120 | 517 | 518 | 542 | 543 ->
        "Illformed pi or sigma.\nExamples:\npi X\\ p X\npi X Y Z\\ p X, q Y Z\nsigma X\\ p X\nsigma X Y Z\\ p X, q Y Z\n"
    | 496 | 424 | 425 | 427 ->
        "Mixfix declaration expected (Teyjus compatibility, ignored by Elpi).\nExamples:\ninfixl and 30.\ninfixr ++ 45.\nprefix - 12.\n"
    | 366 | 367 ->
        "Useonly directive expected (Teyjus compatibility, ignored by Elpi).\nExamples:\nuseonly foo.\nuseonly foo, bar.\n"
    | 370 | 473 ->
        "Closed directive expected (Teyjus compatibility, ignored by Elpi).\nExamples:\nclosed foo.\nclosed foo, bar.\n"
    | 409 ->
        "Local kind declaration expected (Teyjus compatibility, ignored by Elpi).\nExamples:\nlocalkind foo.\nlocalkind foo, bar.\n"
    | 380 | 403 | 494 ->
        "Module/Signature header expected (Teyjus compatibility, ignored by Elpi).\nExamples:\nmodule foo.\nsig bar.\n"
    | 431 | 430 ->
        "Definition export directive expected (Teyjus compatibility, ignored by Elpi).\nExamples:\nexportdef foo, bar.\nexportdef foo  (term -> term).\n"
    | 550 | 551 | 87 | 68 | 552 | 85 | 94 | 95 | 554 | 555 | 89 | 91 | 482 | 556 ->
        "Predicate declaration expected.\nExamples:\nfunc append list A, list A -> list A.\npred appendR -> list A, list A, list A.\nfunc map list A, (func A -> B) -> list B.\nfunc if (pred), (func), (func).\nfunc intdiv int, int -> int.. .\n.\nExamples (legacy syntax):\npred append i:list A, i:list A, o:list A.\npred append i:list A  i:list A  o:list A.    % optional comma\npred map i:list A, i:(pred i:A, o:B), o:list B.\n"
    | 429 ->
        "External declaration expected. Examples:\nbuiltin func foo term -> ty.\nbuiltin type foo term -> prop. % legacy\nbuiltin pred foo i:term. % legacy\nexternal type foo term -> prop. % legacy\nexternal pred foo i:term. % legacy\n"
    | 434 | 439 | 436 | 437 ->
        "Constraint Handling Rule header expected. Examples:\nconstraint foo {\nconstraint foo bar {\n"
    | 417 | 369 | 419 | 420 | 418 ->
        "Kind declaration expected. Examples:\ndata term.\ndata list A.\nkind term  type. % legacy\nkind list  type -> type. % legacy\n"
    | 411 | 412 | 414 ->
        "Local symbol declaration expected. Examples:\nlocal foo.\nlocal foo, bar.\nlocal foo (term -> term).\n"
    | 400 | 401 ->
        "Namespace header expected. Examples:\nnamespace foo {\n"
    | 382 | 384 | 386 | 387 | 388 | 389 | 390 | 392 | 393 | 394 ->
        "Shortening directive expected. Examples:\nshorten foo.{ bar }.\nshorten foo.{ bar , baz }.\nshorten foo.{ bar , baz. { qux , dim } }.\n"
    | 372 | 373 | 108 | 378 | 477 | 374 | 375 ->
        "Type abbreviation expected. Examples:\ntypeabbrev context (list term).\ntypeabbrev (two A) (pair A A).\n"
    | 129 | 118 | 293 | 282 | 218 | 224 ->
        "List expected. Examples:\n[ this , that | More ].\n[ Head | Tail ].\n"
    | 631 | 636 | 10 | 635 ->
        "Malformed accumulate. Examples:\naccumulate foo.\naccumulate foo, bar.\naccumulate \"foo/bar\".\n"
    | 521 | 520 | 502 | 527 | 531 | 532 | 536 | 537 | 539 | 524 | 525 | 522 ->
        "Malformed CHR rule declaration. Examples:\nrule (match this).\nrule (match this) \\ (remove that).\nrule (match this) \\ (remove that) | (only when).\nrule (match this) \\ (remove that) | (only when) <=> (add this).\nrule (E :> Ctx ?- match this goal).\n"
    | 505 | 506 | 479 | 512 | 511 | 509 | 508 ->
        "Malformed type declaration. Examples:\nsymb app : tm -> tm -> tm.\nsymbol app : tm -> tm -> tm.\ntype app tm -> tm -> tm. % legacy\ntype lam (tm -> tm) -> tm. % legacy\ntype (++) list A -> list A -> list A. % legacy\n"
    | 470 | 471 ->
        "Malformed 'external' attribute. Example:\n:builtin pred\n:external pred % legacy\n"
    | 465 | 467 | 446 ->
        "Malformed grafting attribute. Example:\n:before \"some name\"\n:after \"some other name\"\n:replace \"some other name\"\n:remove \"some other name\"\n"
    | 461 ->
        "Malformed 'if' attribute. Example:\n:if \"VARIABLE\"\n"
    | 451 | 452 | 459 ->
        "Malformed 'index' attribute. Example:\n:index(1 _ 1)\n"
    | 449 ->
        "Malformed 'name' attribute. Example:\n:name \"name of the clause\"\n"
    | 442 | 444 | 456 ->
        "Attribute expected. Examples:\n:name \"some name\"\n:index (_ 1 1)\n"
    | 405 | 406 | 407 | 408 ->
        "Malformed macro declaration. Example:\nmacro @foo X Y :- p X => q Y.\n"
    | 361 ->
        "Prefix symbol expected.\n"
    | 358 ->
        "Postifx symbol expected.\n"
    | 324 ->
        "Infix symbol expected.\n"
    | 49 ->
        "Right parenthesis ')' expected.\n"
    | 0 | 112 | 113 ->
        "Term expected.\n"
    | 46 ->
        "Malformed as binding. Examples:\n(f X as Y)\n([_,_|_] as Y)\n"
    | 303 ->
        "Mixfix symbol or term expected.\n"
    | 563 | 565 | 585 | 587 | 567 | 589 | 592 | 594 | 596 | 598 | 600 | 602 | 604 | 606 | 608 | 569 | 571 | 573 | 583 | 612 | 614 | 620 | 622 | 626 | 628 | 545 | 546 | 229 | 251 | 233 | 263 | 231 | 237 | 247 | 253 | 265 | 235 | 239 | 267 | 271 | 243 | 269 | 273 | 241 | 245 | 261 | 277 | 227 | 301 | 132 | 310 | 320 | 213 | 167 | 183 | 191 | 195 | 163 | 175 | 187 | 157 | 161 | 189 | 193 | 165 | 125 | 128 | 149 | 173 | 153 | 135 | 143 | 141 | 185 | 151 | 159 | 215 | 169 | 199 | 203 | 207 | 209 | 281 | 285 | 290 | 294 | 549 | 304 | 312 | 547 | 171 | 177 | 179 | 181 | 197 | 249 | 255 | 257 | 259 | 275 | 283 | 575 | 577 | 579 | 581 | 610 | 205 | 624 | 318 | 316 | 101 | 105 | 222 | 100 | 560 | 61 | 291 | 130 | 216 | 220 | 221 | 211 | 287 | 618 | 214 | 106 | 70 | 73 | 74 | 75 | 81 | 513 ->
        "Term expected, got keyword.\n"
    | 562 ->
        "Unexpected keyword.\n"
    | 364 | 498 ->
        "Unexpected start of program clause or declaration.\n"
    | 172 | 160 | 192 | 188 | 164 | 194 | 162 | 158 | 152 | 184 | 150 | 182 | 582 | 591 | 584 | 250 | 586 | 566 | 588 | 593 | 595 | 597 | 599 | 601 | 603 | 605 | 607 | 240 | 272 | 242 | 270 | 266 | 238 | 234 | 264 | 236 | 230 | 262 | 232 | 156 | 186 | 619 | 568 | 570 | 572 | 611 | 613 | 621 | 625 | 627 | 564 | 268 | 252 | 246 | 148 | 168 | 174 | 190 | 166 | 198 | 202 | 206 | 208 | 212 | 228 | 244 | 260 | 276 | 280 | 284 | 289 | 309 | 296 | 223 | 170 | 176 | 178 | 180 | 196 | 248 | 254 | 256 | 258 | 274 | 574 | 576 | 578 | 580 | 609 | 204 | 623 | 210 | 286 | 617 | 71 | 616 | 615 | 279 | 278 | 201 | 200 ->
        "This infix operator expects a right hand side.\n"
    | 131 | 548 | 124 ->
        "This prefix operator expects an argument.\n"
    | _ ->
        raise Not_found