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