Abstract a
(abs-line-feed-escape tree) → char
Function:
(defun abs-line-feed-escape (tree) (declare (xargs :guard (abnf::treep tree))) (let ((__function__ 'abs-line-feed-escape)) (declare (ignorable __function__)) (b* (((okf tree) (abnf::check-tree-nonleaf-1-1 tree "line-feed-escape")) ((okf &) (abnf::check-tree-schars tree "\\n"))) (char 10))))
Theorem:
(defthm char-resultp-of-abs-line-feed-escape (b* ((char (abs-line-feed-escape tree))) (char-resultp char)) :rule-classes :rewrite)
Theorem:
(defthm abs-line-feed-escape-of-tree-fix-tree (equal (abs-line-feed-escape (abnf::tree-fix tree)) (abs-line-feed-escape tree)))
Theorem:
(defthm abs-line-feed-escape-tree-equiv-congruence-on-tree (implies (abnf::tree-equiv tree tree-equiv) (equal (abs-line-feed-escape tree) (abs-line-feed-escape tree-equiv))) :rule-classes :congruence)