                        (if (string-match-p "\n" term) "\n" " ")
                        (fstar--reduction-arrow "↓" "βδιζ")
                        (if (string-match-p "\n" response) "\n" " ")
-                       (fstar-highlight-string response)))
+                       (fstar-highlight-string (fstar--unparens response))))
     (`failure (message "Evaluation of [%s] failed: %s"
                        (fstar-highlight-string term)
                        (string-trim response)))))

      (setq-local fstar-enabled-modules '(font-lock prettify))
      (fstar-mode))))

(defun fstar-highlight-string (str)
  "Highlight STR as F* code."
  (fstar--init-scratchpad)
  (with-current-buffer fstar--scratchpad
    (erase-buffer)
    (insert str)
    (if (fboundp 'font-lock-ensure)
        (font-lock-ensure)
      (with-no-warnings (font-lock-fontify-buffer)))

When HELP-KBD is non nil and info includes a docstring, suggest
to use HELP-KBD to show documentation."
  (concat
   (let* ((type (fstar--unparens (fstar-lookup-result-type info))))
     (fstar-highlight-string (format "%s: %s" (fstar-lookup-result-name info) type)))
   (if (and help-kbd (fstar-lookup-result-doc info))
       (substitute-command-keys (format " (%s for help)" help-kbd))
     "")))
