∀ (n : Type u_1) (R : Type u_3) (α : Type u_2) [inst : DecidableEq n] [inst_1 : Semiring R] [inst_2 : AddCommMonoid α]
  [inst_3 : Module R α] (r : R) (d : n → α), Matrix.diagonal (r • d) = r • Matrix.diagonal d