Total number of validators in a committee.
(committee-total commtt) → total
This is just the number of addresses.
This is
Function:
(defun committee-total (commtt) (declare (xargs :guard (committeep commtt))) (let ((__function__ 'committee-total)) (declare (ignorable __function__)) (cardinality (committee-members commtt))))
Theorem:
(defthm posp-of-committee-total (b* ((total (committee-total commtt))) (posp total)) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm committee-total-of-committee-fix-commtt (equal (committee-total (committee-fix commtt)) (committee-total commtt)))
Theorem:
(defthm committee-total-committee-equiv-congruence-on-commtt (implies (committee-equiv commtt commtt-equiv) (equal (committee-total commtt) (committee-total commtt-equiv))) :rule-classes :congruence)