hol4-grammar.json

{
  "name": "HOL4 Proof script",
  "scopeName": "source.hol4",
  "fileTypes": [".sml"],
  "repository": {
    "comments": {
      "name": "comment.block.hol",
      "begin": "\\(\\*",
      "end": "\\*\\)",
      "patterns": [{ "include": "#comments" }]
    },
    "escaped-chars": {
      "patterns": [
        {
          "name": "constant.character.escape.ml",
          "match": "\\\\([\\t-\\r ]*\\\\|[abtnvfr\\\"]|\\^[@-_]|[0-2][0-9]{2}|u[0-9a-fA-F]{4})"
        },
        {
          "name": "constant.character.escape.ml",
          "begin": "\\\\[\\t-\\r ]",
          "end": "\\\\"
        }
      ]
    },
    "identifier": {
      "name": "entity.name.identifier.ml",
      "match": "[a-zA-Z][a-zA-Z0-9_']*"
    },
    "ml-string": {
      "name": "string.quoted.double.ml",
      "begin": "\"",
      "end": "\"",
      "patterns": [{ "include": "#escaped-chars" }]
    },
    "ml-char": {
      "name": "string.quoted.char.ml",
      "begin": "#\"",
      "end": "\"",
      "patterns": [{ "include": "#escaped-chars" }]
    },
    "number": {
      "name": "constant.numeric.integer.ml",
      "match": "(?<![+-\\.eE])\\b\\d+\\b(?!\\.)"
    },
    "number-float": {
      "name": "constant.numeric.float.ml",
      "match": "\\b\\d+\\.\\d*([eE][+-]?\\d+)?\\b"
    },
    "ml-keyword": {
      "name": "keyword.other.reserved.ml",
      "match": "\\b(let|local|open|in|end|val|fun|and|struct|sig|infix|infixl|structure|signature|datatype|exception|type)\\b"
    },
    "ml-control": {
      "name": "keyword.control.ml",
      "match": "\\b(if|then|else|raise|handle|case|of|while|before)\\b"
    },
    "ml-operator": {
      "name": "keyword.operator.ml",
      "match": "([\\<\\>=\\_\\+\\-/\\*]|=\\>|\\>=|\\<=|\\^|\\||:|:=|::|!|;)"
    },
    "term-quote-ticks": {
      "begin": "(?<!`)(`+)",
      "end": "(\\1)(?!`)",
      "beginCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "endCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "term-quote-unicode-single": {
      "begin": "‘",
      "end": "’",
      "beginCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "endCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "term-quote-unicode-double": {
      "begin": "“",
      "end": "”",
      "beginCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "endCaptures": {
        "0": { "name": "string.quoted.termquote.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "hol-binder": {
      "match": "([∀λ∃\\!\\?]|∃\\!|\\?\\!|some)\\s*([^\\.]+)\\s*(\\.)",
      "captures": {
        "1": { "name": "keyword.other.binder.hol" },
        "2": { "name": "variable.binder.hol" },
        "3": { "name": "keyword.other.binder-end.hol" }
      }
    },
    "hol-connective": {
      "match": "(/\\\\|\\\\/|==>|UNION|DIFF|[¬~=∧≠⇒:\\<>$\\+\\*\\-/\\|])",
      "name": "keyword.operator.connective.hol"
    },
    "hol-special": {
      "match": "\\b(UNIV|IMAGE|FST|SND|LENGTH|MAP|LIST_REL|ALOOKUP|FLOOKUP|OPTREL|REVERSE)\\b",
      "name": "entity.name.function.hol"
    },
    "hol-keywords": {
      "match": "\\b(case|of|if|then|else|let|in)\\b",
      "name": "keyword.control.hol"
    },
    "hol-constructor": {
      "match": "\\b[A-Z][\\w_']*\\b",
      "name": "entity.name.type.constructor.hol"
    },
    "hol-constants": {
      "match": "\\b(T|F|EMPTY)\\b",
      "name": "constant.language.various.hol"
    },
    "hol-term": {
      "patterns": [
        { "include": "#comments" },
        { "include": "#ml-string" },
        { "include": "#ml-char" },
        { "include": "#number" },
        { "include": "#number-float" },
        { "include": "#hol-binder" },
        { "include": "#hol-connective" },
        { "include": "#hol-special" },
        { "include": "#hol-constructor" },
        { "include": "#hol-keywords" },
        { "include": "#hol-constants" }
      ]
    },
    "non-standard-ml": {
      "patterns": [
        { "include": "#comments" },
        { "include": "#ml-string" },
        { "include": "#ml-char" },
        { "include": "#number" },
        { "include": "#number-float" },
        { "include": "#ml-keyword" },
        { "include": "#ml-control" },
        { "include": "#ml-operator" },
        { "include": "#term-quote-ticks" },
        { "include": "#term-quote-unicode-single" },
        { "include": "#term-quote-unicode-double" },
        { "include": "#tactical" },
        { "include": "#cheat" },
        { "include": "#tactics" }
      ]
    },
    "rule-label": {
      "match": "^(\\[)([~\\w_']*)(:\\])",
      "captures": {
        "2": { "name": "entity.name.tag.rule-label.hol markup.underline" }
      }
    },
    "datatype": {
      "begin": "^(Datatype):",
      "end": "^End",
      "beginCaptures": {
        "1": { "name": "keyword.other.datatype.hol" }
      },
      "endCaptures": {
        "0": { "name": "keyword.other.datatype-end.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "definition": {
      "begin": "^(Definition)\\s+([\\w_']*)(\\[([^\\]]*)\\])?(:)",
      "end": "^(Termination|End)",
      "beginCaptures": {
        "1": { "name": "keyword.other.definition.hol" },
        "2": { "name": "entity.name.function.theorem.hol" },
        "4": { "name": "entity.name.tag.attribute.hol" }
      },
      "endCaptures": {
        "0": { "name": "keyword.other.def-end.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "termination": {
      "begin": "(?<=^Termination)",
      "end": "^End",
      "endCaptures": {
        "0": { "name": "keyword.other.qed.hol" }
      },
      "patterns": [{ "include": "#non-standard-ml" }]
    },
    "inductive": {
      "begin": "^((?:Co)?Inductive)\\s+([\\w_']*)(:)",
      "end": "^End",
      "beginCaptures": {
        "1": { "name": "keyword.other.inductive.hol" },
        "2": { "name": "entity.name.function.relation.hol" }
      },
      "endCaptures": {
        "0": { "name": "keyword.other.def-end.hol" }
      },
      "patterns": [{ "include": "#hol-term" }, { "include": "#rule-label" }]
    },
    "theorem-assign": {
      "match": "^(Theorem|Triviality|Type|Overload)\\s+([\\w_']*)(\\[([^\\]]*)\\])?\\s*(=)",
      "captures": {
        "1": { "name": "keyword.other.theorem.hol" },
        "2": { "name": "entity.name.theorem.hol" },
        "4": { "name": "entity.name.tag.attribute.hol" }
      }
    },
    "theorem-proof": {
      "begin": "^(Theorem|Triviality)\\s+([\\w_']*)(\\[([^\\]]*)\\])?(:)",
      "end": "^Proof",
      "beginCaptures": {
        "1": { "name": "keyword.other.theorem.hol" },
        "2": { "name": "entity.name.theorem.hol" },
        "4": { "name": "entity.name.tag.attribute.hol" }
      },
      "endCaptures": {
        "0": { "name": "keyword.other.proof.hol" }
      },
      "patterns": [{ "include": "#hol-term" }]
    },
    "proof-qed": {
      "begin": "(?<=^Proof)",
      "end": "^QED",
      "endCaptures": {
        "0": { "name": "keyword.other.qed.hol" }
      },
      "patterns": [{ "include": "#non-standard-ml" }]
    },
    "tactical": {
      "name": "keyword.control.tactical.ml",
      "match": "\\b(\\\\\\\\|THEN[1]?|>>|>-|>~|by|suffices_by)\\b"
    },
    "tactics": {
      "name": "support.function.tactic.ml",
      "match": "\\b(ho_match_mp_tac|((asm|full)_)?simp(_tac)?|rw|fs|rfs|gs|gvs|sg|gns|imp_res_tac|res_tac|metis_tac|rpt|Cases|Cases_on|Induct|Induct_on|recInduct|pop_assum|mp_tac|drule(_(then|at|at_then))?|irule(_at)?|mp_then|strip_tac|(strip_)?assume_tac|disch_then|disch_tac|qx_choose_then|(qx_)?gen_tac|rewrite_tac|wf_rel_tac|(PURE_)?(TOP_)?CASE_TAC|CONV_TAC)\\b"
    },
    "cheat": {
      "name": "invalid.tactic.cheat markup.underline",
      "match": "\\bcheat\\b"
    }
  },
  "patterns": [
    { "include": "#theorem-assign" },
    { "include": "#theorem-proof" },
    { "include": "#proof-qed" },
    { "include": "#definition" },
    { "include": "#termination" },
    { "include": "#datatype" },
    { "include": "#inductive" },
    { "include": "#non-standard-ml" }
  ]
}