equal
deleted
inserted
replaced
86 |
86 |
87 (*** Case splitting ***) |
87 (*** Case splitting ***) |
88 |
88 |
89 structure Splitter = Splitter |
89 structure Splitter = Splitter |
90 ( |
90 ( |
91 val thy = @{theory} |
91 val context = @{context} |
92 val mk_eq = mk_eq |
92 val mk_eq = mk_eq |
93 val meta_eq_to_iff = @{thm meta_eq_to_iff} |
93 val meta_eq_to_iff = @{thm meta_eq_to_iff} |
94 val iffD = @{thm iffD2} |
94 val iffD = @{thm iffD2} |
95 val disjE = @{thm disjE} |
95 val disjE = @{thm disjE} |
96 val conjE = @{thm conjE} |
96 val conjE = @{thm conjE} |