Produce a full backtrace for the FGL rewriter stack, containing all top-level bindings of all rules
(interp-st-stack-full-backtrace interp-st) → backtrace
Function:
(defun interp-st-stack-full-backtrace (interp-st) (declare (xargs :stobjs (interp-st))) (declare (xargs :guard t)) (let ((__function__ 'interp-st-stack-full-backtrace)) (declare (ignorable __function__)) (stobj-let ((stack (interp-st->stack interp-st))) (bt) (stack-full-backtrace stack) bt)))
Theorem:
(defthm backtrace-p-of-interp-st-stack-full-backtrace (b* ((backtrace (interp-st-stack-full-backtrace interp-st))) (backtrace-p backtrace)) :rule-classes :rewrite)