--* From PETEB%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Aug 23 19:00:15 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA25749; Tue, 23 Aug 1994 19:00:15 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 6757; Tue, 23 Aug 94 19:00:20 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.PETEB.NOTE.VAGENT2.9507.Aug.23.19:00:19.-0400>
--*           for asbugs@watson; Tue, 23 Aug 94 19:00:20 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 9503; Tue, 23 Aug 1994 19:00:19 EDT
--* Received: from pi.watson.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 23 Aug 94 19:00:19 EDT
--* Received: by pi.watson.ibm.com (AIX 3.2/UCB 5.64/4.03)
--*           id AA17935; Tue, 23 Aug 1994 18:56:17 -0500
--* Date: Tue, 23 Aug 1994 18:56:17 -0500
--* From: pab@pi.watson.ibm.com
--* Message-Id: <9408232356.AA17935@pi.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [3] Inlining from defaults and losing default bit

--@ Fixed  by:  SSD   Tue Mar 21 12:34:41 EST 1995 
--@ Tested by:  none 
--@ Summary:    Fixed lookup of code from add parents. 


-- Command line: asharp -O file.as
-- Version: 36.5
-- Original bug file name: d0.as

#include "aslib"

Foo(X: Ring): Ring with {
	nearlyZero?: % -> Boolean;
} == X add {
	nearlyZero?(x: %): Boolean == zero? x;
}