proposition: Lemma Zeck_valppE l: Zeck_val l = Zeck_valp l + Zeck_valpp l.
proof: Proof. rewrite /Zeck_val/Zeck_valp/Zeck_valpp. by elim:l => [| a l H]; rewrite ?big_nil // !big_cons addnACA fibSS H. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq path fintype div bigop binomial) mathcomp(prime finset ssralg ssrnum ssrint)