equal
deleted
inserted
replaced
190 val add_axioms = fold (snd oo Specification.axiom_cmd); |
190 val add_axioms = fold (snd oo Specification.axiom_cmd); |
191 |
191 |
192 fun add_defs ((unchecked, overloaded), args) thy = |
192 fun add_defs ((unchecked, overloaded), args) thy = |
193 thy |> |
193 thy |> |
194 (if unchecked then Global_Theory.add_defs_unchecked_cmd else Global_Theory.add_defs_cmd) |
194 (if unchecked then Global_Theory.add_defs_unchecked_cmd else Global_Theory.add_defs_cmd) |
195 overloaded (map (fn ((b, ax), srcs) => ((b, ax), map (Attrib.attribute thy) srcs)) args) |
195 overloaded |
|
196 (map (fn ((b, ax), srcs) => ((b, ax), map (Attrib.attribute_cmd_global thy) srcs)) args) |
196 |> snd; |
197 |> snd; |
197 |
198 |
198 |
199 |
199 (* declarations *) |
200 (* declarations *) |
200 |
201 |