fact: Definition is_iexpm (R : ringType) (k s mk : nat) := exists2 m, mk = (m %% k)%N & is_iexp R k s m.
imports: mathcomp(all_ssreflect all_fingroup all_field) mathcomp(ssralg finalg poly polydiv zmodp vector qpoly) more_thm rootn lcm_lbound