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.

(q : nat) (Hq : q <> 0) (Hb : nat2Zp Hq b1 = nat2Zp Hq b2).