proposition: Lemma del_tail_app_int n d d' : n <= nb_digits d' -> del_tail_int n (app_int d d') = app_int d (del_tail n d').
proof: Proof. now case d as [d|d]; simpl; intro H; rewrite del_tail_app. Qed.
imports: Decimal Arith ZArith