Functions called by a console call.
(console-callees cnsl) → callees
Function:
(defun console-callees (cnsl) (declare (xargs :guard (consolep cnsl))) (let ((__function__ 'console-callees)) (declare (ignorable __function__)) (console-case cnsl :assert (expression-callees cnsl.arg) :error (expression-list-callees cnsl.exprs) :log (expression-list-callees cnsl.exprs))))
Theorem:
(defthm identifier-setp-of-console-callees (b* ((callees (console-callees cnsl))) (identifier-setp callees)) :rule-classes :rewrite)
Theorem:
(defthm console-callees-of-console-fix-cnsl (equal (console-callees (console-fix cnsl)) (console-callees cnsl)))
Theorem:
(defthm console-callees-console-equiv-congruence-on-cnsl (implies (console-equiv cnsl cnsl-equiv) (equal (console-callees cnsl) (console-callees cnsl-equiv))) :rule-classes :congruence)