let i1, i2 be Nat; :: thesis: for f being constant standard special_circular_sequence
for g1, g2 being FinSequence of (TOP-REAL 2) st i1 <> i2 & g1 is_a_part_of f,i1,i2 & g2 is_a_part_of f,i1,i2 & g1 . 2 = g2 . 2 holds
g1 = g2

let f be constant standard special_circular_sequence; :: thesis: for g1, g2 being FinSequence of (TOP-REAL 2) st i1 <> i2 & g1 is_a_part_of f,i1,i2 & g2 is_a_part_of f,i1,i2 & g1 . 2 = g2 . 2 holds
g1 = g2

let g1, g2 be FinSequence of (TOP-REAL 2); :: thesis: ( i1 <> i2 & g1 is_a_part_of f,i1,i2 & g2 is_a_part_of f,i1,i2 & g1 . 2 = g2 . 2 implies g1 = g2 )
assume that
A1: i1 <> i2 and
A2: g1 is_a_part_of f,i1,i2 and
A3: g2 is_a_part_of f,i1,i2 and
A4: g1 . 2 = g2 . 2 ; :: thesis: g1 = g2
per cases ( g1 is_a_part>_of f,i1,i2 or g1 is_a_part<_of f,i1,i2 ) by A2;
suppose A5: g1 is_a_part>_of f,i1,i2 ; :: thesis: g1 = g2
now :: thesis: ( ( g2 is_a_part>_of f,i1,i2 & g1 = g2 ) or ( g2 is_a_part<_of f,i1,i2 & contradiction ) )
per cases ( g2 is_a_part>_of f,i1,i2 or g2 is_a_part<_of f,i1,i2 ) by A3;
case g2 is_a_part>_of f,i1,i2 ; :: thesis: g1 = g2
hence g1 = g2 by A5, Th52; :: thesis: verum
end;
end;
end;
hence g1 = g2 ; :: thesis: verum
end;
suppose A6: g1 is_a_part<_of f,i1,i2 ; :: thesis: g1 = g2
now :: thesis: ( ( g2 is_a_part>_of f,i1,i2 & contradiction ) or ( g2 is_a_part<_of f,i1,i2 & g1 = g2 ) )
per cases ( g2 is_a_part>_of f,i1,i2 or g2 is_a_part<_of f,i1,i2 ) by A3;
case g2 is_a_part<_of f,i1,i2 ; :: thesis: g1 = g2
hence g1 = g2 by A6, Th53; :: thesis: verum
end;
end;
end;
hence g1 = g2 ; :: thesis: verum
end;
end;