Constraint on the key path prefix in the wallet state.
The prefix of the address keys is always in the key tree.
Function:
(defun stat-path-prefix-in-tree-p (stat) (declare (xargs :guard (statp stat))) (bip32-path-in-tree-p *key-path-prefix* (stat->keys stat)))
Theorem:
(defthm booleanp-of-stat-path-prefix-in-tree-p (b* ((yes/no (stat-path-prefix-in-tree-p stat))) (booleanp yes/no)) :rule-classes :rewrite)