Turn a comp-db-arg into a string.
(comp-db-arg-to-string arg) → string
Function:
(defun comp-db-arg-to-string (arg) (declare (xargs :guard (comp-db-argp arg))) (b* (((comp-db-arg arg) arg)) (concatenate 'string arg.name arg.separator (or arg.value ""))))
Theorem:
(defthm stringp-of-comp-db-arg-to-string (b* ((string (comp-db-arg-to-string arg))) (stringp string)) :rule-classes :rewrite)
Theorem:
(defthm comp-db-arg-to-string-of-comp-db-arg-fix-arg (equal (comp-db-arg-to-string (comp-db-arg-fix arg)) (comp-db-arg-to-string arg)))
Theorem:
(defthm comp-db-arg-to-string-comp-db-arg-equiv-congruence-on-arg (implies (comp-db-arg-equiv arg arg-equiv) (equal (comp-db-arg-to-string arg) (comp-db-arg-to-string arg-equiv))) :rule-classes :congruence)