 
 (defun fstar-subp-company--async-location (candidate callback)
   "Find location of CANDIDATE and pass it to CALLBACK."
-  (fstar-subp-company--async-lookup
-   candidate (apply-partially #'fstar-subp-company--location-continuation callback)))
+  (fstar-subp-company--async-lookup candidate '(defined-at)
+    (apply-partially #'fstar-subp-company--location-continuation callback)))
 
 (defun fstar-subp-company-candidates (prefix)
   "Compute candidates for PREFIX.

    (if (string= ns "") candidate
      (concat ns "." candidate))))

(defun fstar-subp-company--async-lookup (candidate continuation)
  "Pass info about CANDIDATE to CONTINUATION.
If F* is busy, call CONTINUATION directly with symbol `busy'."
  (if (fstar-subp-available-p)
      (fstar-subp--query
       (fstar-subp--positionless-lookup-query (fstar-subp-company--candidate-fqn candidate))
       (fstar-subp--lookup-wrapper continuation nil))
    (funcall continuation 'busy)))


  (interactive)
  (fstar-subp--ensure-available #'user-error 'lookup)
  (when (= (quick-peek-hide) 0)
    (fstar-subp--query (fstar-subp--positional-lookup-query (point)
                    '(type documentation))
                  (fstar-subp--lookup-wrapper
                   #'fstar--quick-peek-continuation (point)))))

;;;; Company

