∀ {o : Type u_4} {m' : o → Type u_7} {α : Type u_12} [inst : Zero α] [inst_1 : DecidableEq o]
  [inst_2 : (i : o) → DecidableEq (m' i)] (d : (i : o) × m' i → α) (k : o),
  (Matrix.diagonal d).blockDiag' k = Matrix.diagonal fun i => d ⟨k, i⟩