src/Pure/Isar/isar_cmd.ML
changeset 47815 43f677b3ae91
parent 46922 3717f3878714
child 48776 37cd53e69840
equal deleted inserted replaced
47814:53668571d300 47815:43f677b3ae91
   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