changeset 72154 | 2b41b710f6ef |
parent 71376 | 26801434d628 |
child 72450 | 24bd1316eaae |
--- a/src/HOL/Library/datatype_records.ML Fri Aug 14 14:25:08 2020 +0200 +++ b/src/HOL/Library/datatype_records.ML Fri Aug 14 14:40:24 2020 +0200 @@ -180,7 +180,6 @@ val (updates, (lthy'', lthy')) = lthy |> Local_Theory.open_target - |> snd |> Local_Theory.map_background_naming (Name_Space.qualified_path false (Binding.name short_name)) |> @{fold_map 2} define (map mk_name sels) (Syntax.check_terms lthy (map mk_t (0 upto len - 1))) ||> `Local_Theory.close_target