src/HOL/Analysis/Path_Connected.thy
changeset 71633 07bec530f02e
parent 71244 38457af660bc
child 72228 aa7cb84983e9
equal deleted inserted replaced
71629:2e8f861d21d4 71633:07bec530f02e
   509       apply (auto dest: inj_onD [OF injg2])
   509       apply (auto dest: inj_onD [OF injg2])
   510       done
   510       done
   511    } note ** = this
   511    } note ** = this
   512   show ?thesis
   512   show ?thesis
   513     using assms
   513     using assms
   514     apply (simp add: arc_def simple_path_def path_join, clarify)
   514     apply (simp add: arc_def simple_path_def, clarify)
   515     apply (simp add: joinpaths_def split: if_split_asm)
   515     apply (simp add: joinpaths_def split: if_split_asm)
   516     apply (force dest: inj_onD [OF injg1])
   516     apply (force dest: inj_onD [OF injg1])
   517     apply (metis *)
   517     apply (metis *)
   518     apply (metis **)
   518     apply (metis **)
   519     apply (force dest: inj_onD [OF injg2])
   519     apply (force dest: inj_onD [OF injg2])