src/HOL/Tools/BNF/bnf_def.ML
changeset 60948 b710a5087116
parent 60927 6584c0f3f0e0
child 61101 7b915ca69af1
equal deleted inserted replaced
60947:d5f7b424ba47 60948:b710a5087116
   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);