(vl-pp-real x &key (ps 'ps)) → ps
Function:
(defun vl-pp-real-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (vl-value-p x))) (declare (xargs :guard (vl-value-case x :vl-real))) (let ((__function__ 'vl-pp-real)) (declare (ignorable __function__)) (vl-ps-span "vl_real" (vl-println? (vl-real->value x)))))
Theorem:
(defthm vl-pp-real-fn-of-vl-value-fix-x (equal (vl-pp-real-fn (vl-value-fix x) ps) (vl-pp-real-fn x ps)))
Theorem:
(defthm vl-pp-real-fn-vl-value-equiv-congruence-on-x (implies (vl-value-equiv x x-equiv) (equal (vl-pp-real-fn x ps) (vl-pp-real-fn x-equiv ps))) :rule-classes :congruence)