src/Pure/theory.ML
changeset 33159 369da293bbd4
parent 33096 db3c18fd9708
child 33168 853493e5d5d4
equal deleted inserted replaced
33156:57222d336c86 33159:369da293bbd4
    87 fun make_thy (axioms, defs, wrappers) = Thy {axioms = axioms, defs = defs, wrappers = wrappers};
    87 fun make_thy (axioms, defs, wrappers) = Thy {axioms = axioms, defs = defs, wrappers = wrappers};
    88 
    88 
    89 structure ThyData = TheoryDataFun
    89 structure ThyData = TheoryDataFun
    90 (
    90 (
    91   type T = thy;
    91   type T = thy;
    92   val empty_axioms = Name_Space.empty_table "axiom";
    92   val empty_axioms = Name_Space.empty_table "axiom" : term Name_Space.table;
    93   val empty = make_thy (empty_axioms, Defs.empty, ([], []));
    93   val empty = make_thy (empty_axioms, Defs.empty, ([], []));
    94   val copy = I;
    94   val copy = I;
    95 
    95 
    96   fun extend (Thy {axioms = _, defs, wrappers}) = make_thy (empty_axioms, defs, wrappers);
    96   fun extend (Thy {axioms = _, defs, wrappers}) = make_thy (empty_axioms, defs, wrappers);
    97 
    97