Notation expo := (mscal (Zp_mult Hak) (Zp_one Hak)).Notation expoZp := (mscal (Zp_mult Hak2) (Zp_one Hak2)).Notation MZp := (M22 ak2).Notation MZp_Z := (ZE_22 (Zp_zero Hak2)).Notation MZp_I := (ID_22 (Zp_zero Hak2) (Zp_one Hak2)).Notation MZp_scal := (M22scal (Zp_mult Hak2)).Check alpha_nat_divisibility_2.
Print Assumptions alpha_nat_divisibility_2.

Qed. End congruence_1. Theorem alpha_nat_congruence_0 b1 b2 q n :