equal
deleted
inserted
replaced
115 structure AxClassData = TheoryDataFun |
115 structure AxClassData = TheoryDataFun |
116 (struct |
116 (struct |
117 val name = "Pure/axclass"; |
117 val name = "Pure/axclass"; |
118 type T = axclass Symtab.table * instances; |
118 type T = axclass Symtab.table * instances; |
119 |
119 |
120 val empty = (Symtab.empty, make_instances (Graph.empty, [], [])); |
120 val empty = (Symtab.empty, make_instances (Graph.empty, [], [])) : T; |
121 val copy = I; |
121 val copy = I; |
122 val extend = I; |
122 val extend = I; |
123 |
123 |
124 fun merge _ ((axclasses1, instances1), (axclasses2, instances2)) = |
124 fun merge _ ((axclasses1, instances1), (axclasses2, instances2)) = |
125 (Symtab.merge (K true) (axclasses1, axclasses2), merge_instances (instances1, instances2)); |
125 (Symtab.merge (K true) (axclasses1, axclasses2), merge_instances (instances1, instances2)); |