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 Th23:
  a,b are_connected & c,a are_connected implies for A1,A2 being
Path of a,b, B being Path of c,a holds A1,A2 are_homotopic implies A1, -B+B+A2
  are_homotopic
proof
  assume that
A1: a,b are_connected and
A2: c,a are_connected;
  set X = the constant Path of a,a;
  let A1,A2 be Path of a,b, B be Path of c,a;
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:86;
  then -B+B+A2, X+A1 are_homotopic by A1,A4,BORSUK_6:75;
  hence thesis by A3,BORSUK_6:79;
end;
