Called when abstraction fails.
(abstract-fail) → nothing
The error message does not carry a lot of information, but it keeps the abstraction functions simple for now.
Function:
(defun abstract-fail nil (declare (xargs :guard t)) (hard-error 'abnf "ABNF Grammar Abstraction Error." nil))
Theorem:
(defthm null-of-abstract-fail (b* ((nothing (abstract-fail))) (null nothing)) :rule-classes :rewrite)