proposition: Lemma leq_gcdpr p q : q != 0 -> size (gcdp p q) <= size q.
proof: Proof. by move=> qn0; move: (dvdp_gcdr p q); apply: dvdp_leq. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype bigop ssralg poly)