Maximum tolerated number of faulty validators in a committee.
(committee-max-faulty commtt) → maxf
The
Function:
(defun committee-max-faulty (commtt) (declare (xargs :guard (committeep commtt))) (let ((__function__ 'committee-max-faulty)) (declare (ignorable __function__)) (max-faulty-for-total (committee-total commtt))))
Theorem:
(defthm natp-of-committee-max-faulty (b* ((maxf (committee-max-faulty commtt))) (natp maxf)) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm committee-max-faulty-of-committee-fix-commtt (equal (committee-max-faulty (committee-fix commtt)) (committee-max-faulty commtt)))
Theorem:
(defthm committee-max-faulty-committee-equiv-congruence-on-commtt (implies (committee-equiv commtt commtt-equiv) (equal (committee-max-faulty commtt) (committee-max-faulty commtt-equiv))) :rule-classes :congruence)