       ,@fstar-syntax-additional)
      nil nil))
   (font-lock-set-defaults)
-  (add-to-invisibility-spec 'fstar-subscripts)
+  (remove-from-invisibility-spec nil) ;; Make sure invisibility spec is a list
   (add-to-list 'font-lock-extra-managed-props 'display)
   (add-to-list 'font-lock-extra-managed-props 'invisible)
   (font-lock-mode))

  (goto-char (match-end rewind-to))
  (match-end (or bound-to 0)))

(defconst fstar-syntax-id-unwrapped (rx (? (or "#" "'"))
                                   (any "a-z_") (* (or wordchar (syntax symbol)))
                                   (? "." (* (or wordchar (syntax symbol))))))

(defconst fstar-syntax-id (concat "\\_<" fstar-syntax-id-unwrapped "\\_>"))

(defconst fstar-syntax-cs (rx symbol-start
                         (any "A-Z") (* (or wordchar (syntax symbol)))
                         symbol-end))

(defconst fstar-syntax-universe-id-unwrapped (rx "'u" (* (or wordchar (syntax symbol)))))


       (0 'fstar-dereference-face))
      ("[{}]"
       (0 'fstar-braces-face append))
      (,fstar-syntax-id-with-subscript
       ;; (1 '(face fstar-subscript-underscore-face invisible 'fstar-subscripts) prepend)
       (1 '(face fstar-subscript-face display (raise -0.3)) append)))))

(defconst fstar--scratchpad-name " *%s-scratchpad*")

