Section expo_congruence.
Variable (q : nat).
Notation m := (b_nat*q-q*q-1)%nat.
Hypothesis Hm : m <> 0%nat.
Let Hq : (1+q*q < b_nat*q)%nat.
Notation "〘 x 〙" := (morph22 f x).
Local Infix "⊠" := (MU22 (Zp_plus Hm) (Zp_mult Hm)) (at level 40, left associativity).
Notation scal := (M22scal (Zp_mult Hm)).
Let BVP : 〘 B 〙 ⊠ 〘 VP 〙= scal〚qz〛〘 VP 〙.
Let AnVP n :〘 A n 〙 ⊠ 〘 VP 〙= scal〚expoZ n qz〛〘 VP 〙.
End expo_congruence.
Fact Pell_sym x y : Pell x y <-> Pell y x.
End Pell.

Theorem alpha_nat_2lm b n m l j v :
2 <= b
-> v = alpha_nat b (S (S m)) - alpha_nat b m
-> arem n (S m) l j
-> rem (alpha_nat b n) v = rem (alpha_nat b j) v
\/ rem (alpha_nat b n + alpha_nat b j) v = 0.