        :name name
        :def-start (cons (string-to-number start-r) (string-to-number start-c))
        :def-end (cons (string-to-number end-r) (string-to-number end-c))
-       :type type
-       :doc doc))))
+       :type (and type (fstar--unparens type))
+       :doc (fstar--string-trim doc)))))
 
 (defun fstar-subp-json--parse-info (json)
   "Parse info structure from JSON."

     :name .name
     :def-start (cons (elt .defined-at.beg 0) (elt .defined-at.beg 1))
     :def-end (cons (elt .defined-at.end 0) (elt .defined-at.end 1))
     :type .type
     :doc .documentation)))

(defun fstar-subp--pos-check-wrapper (pos continuation)
  "Construct a continuation that runs CONTINUATION if point is POS.

      (with-no-warnings (font-lock-fontify-buffer)))
    (buffer-string)))

(defun fstar--highlight-docstring-region (beg end)
  "Highlight BEG..END as an F* docstring."
  (let ((inhibit-read-only t))
    (goto-char beg)
    (while (search-forward "[" end t)
      (let* ((beg (point))
             (end (ignore-errors (backward-char) (forward-sexp) (1- (point))))
             (str (and end (buffer-substring-no-properties beg end))))
        (if (null str)
            (goto-char end)
          (goto-char beg)
          (delete-region beg end)
          (insert (fstar-highlight-string str)))))))
