fact: Definition Rgcd (p : polyF) (q : polyF) : cps polyF := fun k => let aux p1 q1 k := (bind b <- Isnull p1; if b then k q1 else bind n <- Size p1; Rgcd_loop n p1 q1 k) in bind b <- LtSize p q; if b then aux q p k else aux p q k.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(finfun path matrix) mathcomp(bigop order ssralg poly polydiv ssrnum zmodp div ssrint) mathcomp(polyorder polyrcf interval polyXY) mathcomp(qe_rcf_th ordered_qelim mxtens)