Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/BNF/bnf_gfp_grec_sugar.ML
changeset 72154 2b41b710f6ef
parent 71376 26801434d628
child 72450 24bd1316eaae 
--- a/src/HOL/Tools/BNF/bnf_gfp_grec_sugar.ML	Fri Aug 14 14:25:08 2020 +0200
+++ b/src/HOL/Tools/BNF/bnf_gfp_grec_sugar.ML	Fri Aug 14 14:40:24 2020 +0200
@@ -2054,7 +2054,7 @@
         val def = ((b, mx), ((Binding.concealed (Thm.def_binding b), []), def_rhs));
 
         val ((fun_lhs0, (_, fun_def0)), (lthy9, lthy8')) = lthy7
-          |> Local_Theory.open_target |> snd
+          |> Local_Theory.open_target
           |> Local_Theory.define def
           |> tap (fn (def, lthy') => print_def_consts int [def] lthy')
           ||> `Local_Theory.close_target;
isabelle