Abstract a
(abs-?-function-parameters tree) → params
Function:
(defun abs-?-function-parameters (tree) (declare (xargs :guard (abnf::treep tree))) (let ((__function__ 'abs-?-function-parameters)) (declare (ignorable __function__)) (b* (((okf treess) (abnf::check-tree-nonleaf tree nil)) ((when (endp treess)) nil) ((okf trees) (abnf::check-tree-list-list-1 treess)) ((okf tree) (abnf::check-tree-list-1 trees))) (abs-function-parameters tree))))
Theorem:
(defthm funparam-list-resultp-of-abs-?-function-parameters (b* ((params (abs-?-function-parameters tree))) (funparam-list-resultp params)) :rule-classes :rewrite)
Theorem:
(defthm abs-?-function-parameters-of-tree-fix-tree (equal (abs-?-function-parameters (abnf::tree-fix tree)) (abs-?-function-parameters tree)))
Theorem:
(defthm abs-?-function-parameters-tree-equiv-congruence-on-tree (implies (abnf::tree-equiv tree tree-equiv) (equal (abs-?-function-parameters tree) (abs-?-function-parameters tree-equiv))) :rule-classes :congruence)