     (goto-char (point-max))
     (let* ((raw (apply #'format format args))
            (head (cdr (assq kind '((info . ";;; ") (in . ">>> ") (out . ""))))))
+      (fstar-assert head)
       (insert (replace-regexp-in-string "^" head raw) "\n"))))
 
 (defmacro fstar-log (kind format &rest args)

(defun fstar-subp--completion-query (prefix)
  "Prepare a #completions query from PREFIX."
  (fstar-assert (not (string-match-p " " prefix)))
  (format "#completions %s #\n" prefix))

(defun fstar-subp-company--parse-candidate (line)
  "Extract a candidate from LINE."

(defun fstar-subp--positional-info-query (pos)
  "Prepare a header for an info query at POS."
  (if (fstar--has-feature 'info-includes-symbol)
      (format "#info %s <input> %d %d"
              (or (fstar--fqn-at-point pos) "")
              (line-number-at-pos pos)
              (fstar-subp--column-number-at-pos pos))
    (format "#info <input> %d %d"
            (line-number-at-pos pos)
            (fstar-subp--column-number-at-pos pos))))

