proposition: Corollary scal_one k x : scal k x = scal k o ⊗ x.
proof: Proof. Proof using M_sum M_times sum_cancel distr_r distr_l. destruct M_times as [ T1 T2 T3 ]. rewrite <- (T2 x) at 1. rewrite scal_times. symmetry; apply scal_one_comm. Qed.
imports: List Arith ZArith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list binomial)