fact: Definition poly_intro_range (R : ringType) k n s := forall c, 0 < c <= s-> rmodp (('X + c%:R%:P)^+n) ('X^k - 1 : {poly R}) = rmodp ('X^n + c%:R%:P) ('X^k - 1).
imports: mathcomp(all_ssreflect all_fingroup all_field) mathcomp(ssralg finalg poly polydiv zmodp vector qpoly) more_thm rootn lcm_lbound