proposition: Lemma coprimep_dvdr p q r : r %| p -> coprimep p q -> coprimep r q.
proof: Proof. by move=> rp; rewrite ![coprimep _ q]coprimep_sym; apply/coprimep_dvdl. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype bigop ssralg poly)