fact: Definition wproj (n : nat) (s : seq (GRing.term F) * seq (GRing.term F)) : formula F := let sp := map (abstrX n \o to_rterm) s.1%PAIR in let sq := map (abstrX n \o to_rterm) s.2%PAIR in CcountGt0 sp sq.
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)