src/HOL/Tools/Lifting/lifting_setup.ML
changeset 81106 849efff7de15
parent 80673 5aa376b7abb8
child 81116 0fb1e2dd4122
equal deleted inserted replaced
81105:f14fcf94e0e9 81106:849efff7de15
   243       ([dummy_thm], [map Token.make_string0 ["Lifting.lifting_restore_internal", bundle_name]])
   243       ([dummy_thm], [map Token.make_string0 ["Lifting.lifting_restore_internal", bundle_name]])
   244   in
   244   in
   245     lthy
   245     lthy
   246     |> Local_Theory.declaration {syntax = false, pervasive = true, pos = \<^here>}
   246     |> Local_Theory.declaration {syntax = false, pervasive = true, pos = \<^here>}
   247         (fn phi => Lifting_Info.init_restore_data bundle_name (phi_qinfo phi))
   247         (fn phi => Lifting_Info.init_restore_data bundle_name (phi_qinfo phi))
   248     |> Bundle.bundle ((binding, [restore_lifting_att])) []
   248     |> Bundle.bundle {open_bundle = false} ((binding, [restore_lifting_att])) []
   249     |> pair binding
   249     |> pair binding
   250   end
   250   end
   251 
   251 
   252 fun setup_lifting_infr config quot_thm opt_reflp_thm lthy =
   252 fun setup_lifting_infr config quot_thm opt_reflp_thm lthy =
   253   let
   253   let