Constraint on the kind of keys in the wallet state.
All the keys in the key tree are private, because we create a private master key and then all the derived keys are private.
Function:
(defun stat-priv-keys-p (stat) (declare (xargs :guard (statp stat))) (bip32-key-tree-priv-p (stat->keys stat)))
Theorem:
(defthm booleanp-of-stat-priv-keys-p (b* ((yes/no (stat-priv-keys-p stat))) (booleanp yes/no)) :rule-classes :rewrite)