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