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 Th46:
  a,b are_connected implies for P, Q being Path of a,b holds Class
  (EqRel(X,a,b),P) = Class(EqRel(X,a,b),Q) iff P,Q are_homotopic
proof
  set E = EqRel(X,a,b);
  assume
A1: a,b are_connected;
  let P, Q be Path of a,b;
A2: Q in Paths(a,b) by Def1;
A3: E is non empty total symmetric transitive by A1,Lm3;
  hereby
    assume Class(E,P) = Class(E,Q);
    then P in Class(E,Q) by A3,A2,EQREL_1:23;
    hence P,Q are_homotopic by A1,Th45;
  end;
  assume P,Q are_homotopic;
  then P in Class(E,Q) by A1,Th45;
  hence thesis by A3,A2,EQREL_1:23;
end;
