fact: Definition ediv_rec q := let sq := size q in let lq := lead_coef q in fix loop (n : nat) (qq r : {poly F}) {struct n} := if size r < sq then (qq, r) else let m := (lead_coef r / lq)%:P * 'X^(size r - sq) in let qq1 := qq + m in let r1 := r - m * q in if n is n1.+1 then loop n1 qq1 r1 else (qq1, r1).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq) mathcomp(path choice fintype tuple finset ssralg) mathcomp(matrix poly) mathcomp(bigop polydiv) CoqEAL(stronglydiscrete dvdring)