class TEST1

inherit
	COMPARABLE

feature

	infix "<" (other: like Current): BOOLEAN
		do
		end

end