proposition: Lemma map_midq_spseq : (map (fun x => x != 0) (mid q)) = map (fun x => x != 0) spseq.
proof: Proof. rewrite seqmul_spseq_dropp map_seqmul // ?all_pos_dropp //. by rewrite spseq_size size_drop p_size subn1. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path choice fintype order) mathcomp(prime div bigop ssralg poly polydiv polyorder ssrnum zmodp) mathcomp(polyrcf qe_rcf_th complex)