proposition: Lemma dot_scal_left_dot n m p (M: MX n m) (P: MX m p) x: (x '* M) * P == x '* (M * P).
proof: Proof. repeat intro; simpl. rewrite sum_distr_right. 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)