Generate Java code to build a deeply embedded formals parameter list of an ACL2 named function or lambda expression.
(atj-gen-deep-formals formals) → expr
The generated code builds an array of the formals as symbols.
Function:
(defun atj-gen-deep-formals (formals) (declare (xargs :guard (symbol-listp formals))) (let ((__function__ 'atj-gen-deep-formals)) (declare (ignorable __function__)) (jexpr-newarray-init *aij-type-symbol* (atj-gen-symbols formals t nil))))
Theorem:
(defthm jexprp-of-atj-gen-deep-formals (b* ((expr (atj-gen-deep-formals formals))) (jexprp expr)) :rule-classes :rewrite)