src/Pure/Isar/locale.ML
changeset 19873 588329441a78
parent 19810 dae765e552ce
child 19900 21a99d88d925
equal deleted inserted replaced
19872:1b53b196f85f 19873:588329441a78
  1959         get_global_registration thy (name, map Logic.varify ps))
  1959         get_global_registration thy (name, map Logic.varify ps))
  1960       (global_note_prefix_i "")
  1960       (global_note_prefix_i "")
  1961       Attrib.attribute_i Drule.standard
  1961       Attrib.attribute_i Drule.standard
  1962       (fn (name, ps) => put_global_registration (name, map Logic.varify ps))
  1962       (fn (name, ps) => put_global_registration (name, map Logic.varify ps))
  1963       (fn (n, ps) => add_global_witness (n, map Logic.varify ps) o
  1963       (fn (n, ps) => add_global_witness (n, map Logic.varify ps) o
  1964         Element.map_witness (fn (t, th) => (Logic.legacy_unvarify t, Drule.freeze_all th))
  1964         Element.map_witness (fn (t, th) => (Logic.legacy_unvarify t, Drule.unvarify th))
  1965         (* FIXME *)) x;
  1965         (* FIXME *)) x;
  1966 
  1966 
  1967 fun local_activate_facts_elemss x = gen_activate_facts_elemss
  1967 fun local_activate_facts_elemss x = gen_activate_facts_elemss
  1968       get_local_registration
  1968       get_local_registration
  1969       local_note_prefix_i
  1969       local_note_prefix_i