(vl-extend-atts-with-linestart linestart atts) → new-atts
Function:
(defun vl-extend-atts-with-linestart (linestart atts) (declare (xargs :guard (and (maybe-natp linestart) (vl-atts-p atts)))) (let ((__function__ 'vl-extend-atts-with-linestart)) (declare (ignorable __function__)) (b* ((atts (vl-atts-fix atts)) ((unless linestart) atts) (indent (vl-make-index linestart))) (mbe :logic (cons (hons "VL_LINESTART" indent) atts) :exec (if atts (cons (hons "VL_LINESTART" indent) atts) (hons (hons "VL_LINESTART" indent) atts))))))
Theorem:
(defthm vl-atts-p-of-vl-extend-atts-with-linestart (b* ((new-atts (vl-extend-atts-with-linestart linestart atts))) (vl-atts-p new-atts)) :rule-classes :rewrite)