fact: Definition is_ipoly (R : ringType) (k s : nat) (p : {poly R}):= forall m, is_iexp R k s m -> m ⋈[k] p.
imports: mathcomp(all_ssreflect all_fingroup all_field) mathcomp(ssralg finalg poly polydiv zmodp vector qpoly) more_thm rootn lcm_lbound