equal
deleted
inserted
replaced
262 show "x v* (k *\<^sub>R A) = k *\<^sub>R (x v* A)" |
262 show "x v* (k *\<^sub>R A) = k *\<^sub>R (x v* A)" |
263 by auto |
263 by auto |
264 qed |
264 qed |
265 |
265 |
266 |
266 |
267 subsection%important\<open>Some bounds on components etc. relative to operator norm\<close> |
267 subsection%important\<open>Bounds on components etc.\ relative to operator norm\<close> |
268 |
268 |
269 lemma%important norm_column_le_onorm: |
269 lemma%important norm_column_le_onorm: |
270 fixes A :: "real^'n^'m" |
270 fixes A :: "real^'n^'m" |
271 shows "norm(column i A) \<le> onorm((*v) A)" |
271 shows "norm(column i A) \<le> onorm((*v) A)" |
272 proof%unimportant - |
272 proof%unimportant - |