Cause an error if a value is not a legal variable name.
(ensure-value-is-legal-variable-name x description error-erp error-val ctx state) → (mv erp val state)
Function:
(defun ensure-value-is-legal-variable-name (x description error-erp error-val ctx state) (declare (xargs :stobjs (state))) (declare (xargs :guard (msgp description))) (b* (((unless (legal-variablep x)) (er-soft+ ctx error-erp error-val "~@0 must be a legal name for a variable, but it is ~x1 instead." description x))) (value nil)))
Theorem:
(defthm return-type-of-ensure-value-is-legal-variable-name.erp (b* (((mv ?erp ?val ?state) (ensure-value-is-legal-variable-name x description error-erp error-val ctx state))) (implies erp (equal erp error-erp))) :rule-classes :rewrite)
Theorem:
(defthm return-type-of-ensure-value-is-legal-variable-name.val (b* (((mv ?erp ?val ?state) (ensure-value-is-legal-variable-name x description error-erp error-val ctx state))) (and (implies erp (equal val error-val)) (implies (and (not erp) error-erp) (not val)))) :rule-classes :rewrite)