(bfr-unary-minus-s x) → ms
Function:
(defun bfr-unary-minus-s (x) (declare (xargs :guard (true-listp x))) (let ((__function__ 'bfr-unary-minus-s)) (declare (ignorable __function__)) (bfr-+-ss t nil (bfr-lognot-s x))))
Theorem:
(defthm true-listp-of-bfr-unary-minus-s (b* ((ms (bfr-unary-minus-s x))) (true-listp ms)) :rule-classes :type-prescription)
Theorem:
(defthm bfr-unary-minus-s-correct (b* ((ms (bfr-unary-minus-s x))) (and (equal (bfr-list->s ms env) (- (bfr-list->s x env))))))
Theorem:
(defthm bfr-unary-minus-s-deps (b* ((ms (bfr-unary-minus-s x))) (implies (and (not (pbfr-list-depends-on varname param x))) (and (not (pbfr-list-depends-on varname param ms))))))