Basic
(vl-basic-fmt x alist &key (ps 'ps)) takes as inputs
Function:
(defun vl-basic-fmt-fn (x alist ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (and (stringp x) (alistp alist)))) (let ((__function__ 'vl-basic-fmt)) (declare (ignorable __function__)) (let ((x (string-fix x))) (vl-basic-fmt-aux x 0 (length x) alist))))
Theorem:
(defthm vl-basic-fmt-fn-of-str-fix-x (equal (vl-basic-fmt-fn (str-fix x) alist ps) (vl-basic-fmt-fn x alist ps)))
Theorem:
(defthm vl-basic-fmt-fn-streqv-congruence-on-x (implies (streqv x x-equiv) (equal (vl-basic-fmt-fn x alist ps) (vl-basic-fmt-fn x-equiv alist ps))) :rule-classes :congruence)