The polymod checksum for both Bech32 and Bech32m.
(bech32-polymod values) → checksum
Function:
(defun bech32-polymod (values) (declare (xargs :guard (unsigned-byte-listp 8 values))) (let ((__function__ 'bech32-polymod)) (declare (ignorable __function__)) (bech32-polymod-aux values 1)))
Theorem:
(defthm return-type-of-bech32-polymod (b* ((checksum (bech32-polymod values))) (unsigned-byte-p 48 checksum)) :rule-classes :rewrite)