Check if a string forms a Leo address.
Function:
(defun address-string-p (string) (declare (xargs :guard (stringp string))) (let ((__function__ 'address-string-p)) (declare (ignorable __function__)) (address-chars-p (acl2::explode string))))
Theorem:
(defthm booleanp-of-address-string-p (b* ((yes/no (address-string-p string))) (booleanp yes/no)) :rule-classes :rewrite)