src/HOL/Product_Type.thy
changeset 18706 1e7562c7afe6
parent 18702 7dc7dcd63224
child 18708 4b3dadb4fe33
--- 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"