src/HOL/Tools/Lifting/lifting_def.ML
changeset 72154 2b41b710f6ef
parent 70494 41108e3e9ca5
child 72450 24bd1316eaae
--- a/src/HOL/Tools/Lifting/lifting_def.ML	Fri Aug 14 14:25:08 2020 +0200
+++ b/src/HOL/Tools/Lifting/lifting_def.ML	Fri Aug 14 14:40:24 2020 +0200
@@ -612,7 +612,7 @@
           opt_rep_eq_thm code_eq transfer_rules
   in
     lthy2
-    |> Local_Theory.open_target |> snd
+    |> Local_Theory.open_target
     |> Local_Theory.notes (notes (#notes config)) |> snd
     |> `(fn lthy => morph_lift_def (Local_Theory.target_morphism lthy) lift_def)
     ||> Local_Theory.close_target