reserve r1,r2,r3 for non negative Real;
reserve n,m1 for Nat;
reserve s for Real;
reserve cn,cd,i1,j1 for Integer;
reserve r for irrational Real;
reserve q for Rational;

theorem Th20:
  r1*r2=((r1+r2)/2)^2 iff r1 = r2
proof
   hereby
     assume r1*r2=((r1+r2)/2)^2;
     then sqrt( r1*r2) = (r1+r2)/2 by SQUARE_1:22;
     hence r1=r2 by Th19;
   end;
   thus thesis;
end;
