equal
deleted
inserted
replaced
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 |