      (save-match-data
        (funcall
         callback
-        (if (fstar--has-feature 'json-subp)
-            (mapcar (apply-partially
-                     #'fstar-subp-company-json--make-candidate context)
-                    response)
-          (delq nil
-                (mapcar (apply-partially
-                         #'fstar-subp-company-legacy--make-candidate context)
-                        (split-string response "\n")))))))))
+        (append
+         additional-completions
+         (if (fstar--has-feature 'json-subp)
+             (mapcar (apply-partially
+                      #'fstar-subp-company-json--make-candidate context)
+                     response)
+           (delq nil
+                 (mapcar (apply-partially
+                          #'fstar-subp-company-legacy--make-candidate context)
+                         (split-string response "\n"))))))))))
 
 (defconst fstar-subp-company--ns-mod-annots
   '("mod" "ns" "+mod" "+ns" "(mod)" "(ns)" "-mod" "-ns"))

       (fstar-subp-company--prefix))
      (`candidates
       (fstar-subp-company-candidates arg fstar-subp-company--completion-context))
      (`meta
       `(:async . ,(apply-partially #'fstar-subp-company--async-meta arg)))
      (`doc-buffer


(defconst fstar-syntax-constants-re
  (regexp-opt fstar-syntax-constants 'symbols))

(defconst fstar-syntax-reserved-exact-re
  (format "\\`%s\\'"
          (regexp-opt
           (append `("Type")
                   fstar-syntax-headers
                   fstar-syntax-fsdoc-keywords
                   fstar-syntax-preprocessor
                   fstar-syntax-qualifiers
                   fstar-syntax-block-delims
                   fstar-syntax-keywords
                   fstar-syntax-builtins
                   fstar-syntax-constants))))

(defface fstar-structure-face
  '((((background light)) (:bold t))
