equal
deleted
inserted
replaced
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 |