author | wenzelm |
Fri, 07 Mar 1997 15:05:00 +0100 | |
changeset 2763 | b3a03fc4deee |
parent 2762 | 2ade3a141934 |
child 2764 | d56b5df57d73 |
--- a/src/HOLCF/Sprod3.thy Fri Mar 07 15:03:57 1997 +0100 +++ b/src/HOLCF/Sprod3.thy Fri Mar 07 15:05:00 1997 +0100 @@ -23,9 +23,6 @@ "(|x, y, z|)" == "(|x, (|y, z|)|)" "(|x, y|)" == "spair`x`y" -syntax (symbols) - "@stuple" :: "['a, args] => 'a ** 'b" ("(1\\<lparr>_,/ _\\<rparr>)") - defs spair_def "spair == (LAM x y.Ispair x y)" sfst_def "sfst == (LAM p.Isfst p)"