Represent a span as a message.
This is used in user-oriented messages.
Function:
(defun span-to-msg (span) (declare (xargs :guard (spanp span))) (msg "[~@0 to ~@1]" (position-to-msg (span->start span)) (position-to-msg (span->end span))))
Theorem:
(defthm msgp-of-span-to-msg (b* ((msg (span-to-msg span))) (msgp msg)) :rule-classes :rewrite)
Theorem:
(defthm span-to-msg-of-span-fix-span (equal (span-to-msg (span-fix span)) (span-to-msg span)))
Theorem:
(defthm span-to-msg-span-equiv-congruence-on-span (implies (span-equiv span span-equiv) (equal (span-to-msg span) (span-to-msg span-equiv))) :rule-classes :congruence)