src/HOL/Library/datatype_records.ML
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