src/Provers/clasimp.ML
changeset 9952 24914e42b857
parent 9893 93d2fde0306c
child 10033 fc4e7432b2b1
equal deleted inserted replaced
9951:5610c4acb48d 9952:24914e42b857
   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