src/Pure/axclass.ML
changeset 19398 8ad34412ea97
parent 19392 a631cd2117a8
child 19405 a551256aba15
equal deleted inserted replaced
19397:524f1cb4652a 19398:8ad34412ea97
   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));