            (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."

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

(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

