Copyright (C) 1994, Digital Equipment Corp. MODULE; IMPORT Word; PROCEDURE Boolean Compare (a, b: T): [-1..1] = BEGIN RETURN ORD (a) - ORD (b); END Compare; PROCEDUREEqual (a, b: T): BOOLEAN = BEGIN RETURN (a = b); END Equal; PROCEDUREHash (a: T): Word.T = BEGIN RETURN ORD (a); END Hash; BEGIN END Boolean.