Recognizer for cgraph-derivstate structures.
(cgraph-derivstate-p x) → *
Function:
(defun cgraph-derivstate-p (x) (declare (xargs :guard t)) (let ((__function__ 'cgraph-derivstate-p)) (declare (ignorable __function__)) (and (std::prod-consp x) (b* ((times-seen (std::prod-car x)) (?result-msg (std::prod-cdr x))) (natp times-seen)))))
Theorem:
(defthm consp-when-cgraph-derivstate-p (implies (cgraph-derivstate-p x) (consp x)) :rule-classes :compound-recognizer)