equal
deleted
inserted
replaced
270 |
270 |
271 |
271 |
272 (* method modifiers *) |
272 (* method modifiers *) |
273 |
273 |
274 val iffN = "iff"; |
274 val iffN = "iff"; |
275 val addN = "add"; |
|
276 val delN = "del"; |
|
277 |
275 |
278 val iff_modifiers = |
276 val iff_modifiers = |
279 [Args.$$$ iffN -- Args.colon >> K ((I, iff_add_local): Method.modifier), |
277 [Args.$$$ iffN -- Args.colon >> K ((I, iff_add_local): Method.modifier), |
280 Args.$$$ iffN -- Args.$$$ addN -- Args.colon >> K (I, iff_add_local), |
278 Args.$$$ iffN -- Args.$$$ Args.addN -- Args.colon >> K (I, iff_add_local), |
281 Args.$$$ iffN -- Args.$$$ delN -- Args.colon >> K (I, iff_del_local)]; |
279 Args.$$$ iffN -- Args.$$$ Args.delN -- Args.colon >> K (I, iff_del_local)]; |
282 |
280 |
283 val clasimp_modifiers = |
281 val clasimp_modifiers = |
284 Simplifier.simp_modifiers @ Splitter.split_modifiers @ |
282 Simplifier.simp_modifiers @ Splitter.split_modifiers @ |
285 Classical.cla_modifiers @ iff_modifiers; |
283 Classical.cla_modifiers @ iff_modifiers; |
286 |
284 |