indexing
	description: "Infinite containers whose items are in one-to-one correspondence with the integers."
	names: countable, infinite, storage

deferred class interface
	COUNTABLE [G]

feature -- Access

	has (v: G): BOOLEAN
			-- Does structure include v?
			-- (Reference or object equality,
			-- based on object_comparison.)
			-- (from CONTAINER)
		ensure -- from CONTAINER
			not_found_in_empty: Result implies not empty

	item (i: INTEGER): G
			-- The i-th item
		require
			positive_argument: i > 0
	
feature -- Status report

	changeable_comparison_criterion: BOOLEAN
			-- May object_comparison be changed?
			-- (Answer: yes by default.)
			-- (from CONTAINER)

	Empty: BOOLEAN is false
			-- Is structure empty? (Answer: no.)
			-- (from INFINITE)

	Full: BOOLEAN is true
			-- The structure is complete
			-- (from INFINITE)

	object_comparison: BOOLEAN
			-- Must search operations use equal rather than =
			-- for comparing references? (Default: no, use =.)
			-- (from CONTAINER)
	
feature -- Status setting

	compare_objects
			-- Ensure that future search operations will use equal
			-- rather than = for comparing references.
			-- (from CONTAINER)
		require -- from CONTAINER
			changeable_comparison_criterion
		ensure -- from CONTAINER
			object_comparison

	compare_references
			-- Ensure that future search operations will use =
			-- rather than equal for comparing references.
			-- (from CONTAINER)
		require -- from CONTAINER
			changeable_comparison_criterion
		ensure -- from CONTAINER
			reference_comparison: not object_comparison
	
feature -- Conversion

	linear_representation: LINEAR [G]
			-- Representation as a linear structure
			-- (from CONTAINER)
	
invariant

		-- from GENERAL
	reflexive_equality: standard_is_equal (Current);
	reflexive_conformance: conforms_to (Current);
		-- from INFINITE
	never_empty: not empty;
	always_full: full;

end -- class COUNTABLE