proposition: Lemma dot_scal_right_dot n m p (M: MX n m) (P: MX m p) x: M * (P *' x) == (M * P) *' x.
proof: Proof. repeat intro; simpl. rewrite sum_distr_left. apply sum_compat. intros. auto with algebra. Qed.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing) ATBR(MxGraph) ATBR(MxSemiLattice) ATBR(BoolView)