Theorem: nat=>bebits*-injectivity
(defthm nat=>bebits*-injectivity (equal (equal (nat=>bebits* nat1) (nat=>bebits* nat2)) (equal (nfix nat1) (nfix nat2))))