let f be constant standard special_circular_sequence; :: thesis: for g being FinSequence of (TOP-REAL 2)
for i1, i2 being Nat st g is_a_part>_of f,i1,i2 & i1 <> i2 holds
L~ g is_S-P_arc_joining f /. i1,f /. i2
let g be FinSequence of (TOP-REAL 2); :: thesis: for i1, i2 being Nat st g is_a_part>_of f,i1,i2 & i1 <> i2 holds
L~ g is_S-P_arc_joining f /. i1,f /. i2
let i1, i2 be Nat; :: thesis: ( g is_a_part>_of f,i1,i2 & i1 <> i2 implies L~ g is_S-P_arc_joining f /. i1,f /. i2 )
assume that
A1: g is_a_part>_of f,i1,i2 and
A2: i1 <> i2 ; :: thesis: L~ g is_S-P_arc_joining f /. i1,f /. i2

now :: thesis: ( ( i1 < i2 & L~ g is_S-P_arc_joining f /. i1,f /. i2 ) or ( i1 >= i2 & L~ g is_S-P_arc_joining f /. i1,f /. i2 ) )

per cases ( i1 < i2 or i1 >= i2 ) ;

case i1 < i2 ; :: thesis: L~ g is_S-P_arc_joining f /. i1,f /. i2

hence L~ g is_S-P_arc_joining f /. i1,f /. i2 by A1, Th44; :: thesis: verum

end;

case i1 >= i2 ; :: thesis: L~ g is_S-P_arc_joining f /. i1,f /. i2

then i1 > i2 by A2, XXREAL_0:1;
hence L~ g is_S-P_arc_joining f /. i1,f /. i2 by A1, Lm1; :: thesis: verum

end;

end;

end;

hence L~ g is_S-P_arc_joining f /. i1,f /. i2 ; :: thesis: verum