changeset 42375 | 774df7c59508 |
parent 42360 | da8817d01e7c |
child 42440 | 5e7a7343ab11 |
--- a/src/Pure/Isar/specification.ML Sun Apr 17 13:47:22 2011 +0200 +++ b/src/Pure/Isar/specification.ML Sun Apr 17 19:54:04 2011 +0200 @@ -180,7 +180,7 @@ (*axioms*) val (axioms, axioms_thy) = (specs, consts_thy) |-> fold_map (fn ((b, atts), props) => - fold_map Thm.add_axiom + fold_map Thm.add_axiom_global (map (apfst (fn a => Binding.map_name (K a) b)) (Global_Theory.name_multi (Variable.name b) (map subst props))) #>> (fn ths => ((b, atts), [(map #2 ths, [])])));