# HG changeset patch
# User wenzelm
# Date 976819117 -3600
# Node ID 0b40c19f09f3665f689229b5b61994887e8b7a43
# Parent  2cc6415c18018fe97f6cb2cb4a218a06d9056dd1
'typedef': present result theorem "type_definition Rep Abs A";

diff -r 2cc6415c1801 -r 0b40c19f09f3 src/HOL/Tools/typedef_package.ML
--- a/src/HOL/Tools/typedef_package.ML	Thu Dec 14 19:37:43 2000 +0100
+++ b/src/HOL/Tools/typedef_package.ML	Thu Dec 14 19:38:37 2000 +0100
@@ -167,7 +167,7 @@
       |> PureThy.add_axioms_i [((typedef_name, typedef_prop), [])]
       |> (fn (theory', typedef_ax) =>
         let fun make th = standard (th OF typedef_ax) in
-          theory'
+          rpair (hd typedef_ax) (theory'
           |> (#1 oo PureThy.add_thms)
             ([((Rep_name, make Rep), []),
               ((Rep_name ^ "_inverse", make Rep_inverse), []),
@@ -181,7 +181,7 @@
               ((Rep_name ^ "_induct", make Rep_induct),
                 [RuleCases.case_names [Rep_name], InductAttrib.induct_set_global full_name]),
               ((Abs_name ^ "_induct", make Abs_induct),
-                [RuleCases.case_names [Abs_name], InductAttrib.induct_type_global full_tname])])
+                [RuleCases.case_names [Abs_name], InductAttrib.induct_type_global full_tname])]))
         end)
       handle ERROR => err_in_typedef name;
 
@@ -219,7 +219,7 @@
   let
     val (cset, _, do_typedef) = prepare_typedef prep_term no_def name typ set thy;
     val result = prove_nonempty thy cset (names, thms, tac);
-  in check_nonempty cset result; thy |> do_typedef end;
+  in check_nonempty cset result; thy |> do_typedef |> #1 end;
 
 val add_typedef = gen_add_typedef read_term false;
 val add_typedef_i = gen_add_typedef cert_term false;
@@ -229,7 +229,7 @@
 (* typedef_proof interface *)
 
 fun typedef_attribute cset do_typedef (thy, thm) =
-  (check_nonempty cset (thm RS (some_eq_ex RS iffD2)); (thy |> do_typedef, thm));
+  (check_nonempty cset (thm RS (some_eq_ex RS iffD2)); (thy |> do_typedef));
 
 fun gen_typedef_proof prep_term ((name, typ, set), comment) int thy =
   let