fact: Fixpoint Rgcd_loop n pp qq k {struct n} := bind r <- Rmod pp qq; bind b <- Isnull r; if b then (k qq) else if n is n1.+1 then Rgcd_loop n1 qq r k else k r.
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)