equal
deleted
inserted
replaced
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]) |