class TEST1

inherit
	COMPARABLE

feature

	is_less alias "<" (other: like Current): BOOLEAN
		do
		end

end