		Search-engine friendly clone of the ACL2 documentation.

Digits-any-base

Nat=>bendian*

Convert a natural number to its minimum-length big-endian list of digits.

Signature
(nat=>bendian* base nat) → digits
Arguments: base — Guard (dab-basep base).; nat — Guard (natp nat).
Returns: digits — Type (dab-digit-listp base digits).

The resulting list is empty if nat is 0. The * in the name of this function can be read as `zero or more' (as in typical regular expression notation).

See also nat=>bendian+ and nat=>bendian.

Definitions and Theorems

Function: nat=>bendian*

(defun nat=>bendian* (base nat)
  (declare (xargs :guard (and (dab-basep base) (natp nat))))
  (let ((__function__ 'nat=>bendian*))
    (declare (ignorable __function__))
    (mbe :exec (nat=>digits-exec base nat nil)
         :logic (rev (nat=>lendian* base nat)))))

Theorem: return-type-of-nat=>bendian*

(defthm return-type-of-nat=>bendian*
  (b* ((digits (nat=>bendian* base nat)))
    (dab-digit-listp base digits))
  :rule-classes :rewrite)

Theorem: natp-listp-of-nat=>bendian*

(defthm natp-listp-of-nat=>bendian*
  (b* ((digits (nat=>bendian* base nat)))
    (nat-listp digits))
  :rule-classes :rewrite)

Theorem: consp-of-nat=>bendian*

(defthm consp-of-nat=>bendian*
  (implies (not (zp nat))
           (b* ((digits (nat=>bendian* base nat)))
             (consp digits)))
  :rule-classes :type-prescription)

Theorem: consp-of-nat=>bendian*-iff-not-zp

(defthm consp-of-nat=>bendian*-iff-not-zp
  (equal (consp (nat=>bendian* base nat))
         (not (zp nat))))

Theorem: nat=>bendian*-of-0

(defthm nat=>bendian*-of-0
  (equal (nat=>bendian* base 0) nil))

Theorem: len-0-of-nat=>bendian*

(defthm len-0-of-nat=>bendian*
  (equal (equal (len (nat=>bendian* base x)) 0)
         (zp x)))

Theorem: expt-of-len-of-nat=>bendian*-is-upper-bound

(defthm expt-of-len-of-nat=>bendian*-is-upper-bound
  (implies (and (natp nat) (dab-basep base))
           (< nat
              (expt base (len (nat=>bendian* base nat)))))
  :rule-classes :linear)

Theorem: nat=>bendian*-does-not-start-with-0

(defthm nat=>bendian*-does-not-start-with-0
  (not (equal (car (nat=>bendian* base nat))
              0)))

Theorem: len-of-nat=>bendian*-leq-width

(defthm len-of-nat=>bendian*-leq-width
 (implies (and (natp nat)
               (dab-basep base)
               (natp width))
          (equal (<= (len (nat=>bendian* base nat))
                     width)
                 (< nat (expt base width))))
 :rule-classes
 ((:rewrite :corollary
            (implies (and (natp nat)
                          (dab-basep base)
                          (natp width))
                     (equal (> (len (nat=>bendian* base nat)) width)
                            (>= nat (expt base width))))
            :hints (("Goal" :in-theory '(not))))))

Theorem: nat=>bendian*-of-dab-base-fix-base

(defthm nat=>bendian*-of-dab-base-fix-base
  (equal (nat=>bendian* (dab-base-fix base) nat)
         (nat=>bendian* base nat)))

Theorem: nat=>bendian*-dab-base-equiv-congruence-on-base

(defthm nat=>bendian*-dab-base-equiv-congruence-on-base
  (implies (dab-base-equiv base base-equiv)
           (equal (nat=>bendian* base nat)
                  (nat=>bendian* base-equiv nat)))
  :rule-classes :congruence)

Theorem: nat=>bendian*-of-nfix-nat

(defthm nat=>bendian*-of-nfix-nat
  (equal (nat=>bendian* base (nfix nat))
         (nat=>bendian* base nat)))

Theorem: nat=>bendian*-nat-equiv-congruence-on-nat

(defthm nat=>bendian*-nat-equiv-congruence-on-nat
  (implies (nat-equiv nat nat-equiv)
           (equal (nat=>bendian* base nat)
                  (nat=>bendian* base nat-equiv)))
  :rule-classes :congruence)

Subtopics

Nat=>digits-exec: Tail-recursive code for the execution of nat=>bendian* and nat=>lendian* (and, indirectly, of their variants).