Convert a big-endian list of bytes, seen as digits in base 256, to their value.
(bebytes=>nat digits) → nat
Function:
(defun bebytes=>nat (digits) (declare (xargs :guard (byte-listp digits))) (let ((__function__ 'bebytes=>nat)) (declare (ignorable __function__)) (bendian=>nat 256 digits)))
Theorem:
(defthm natp-of-bebytes=>nat (b* ((nat (bebytes=>nat digits))) (natp nat)) :rule-classes :rewrite)
Theorem:
(defthm bebytes=>nat-of-byte-list-fix-digits (equal (bebytes=>nat (byte-list-fix digits)) (bebytes=>nat digits)))
Theorem:
(defthm bebytes=>nat-byte-list-equiv-congruence-on-digits (implies (byte-list-equiv digits digits-equiv) (equal (bebytes=>nat digits) (bebytes=>nat digits-equiv))) :rule-classes :congruence)