reserve a,b,c,x,y,z for Real;

theorem Th18:
  sqrt 1 = 1
  proof
    sqrt 1^2 = 1 by Def2;
    hence thesis;
  end;
