--- a/src/HOLCF/ex/Hoare.thy Fri Dec 13 11:00:44 1996 +0100 +++ b/src/HOLCF/ex/Hoare.thy Fri Dec 13 11:46:20 1996 +0100 @@ -21,7 +21,7 @@ *) -Hoare = Tr2 + +Hoare = HOLCF + consts b1:: "'a -> tr"