         (let ((fstar-subp--lax lax))
           (fstar-subp-enqueue-until (goto-char target)))
       (user-error "Cannot find a full block to process"))))
+
+(defun fstar-subp-advance-next-lax ()
+  "Process next block in LAX mode."
+  (interactive)
+  (fstar-subp-advance-next t))
 
 (defun fstar-subp-pop-overlay (overlay)
   "Remove overlay OVERLAY and issue the corresponding `pop' command."

      fstar-literate-fst2rst])
    ("Utilities"
     ["Copy error message at point"
      fstar-copy-help-at-point])
    ["Configuration" fstar-customize]))

;;; Main mode

           (other-ext (cdr (assoc ext fstar--interface-implementation-ext-alist))))
      (let ((auto-mode-alist '(("" . fstar-mode))))
        (find-file (concat fname "." (or other-ext ext)))))))

(defalias 'fstar--visit-interface #'fstar-visit-interface-or-implementation)
(defalias 'fstar--visit-implementation #'fstar-visit-interface-or-implementation)

(defun fstar--visiting-interface-p ()
  "Check whether current buffer is an interface file."
