Definition val_bound (n : nat) (X : num n) : inf (exp base n) :=
    exist (fun p : nat => p < exp base n) (Val n X) (upper_bound n X).

Lemma comp_dif : forall (n : nat) (x y : digit) (X Y : num n), val x < val y -> Val (S n) (Cons n x X) < Val (S n) (Cons n y Y).