Recognizer for position structures.
(positionp x) → *
Function:
(defun positionp (x) (declare (xargs :guard t)) (and (consp x) (b* ((line (car x)) (column (cdr x))) (and (posp line) (natp column)))))
Theorem:
(defthm consp-when-positionp (implies (positionp x) (consp x)) :rule-classes :compound-recognizer)