reserve a,b,c,d,e,f for Real,
        g           for positive Real,
        x,y         for Complex,
        S,T         for Element of REAL 2,
        u,v,w       for Element of TOP-REAL 3;

theorem Th11:
  a^2 + b^2 = 1 iff |[a,b]| in circle(0,0,1)
  proof
    hereby
      assume
A1:   a^2 + b^2 = 1;
      reconsider p = |[a,b]| as Point of TOP-REAL 2;
      |. p - |[0,0]| .| = 1
      proof
        |. p - |[0,0]| .|^2 = |. |[a - 0,b - 0]| .|^2 by EUCLID:62
                           .= 1 by A1,TOPGEN_5:9;
        hence thesis by SQUARE_1:41;
      end;
      hence |[a,b]| in circle(0,0,1);
    end;
    assume
A2: |[a,b]| in  circle(0,0,1);
    thus a^2 + b^2 = |. |[a - 0,b - 0]| .|^2 by TOPGEN_5:9
             .= |. |[a,b]| - |[0,0]| .|^2 by EUCLID:62
             .= 1^2 by A2,TOPREAL9:43
             .= 1;
  end;
