          (coercions   (-filter 'lean-info-coercion-p   info-list))
          (identifiers (-filter 'lean-info-identifier-p info-list))
          (symbols     (-filter 'lean-info-symbol-p     info-list))
-         (extras      (-filter 'lean-info-extra-p      info-list)))
+         (extras      (-filter 'lean-info-extra-p      info-list))
+         (proofstates (-filter 'lean-info-proofstate-p info-list)))
     (make-lean-info-record :type       types
                            :overload   overloads
                            :synth      synths

    (COERCION   (lean-info-coercion-pos   info))
    (IDENTIFIER (lean-info-identifier-pos info))
    (SYMBOL     (lean-info-symbol-pos     info))
    (EXTRA      (lean-info-extra-pos     info))))
(defun lean-info-line-number (info)
  (cl-first (lean-info-pos info)))
(defun lean-info-column (info)

                          (lean-info-coercion-parse string-seq)
                          (lean-info-identifier-parse string-seq)
                          (lean-info-symbol-parse string-seq)
                          (lean-info-extra-parse string-seq)
                          (lean-info-proofstate-parse string-seq)))
             when result
             collect result)))

