Look up the Base64 character for a value, e.g.,
(b64-char-from-value value) → char
This is our lowest level encoding function. It's just an array lookup.
Function:
(defun b64-char-from-value$inline (value) (declare (type (unsigned-byte 6) value)) (let ((acl2::__function__ 'b64-char-from-value)) (declare (ignorable acl2::__function__)) (the character (aref1 '*b64-chars-from-vals-array* *b64-chars-from-vals-array* value))))
Theorem:
(defthm characterp-of-b64-char-from-value (b* ((char (b64-char-from-value$inline value))) (characterp char)) :rule-classes :type-prescription)
Theorem:
(defthm b64-char-from-value-never-produces-a-pad (not (equal (b64-char-from-value value) #\=)))