src/Pure/Isar/context_rules.ML
changeset 18874 05585eee8d74
parent 18728 6790126ab5f6
child 18921 f47c46d7d654
equal deleted inserted replaced
18873:11c92ec2c29c 18874:05585eee8d74
    92     else make_rules next (filter_out eq_th rules) (map (del false o del true) netpairs) wrappers
    92     else make_rules next (filter_out eq_th rules) (map (del false o del true) netpairs) wrappers
    93   end;
    93   end;
    94 
    94 
    95 structure Rules = GenericDataFun
    95 structure Rules = GenericDataFun
    96 (
    96 (
    97   val name = "Isar/rules";
    97   val name = "Pure/rules";
    98   type T = T;
    98   type T = T;
    99 
    99 
   100   val empty = make_rules ~1 [] empty_netpairs ([], []);
   100   val empty = make_rules ~1 [] empty_netpairs ([], []);
   101   val extend = I;
   101   val extend = I;
   102 
   102