--- a/src/HOLCF/Tr.thy Tue Mar 11 13:05:40 1997 +0100 +++ b/src/HOLCF/Tr.thy Tue Mar 11 14:21:10 1997 +0100 @@ -8,10 +8,11 @@ Tr = Lift + -syntax - tr :: "type" +types + tr = "bool lift" + translations - "tr" == (type) "bool lift" + "tr" <= (type) "bool lift" consts TT,FF :: "tr"