proposition: Lemma Zmult_minus_distr_r : forall n m p : Z, (p * (n - m))%Z = (p * n - p * m)%Z.
proof: Proof. intros n m p. rewrite Zmult_comm. rewrite Zmult_minus_distr_r. rewrite Zmult_comm. rewrite (Zmult_comm m p). reflexivity. Qed.
imports: Coq(Lia) CoRN.stdlib_omissions.List Coq.Logic.Eqdep_dec Coq.Setoids.Setoid