Theorem: bebits=>nat-injectivity
(defthm bebits=>nat-injectivity (implies (equal (len digits1) (len digits2)) (equal (equal (bebits=>nat digits1) (bebits=>nat digits2)) (equal (bit-list-fix digits1) (bit-list-fix digits2)))))