src/HOL/Record.thy

--- a/src/HOL/Record.thy	Wed Sep 03 00:06:23 2014 +0200
+++ b/src/HOL/Record.thy	Wed Sep 03 00:06:24 2014 +0200
@@ -79,7 +79,7 @@
 
 subsection {* Operators and lemmas for types isomorphic to tuples *}
 
-datatype ('a, 'b, 'c) tuple_isomorphism =
+datatype_new (dead 'a, dead 'b, dead 'c) tuple_isomorphism =
   Tuple_Isomorphism "'a \<Rightarrow> 'b \<times> 'c" "'b \<times> 'c \<Rightarrow> 'a"
 
 primrec