diff -r 0874fdca3748 -r 1e7562c7afe6 src/HOL/Product_Type.thy
--- a/src/HOL/Product_Type.thy	Thu Jan 19 10:22:13 2006 +0100
+++ b/src/HOL/Product_Type.thy	Thu Jan 19 14:59:55 2006 +0100
@@ -774,6 +774,11 @@
 fun gen_id_42 aG bG i = (aG i, bG i);
 *}
 
+consts_code
+  "Pair"    ("(_,/ _)")
+  "fst"     ("fst")
+  "snd"     ("snd")
+
 code_alias
   "*" "Product_Type.*"
   "Pair" "Product_Type.Pair"