Number of validators in the system.
(number-validators systate) → number
This is the total number of validators in the system,
often denoted
Function:
(defun number-validators (systate) (declare (xargs :guard (system-statep systate))) (let ((__function__ 'number-validators)) (declare (ignorable __function__)) (cardinality (all-addresses systate))))
Theorem:
(defthm natp-of-number-validators (b* ((number (number-validators systate))) (natp number)) :rule-classes :rewrite)
Theorem:
(defthm number-validators-alt-def (equal (number-validators systate) (omap::size (system-state->validators systate))))
Theorem:
(defthm number-validator-gt-0-when-nonempty-all-addresses (implies (not (emptyp (all-addresses systate))) (> (number-validators systate) 0)) :rule-classes :linear)
Theorem:
(defthm number-validators-of-system-state-fix-systate (equal (number-validators (system-state-fix systate)) (number-validators systate)))
Theorem:
(defthm number-validators-system-state-equiv-congruence-on-systate (implies (system-state-equiv systate systate-equiv) (equal (number-validators systate) (number-validators systate-equiv))) :rule-classes :congruence)