let n be Nat; :: thesis: for a, b being Point of (TOP-REAL n)
for P, Q being Path of a,b holds RealHomotopy (P,Q) is Homotopy of P,Q

let a, b be Point of (TOP-REAL n); :: thesis: for P, Q being Path of a,b holds RealHomotopy (P,Q) is Homotopy of P,Q
let P, Q be Path of a,b; :: thesis: RealHomotopy (P,Q) is Homotopy of P,Q
thus P,Q are_homotopic by Th60; :: according to BORSUK_6:def 13 :: thesis: ( RealHomotopy (P,Q) is continuous & ( for b1 being Element of the carrier of K634() holds
( (RealHomotopy (P,Q)) . (b1,0) = P . b1 & (RealHomotopy (P,Q)) . (b1,1) = Q . b1 & (RealHomotopy (P,Q)) . (0,b1) = a & (RealHomotopy (P,Q)) . (1,b1) = b ) ) )

A1: n in NAT by ORDINAL1:def 13;
then P is continuous ;
hence RealHomotopy (P,Q) is continuous by A1; :: thesis: for b1 being Element of the carrier of K634() holds
( (RealHomotopy (P,Q)) . (b1,0) = P . b1 & (RealHomotopy (P,Q)) . (b1,1) = Q . b1 & (RealHomotopy (P,Q)) . (0,b1) = a & (RealHomotopy (P,Q)) . (1,b1) = b )

thus for b1 being Element of the carrier of K634() holds
( (RealHomotopy (P,Q)) . (b1,0) = P . b1 & (RealHomotopy (P,Q)) . (b1,1) = Q . b1 & (RealHomotopy (P,Q)) . (0,b1) = a & (RealHomotopy (P,Q)) . (1,b1) = b ) by Lm6; :: thesis: verum