intros n x y X Y e H.
simpl in |- *.
rewrite e.
apply plus_lt_compat_l; auto.
Qed.

(* Specifications: *)
Lemma com_eq :
forall (n : nat) (x y : digit) (X Y : num n),
val x = val y ->
Val n X = Val n Y -> Val (S n) (Cons n x X) = Val (S n) (Cons n y Y).