          (type (fstar-lookup-result-type info))
          (def (fstar-lookup-result-def info))
          (name (fstar-lookup-result-name info))
-         (def-loc (fstar-lookup-result-def-loc-str info))
-         (title (fstar--propertize-title name))
-         (subtitle (propertize def-loc 'face '(:height 0.9))))
+         (def-loc (fstar-lookup-result-def-loc info))
+         (def-loc-str (fstar-lookup-result-def-loc-str info))
+         (title (fstar--propertize-title name)))
     (save-excursion
-      (insert title "\n" subtitle)
+      (insert title "\n")
+      (fstar--insert-link def-loc-str def-loc '(:height 0.9 :inherit link))
       (fstar--doc-buffer-populate-1 "Type"
         (and type (fstar-highlight-string type)))
       (fstar--doc-buffer-populate-1 "Definition"


(defun fstar--visit-link-target (marker)
  "Jump to file indicated by entry at MARKER."
  (find-file (get-text-property (marker-position marker)
                                'fstar--target (marker-buffer marker))))

(defun fstar--lispify-null (x)
  "Return X, or nil if X is `:json-null'."

  (when (fboundp 'xref-push-marker-stack)
    (xref-push-marker-stack)))

(defun fstar--navigate-to (fname line col &optional display-action)
  "Navigate to LINE, COL of FNAME.
DISPLAY-ACTION determines where the resulting buffer is
shown (nil for same window, `window' for a new window, and
