equal
deleted
inserted
replaced
458 with h h' MN have ?EqNIL by simp |
458 with h h' MN have ?EqNIL by simp |
459 then show ?thesis .. |
459 then show ?thesis .. |
460 next |
460 next |
461 case (Some p) |
461 case (Some p) |
462 with h h' MN have "M = CONS (fst p) (h (snd p))" |
462 with h h' MN have "M = CONS (fst p) (h (snd p))" |
463 and "N = CONS (fst p) (h' (snd p))" |
463 and "N = CONS (fst p) (h' (snd p))" |
464 by (simp_all split: prod.split) |
464 by (simp_all split: prod.split) |
465 then have ?EqCONS by (auto iff: Id_on_iff) |
465 then have ?EqCONS by (auto iff: Id_on_iff) |
466 then show ?thesis .. |
466 then show ?thesis .. |
467 qed |
467 qed |
468 qed |
468 qed |