Parameter BASE : BT.Definition b := base BASE.Definition Digit := digit BASE.Definition Num := num BASE.Definition Val_bound := val_bound BASE.Definition Value := Val BASE.Definition Connection := connection order (inf b) (inf b) (R b).

Theorem general_correct : forall (n : nat) (X Y : Num n) (o o' : order), Connection n o X Y o' -> R (exp b n) o (Val_bound n X) (Val_bound n Y) o'.