src/HOL/Tools/datatype_rep_proofs.ML
changeset 11806 e1fd22a657ae
parent 11628 e57a6e51715e
child 11822 122834177ec1
--- a/src/HOL/Tools/datatype_rep_proofs.ML	Tue Oct 16 17:55:16 2001 +0200
+++ b/src/HOL/Tools/datatype_rep_proofs.ML	Tue Oct 16 17:55:38 2001 +0200
@@ -183,7 +183,7 @@
       setmp TypedefPackage.quiet_mode true
         (TypedefPackage.add_typedef_i_no_def name' (name, tvs, mx) c [] []
           (Some (QUIET_BREADTH_FIRST (has_fewer_prems 1)
-            (resolve_tac (Funs_nonempty::rep_intrs) 1)))) thy)
+            (resolve_tac (Funs_nonempty::rep_intrs) 1)))) thy |> #1)
               (parent_path flat_names thy2, types_syntax ~~ tyvars ~~
                 (take (length newTs, consts)) ~~ new_type_names));