Check if all the proposals in a set have a given author.
Theorem:
(defthm prop-set-all-author-p-necc (implies (prop-set-all-author-p author props) (implies (in prop (proposal-set-fix props)) (equal (proposal->author prop) (address-fix author)))))
Theorem:
(defthm booleanp-of-prop-set-all-author-p (b* ((yes/no (prop-set-all-author-p author props))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm prop-set-all-author-p-of-address-fix-author (equal (prop-set-all-author-p (address-fix author) props) (prop-set-all-author-p author props)))
Theorem:
(defthm prop-set-all-author-p-address-equiv-congruence-on-author (implies (address-equiv author author-equiv) (equal (prop-set-all-author-p author props) (prop-set-all-author-p author-equiv props))) :rule-classes :congruence)
Theorem:
(defthm prop-set-all-author-p-of-proposal-set-fix-props (equal (prop-set-all-author-p author (proposal-set-fix props)) (prop-set-all-author-p author props)))
Theorem:
(defthm prop-set-all-author-p-proposal-set-equiv-congruence-on-props (implies (proposal-set-equiv props props-equiv) (equal (prop-set-all-author-p author props) (prop-set-all-author-p author props-equiv))) :rule-classes :congruence)