        (1 'fstar-structure-face)
        (2 'font-lock-function-name-face)
        (fstar-find-id (fstar-subexpr-pre-matcher 2) nil
-                      (1 'font-lock-variable-name-face)))
+                  (1 'font-lock-variable-name-face)))
       ("\\_<\\(forall\\|exists\\) [^.]+\."
        (0 'font-lock-keyword-face)
        (fstar-find-id (fstar-subexpr-pre-matcher 1) nil
-                      (1 'font-lock-variable-name-face)))
+                  (1 'font-lock-variable-name-face)))
       (fstar-find-fun-and-args
        (1 'font-lock-keyword-face)
        (fstar-find-id (fstar-subexpr-pre-matcher 1) nil
-                      (1 'font-lock-variable-name-face)))
+                  (1 'font-lock-variable-name-face)))
       (,(concat "\\_<\\(val\\) +\\(" id "\\) *:")
        (1 'fstar-structure-face)
        (2 'font-lock-function-name-face))

  (let ((beg (fstar-subp-unprocessed-beginning))
        (end (fstar-skip-spaces-backwards-from end)))
    (fstar-assert (cl-loop for overlay in (overlays-in beg end)
                           never (fstar-subp-tracking-overlay-p overlay)))
    (if (<= end beg)
        (unless no-error
          (user-error "Nothing more to process!"))

(defun fstar-subp-jump-to-issue (issue)
  "Jump to ISSUE in current buffer."
  (goto-char (fstar-issue-offset (fstar-issue-line-from issue)
                             (fstar-issue-col-from issue))))

(defun fstar-subp-handle-failure (response overlay)
  "Process failure RESPONSE from F* subprocess for OVERLAY."
