changeset 2763 | b3a03fc4deee |
parent 2640 | ee4dfce170a0 |
child 3842 | b55686a7b22c |
--- 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)"