Wrapper for contextual tests.
(test* x) → *
In atc-contextualize,
we wrap tests from the context premises with this identity function,
to prevent ACL2 from making use of them,
in the generated modular theorems,
to simplify things in ways that interfere with the compositional proofs.
For instance, when ACL2 has a hypothesis
Function:
(defun test* (x) (declare (xargs :guard t)) (let ((__function__ 'test*)) (declare (ignorable __function__)) x))
Theorem:
(defthm test*-of-t (test* t))