let S, T be non empty TopSpace; :: thesis: for s1, s2 being Point of S
for t1, t2 being Point of T st [s1,t1],[s2,t2] are_connected holds
for L being Path of [s1,t1],[s2,t2] holds pr2 L is Path of t1,t2
let s1, s2 be Point of S; :: thesis: for t1, t2 being Point of T st [s1,t1],[s2,t2] are_connected holds
for L being Path of [s1,t1],[s2,t2] holds pr2 L is Path of t1,t2
let t1, t2 be Point of T; :: thesis: ( [s1,t1],[s2,t2] are_connected implies for L being Path of [s1,t1],[s2,t2] holds pr2 L is Path of t1,t2 )
assume A1: [s1,t1],[s2,t2] are_connected ; :: thesis: for L being Path of [s1,t1],[s2,t2] holds pr2 L is Path of t1,t2
let L be Path of [s1,t1],[s2,t2]; :: thesis: pr2 L is Path of t1,t2
set f = pr2 L;
A2: dom (pr2 L) = the carrier of I[01] by FUNCT_2:def 1;
L is continuous by A1, BORSUK_2:def 2;
then A3: pr2 L is continuous by Th10;
A4: dom (pr2 L) = dom L by MCART_1:def 13;
then j0 in dom L by A2;
then A5: (pr2 L) . 0 = (L . 0 ) `2 by MCART_1:def 13
.= [s1,t1] `2 by A1, BORSUK_2:def 2
.= t1 by MCART_1:def 2 ;
j1 in dom L by A2, A4;
then A6: (pr2 L) . 1 = (L . 1) `2 by MCART_1:def 13
.= [s2,t2] `2 by A1, BORSUK_2:def 2
.= t2 by MCART_1:def 2 ;
then t1,t2 are_connected by A3, A5, BORSUK_2:def 1;
hence pr2 L is Path of t1,t2 by A3, A5, A6, BORSUK_2:def 2; :: thesis: verum