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