 (defun lean-info-overload-parse (seq)
   (when (lean-info-overload-p seq)
     (let ((header (lean-info-overload-parse-header (car seq)))
-        (body (-split-on "--" (cdr seq))))
-    `(OVERLOAD ,header ,body))))
+          (body (-split-on "--" (cdr seq))))
+      `(OVERLOAD ,header ,body))))
 
 ;; -- Test
 (cl-assert (lean-info-overload-p 'OVERLOAD))

                "→ decidable (eq zero (succ m'))")))
            '(121 2)))
(cl-assert (equal (lean-info-overload-names (lean-info-overload-parse
                                        '("-- OVERLOAD|121|2"
                                          "not (eq zero (succ m'))"
                                          "→ decidable (eq zero (succ m'))"
                                          "--"
                                          "not (eq one (succ m'))"
                                          "→ decidable (eq zero (succ m'))"
                                          "--"
                                          "not (eq two (succ m'))"
                                          "→ decidable (eq zero (succ m'))")))
                  '("not (eq zero (succ m'))\n→ decidable (eq zero (succ m'))"
                    "not (eq one (succ m'))\n→ decidable (eq zero (succ m'))"
                    "not (eq two (succ m'))\n→ decidable (eq zero (succ m'))")))

(cl-assert (equal
            (lean-info-coercion-pos
             (lean-info-coercion-parse '("-- COERCION|417|15"
                                         "of_nat")))
            '(417 15)))

;; Identifier Information
