    deferred class
    	SORTED_STRUCT [G -> COMPARABLE]

    General
    	cluster: base
    	description: "Structures whose items are sorted according to a total order relation"

    Ancestors
    	COMPARABLE_STRUCT* [G -> COMPARABLE]
    	INDEXABLE* [G, H -> INTEGER_32]
    	LINEAR* [G]

    Queries
    	after: BOOLEAN
    	before: BOOLEAN
    	changeable_comparison_criterion: BOOLEAN
    	exhausted: BOOLEAN
    	extendible: BOOLEAN
    	for_all (test: FUNCTION [ANY, TUPLE [G], BOOLEAN]): BOOLEAN
    	has (v: [like item] G): BOOLEAN
    	i_th (k: INTEGER_32): G
    	index: INTEGER_32
    	index_of (v: [like item] G; i: INTEGER_32): INTEGER_32
    	index_set: INTEGER_INTERVAL
    	infix "@" (k: INTEGER_32): G
    	is_empty: BOOLEAN
    	is_inserted (v: G): BOOLEAN
    	item: G
    	linear_representation: LINEAR [G]
    	max: [like item] G
    	median: [like item] G
    	min: [like item] G
    	min_max_available: BOOLEAN
    	object_comparison: BOOLEAN
    	occurrences (v: [like item] G): INTEGER_32
    	off: BOOLEAN
    	prunable: BOOLEAN
    	sorted: BOOLEAN
    	there_exists (test: FUNCTION [ANY, TUPLE [G], BOOLEAN]): BOOLEAN
    	valid_index (i: INTEGER_32): BOOLEAN

    Commands
    	back
    	compare_objects
    	compare_references
    	do_all (action: PROCEDURE [ANY, TUPLE [G]])
    	do_if (action: PROCEDURE [ANY, TUPLE [G]]; test: FUNCTION [ANY, TUPLE [G], BOOLEAN])
    	extend (v: G)
    	fill (other: CONTAINER [G])
    	finish
    	forth
    	prune (v: G)
    	prune_all (v: G)
    	put_i_th (v: G; k: INTEGER_32)
    	search (v: [like item] G)
    	sort
    	start
    	wipe_out