src/HOL/Analysis/Path_Connected.thy
changeset 65038 9391ea7daa17
parent 64911 f0e07600de47
child 66447 a1f5c5c26fa6
equal deleted inserted replaced
65037:2cf841ff23be 65038:9391ea7daa17
   776   done
   776   done
   777 
   777 
   778 lemma path_image_subpath:
   778 lemma path_image_subpath:
   779   fixes g :: "real \<Rightarrow> 'a::real_normed_vector"
   779   fixes g :: "real \<Rightarrow> 'a::real_normed_vector"
   780   shows "path_image(subpath u v g) = (if u \<le> v then g ` {u..v} else g ` {v..u})"
   780   shows "path_image(subpath u v g) = (if u \<le> v then g ` {u..v} else g ` {v..u})"
       
   781   by (simp add: path_image_subpath_gen closed_segment_eq_real_ivl)
       
   782 
       
   783 lemma path_image_subpath_commute:
       
   784   fixes g :: "real \<Rightarrow> 'a::real_normed_vector"
       
   785   shows "path_image(subpath u v g) = path_image(subpath v u g)"
   781   by (simp add: path_image_subpath_gen closed_segment_eq_real_ivl)
   786   by (simp add: path_image_subpath_gen closed_segment_eq_real_ivl)
   782 
   787 
   783 lemma path_subpath [simp]:
   788 lemma path_subpath [simp]:
   784   fixes g :: "real \<Rightarrow> 'a::real_normed_vector"
   789   fixes g :: "real \<Rightarrow> 'a::real_normed_vector"
   785   assumes "path g" "u \<in> {0..1}" "v \<in> {0..1}"
   790   assumes "path g" "u \<in> {0..1}" "v \<in> {0..1}"