77 Data {is_body = is_body, names = names, fixes = fixes, binds = binds, |
77 Data {is_body = is_body, names = names, fixes = fixes, binds = binds, |
78 type_occs = type_occs, constraints = constraints}; |
78 type_occs = type_occs, constraints = constraints}; |
79 |
79 |
80 structure Data = ProofDataFun |
80 structure Data = ProofDataFun |
81 ( |
81 ( |
82 val name = "Pure/variable"; |
|
83 type T = data; |
82 type T = data; |
84 fun init thy = |
83 fun init thy = |
85 make_data (false, Name.context, [], Vartab.empty, Symtab.empty, (Vartab.empty, Vartab.empty)); |
84 make_data (false, Name.context, [], Vartab.empty, Symtab.empty, (Vartab.empty, Vartab.empty)); |
86 fun print _ _ = (); |
|
87 ); |
85 ); |
88 |
|
89 val _ = Context.add_setup Data.init; |
|
90 |
86 |
91 fun map_data f = |
87 fun map_data f = |
92 Data.map (fn Data {is_body, names, fixes, binds, type_occs, constraints} => |
88 Data.map (fn Data {is_body, names, fixes, binds, type_occs, constraints} => |
93 make_data (f (is_body, names, fixes, binds, type_occs, constraints))); |
89 make_data (f (is_body, names, fixes, binds, type_occs, constraints))); |
94 |
90 |