fact: Definition ns p n := match n with |Zpos q => nat_ns p (nat_of_P q) |_ => [:: p] end.
imports: ZArith Zwf Lia mathcomp(ssreflect eqtype ssrbool ssrnat div fintype seq ssrfun order) mathcomp(bigop fingroup choice ssralg ssrnum rat poly) pol