reserve p, q, x, y for Real,
  n for Nat;
reserve X for non empty TopSpace,
  a, b, c, d, e, f for Point of X,
  T for non empty pathwise_connected TopSpace,
  a1, b1, c1, d1, e1, f1 for Point of T;

theorem Th25:
  a,b are_connected & a,c are_connected implies for A1,A2 being
Path of a,b, B being Path of a,c holds A1,A2 are_homotopic implies A1, B+-B+A2
  are_homotopic
proof
  assume that
A1: a,b are_connected and
A2: a,c are_connected;
  set X = the constant Path of a,a;
  let A1,A2 be Path of a,b, B be Path of a,c;
A3: A1, X+A1 are_homotopic by A1,BORSUK_6:82;
  assume
A4: A1, A2 are_homotopic;
  B+-B, X are_homotopic by A2,BORSUK_6:84;
  then B+-B+A2, X+A1 are_homotopic by A1,A4,BORSUK_6:75;
  hence thesis by A3,BORSUK_6:79;
end;
