                           (any "A-Z") (* (or wordchar (syntax symbol)))
                           symbol-end))
 
-(defun fstar-find-id-with-type (bound)
-  (fstar-find-id-maybe-type bound t))
-
 (defun fstar-find-id-maybe-type (bound must-find-type)
+  "Find var:type pair between point and BOUND.
+
+If MUST-FIND-TYPE is nil, the :type part is not necessary."
   (let ((found t) (rejected t))
     (while (and found rejected)
       (setq found (re-search-forward (concat "\\(" fstar-syntax-id "\\) *\\(:\\)?") bound t))

    found))

(defun fstar-find-subtype-annotation (bound)
  (let ((found))
    (while (and (not found) (re-search-forward "{[^:]" bound t))
      (setq found

  "Used for computing arguments to pass to F* in interactive mode.

If set to a string, that string is considered to be a single
argument to pass to F*.  If set to a list of strings, each element
of the list is passed to F*.  If set to a function, that function
is called in the current buffer without arguments, and expected
to produce a string or a list of strings.

