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