Check if all the correct validators in the system are in the initial state.
Theorem:
(defthm system-validators-initp-necc (implies (system-validators-initp systate) (implies (in val (correct-addresses systate)) (equal (get-validator-state val systate) (validator-init)))))
Theorem:
(defthm booleanp-of-system-validators-initp (b* ((yes/no (system-validators-initp systate))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm system-validators-initp-of-system-state-fix-systate (equal (system-validators-initp (system-state-fix systate)) (system-validators-initp systate)))
Theorem:
(defthm system-validators-initp-system-state-equiv-congruence-on-systate (implies (system-state-equiv systate systate-equiv) (equal (system-validators-initp systate) (system-validators-initp systate-equiv))) :rule-classes :congruence)