fact: Fixpoint poly_intro_range_aux n pn k c r := if r is r1.+1 then let cc := modnp_const n k c in let x := modnp_Xn n k 1 in let xcc := modnp_add n k x cc in let xve := modnp_pow n k pn xcc in let xn := modnp_Xn n k n in let xncc := modnp_add n k xn cc in if modnp_eq n k xve xncc then poly_intro_range_aux n pn k c.+1 r1 else false else true.
imports: mathcomp(all_ssreflect)