proposition: Lemma NUMRIGHT_NUMSUM b n : NUMRIGHT (NUMSUM b n) = n.
proof: Proof. unfold NUMSUM, NUMERAL, BIT1, BIT0, NUMRIGHT. destruct (prop_degen b); subst. rewrite COND_True, even_succ, odd_mul, odd_2, S_minus_1, DIV_MULT. reflexivity. lia. rewrite COND_False, even_double, DIV_MULT. reflexivity. lia. Qed.
imports: Coq.Logic.ClassicalEpsilon ClassicalFacts PropExtensionalityFacts Lia PeanoNat