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