                     (concat "REMOVE 42")))
 (cl-assert (string= (lean-cmd-to-string (lean-cmd-info 42))
                     (concat "INFO 42")))
+(cl-assert (string= (lean-cmd-to-string (lean-cmd-info 42 11))
+                    (concat "INFO 42 11")))
 (cl-assert (string= (lean-cmd-to-string (lean-cmd-check 42 "∀ (n : nat), ne (succ n) zero"))
                     (concat "CHECK 42" "\n" "∀ (n : nat), ne (succ n) zero")))
 (cl-assert (string= (lean-cmd-to-string (lean-cmd-findp 42 "iff_"))

  (cl-second remove-cmd))
(defun lean-cmd-info-get-line-number (info-cmd)
  (cl-second info-cmd))
(defun lean-cmd-check-get-line-number (check-cmd)
  (cl-second check-cmd))
(defun lean-cmd-check-get-line (check-cmd)

              34))
(cl-assert (= (lean-cmd-info-get-line-number (lean-cmd-info 34))
              34))
(cl-assert (= (lean-cmd-info-get-column-number (lean-cmd-info 34 11))
              11))
(cl-assert (= (lean-cmd-check-get-line-number
               (lean-cmd-check 34 "∀ (n : nat), ne (succ n) zero"))
              34))
