src/HOL/Analysis/Cartesian_Euclidean_Space.thy
changeset 69667 82bb6225588b
parent 69666 d51e5e41fafe
child 69668 14a8cac10eac
equal deleted inserted replaced
69666:d51e5e41fafe 69667:82bb6225588b
   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 -