Recognize pseudo-event-formp values and
(maybe-pseudo-event-formp x) → yes/no
Function:
(defun maybe-pseudo-event-formp (x) (declare (xargs :guard t)) (let ((__function__ 'maybe-pseudo-event-formp)) (declare (ignorable __function__)) (or (pseudo-event-formp x) (null x))))
Theorem:
(defthm booleanp-of-maybe-pseudo-event-formp (b* ((yes/no (maybe-pseudo-event-formp x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm maybe-pseudo-event-formp-when-pseudo-event-formp (implies (pseudo-event-formp x) (maybe-pseudo-event-formp x)))