     ("Proof state"
      ["Typecheck next definition"
       fstar-subp-advance-next]
+     ["Typecheck next definition (lax)"
+      fstar-subp-advance-next-lax]
      ["Retract last definition"
       fstar-subp-retract-last]
      ["Typecheck everything up to point"

  '(#("F✪" 1 2 (composition ((1 . "\t✪\t"))))
    ("Navigation"
     ["Visit interface file"
      fstar-visit-interface-or-implementation :visible (not (fstar--visiting-interface-p))]
     ["Visit implementation file"
      fstar-visit-interface-or-implementation :visible (fstar--visiting-interface-p)]
     ["Visit a dependency of this file"
      fstar-visit-dependency :visible (fstar-subp-available-p)]
     ["Show an outline of this file"
      fstar-outline]
     ["Close all temporary F* windows"
      fstar-quit-windows])
    (#("F✪ subprocess" 1 2 (composition ((1 . "\t✪\t"))))

(defun fstar-copy-help-at-point ()
  "Copy contents of help-echo at point."
  (interactive)
  (-if-let* ((help (help-at-pt-string)))
      (kill-new help)
    (user-error "No error message here")))

(defun fstar--check-help-at-point ()
  "Check if help is available at point."
  (car (get-char-property-and-overlay (point) 'help-echo)))

;;; Indentation

