   '(#("F✪" 1 2 (composition ((1 . "\t✪\t"))))
     ("Navigation"
      ["Visit interface file"
-      fstar-visit-interface-or-implementation :visible (not (fstar--visiting-interface-p))]
+      fstar--visit-interface :visible (not (fstar--visiting-interface-p))]
      ["Visit implementation file"
-      fstar-visit-interface-or-implementation :visible (fstar--visiting-interface-p)]
+      fstar--visit-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]
+     ["Hide/show lines annotated with (**)"
+      fstar-selective-display-mode]
      ["Close all temporary F* windows"
       fstar-quit-windows])
     (#("F✪ subprocess" 1 2 (composition ((1 . "\t✪\t"))))

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

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

      fstar-subp-advance-or-retract-to-point-lax]
     ["Typecheck whole buffer (lax)"
      fstar-subp-advance-to-point-max-lax]
     ["Reload dependencies and re-typecheck up to point"
      fstar-subp-reload-to-point]
     ["Show current value of all F* options"
      fstar-list-options (fstar-subp-available-p)])
    ("Interactive queries"
