equal
deleted
inserted
replaced
807 ((b, NoSyn), ((Thm.def_binding b, []), rhs)) lthy) |
807 ((b, NoSyn), ((Thm.def_binding b, []), rhs)) lthy) |
808 end |
808 end |
809 end; |
809 end; |
810 |
810 |
811 fun maybe_restore lthy_old lthy = |
811 fun maybe_restore lthy_old lthy = |
812 lthy |> not (Theory.eq_thy (apply2 Proof_Context.theory_of (lthy_old, lthy))) |
812 lthy |> not (Context.eq_thy (apply2 Proof_Context.theory_of (lthy_old, lthy))) |
813 ? Local_Theory.restore; |
813 ? Local_Theory.restore; |
814 |
814 |
815 val map_bind_def = |
815 val map_bind_def = |
816 (fn () => def_qualify (if Binding.is_empty map_b then mk_prefix_binding mapN else map_b), |
816 (fn () => def_qualify (if Binding.is_empty map_b then mk_prefix_binding mapN else map_b), |
817 map_rhs); |
817 map_rhs); |