Join two spans.
The first span must come before the second one. We return a new span that goes from the start of the first span to the end of the second span.
Function:
(defun span-join (span1 span2) (declare (xargs :guard (and (spanp span1) (spanp span2)))) (let ((__function__ 'span-join)) (declare (ignorable __function__)) (make-span :start (span->start span1) :end (span->end span2))))
Theorem:
(defthm spanp-of-span-join (b* ((span (span-join span1 span2))) (spanp span)) :rule-classes :rewrite)