norename class string inherit array{char}

    builtin

noncreation

    infix >(other: string): bool := cmp(other, char!cmp) > 0

    infix >=(other: string): bool := cmp(other, char!cmp) >= 0

    infix <(other: string): bool := cmp(other, char!cmp) < 0

    infix <=(other: string): bool := cmp(other, char!cmp) <= 0

end
