Parameter BASE : BT.Definition b := base BASE.Definition Num := num BASE.Definition Val_bound := val_bound BASE.Definition Digit := digit BASE.Definition Tl := tl Digit.

Theorem Specif_Comp : forall (n : nat) (o : order) (X Y : Num n), {o' : order | R (exp b n) o (Val_bound n X) (Val_bound n Y) o'}.