author | berghofe |
Thu, 19 Jan 2006 14:59:55 +0100 | |
changeset 18706 | 1e7562c7afe6 |
parent 18705 | 0874fdca3748 |
child 18707 | 9d6154f76476 |
--- 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"