Bryan@SIERRA.STANFORD.EDU (Doug Bryan) (09/24/86)
To: "Pat Rogers, High Tech Lab" <ROGERS%uhcl.csnet@CSNET-RELAY.ARPA> Pat, you were so close. You had the right idea when you derived from Integer. Does the following do what you want? package P is type LP is limited private; function "="( Left, Right : LP ) return Boolean; private type D is access Integer; type LP is new D; end P; function "="( Left, Right : LP ) return Boolean is begin return D (Left) = D (Right); end "="; doug -------