theorem
  sqr(i |-> r) = i |-> r^2
proof
  reconsider s=r as Element of REAL by XREAL_0:def 1;
  sqr(i |-> s) = i |-> (sqrreal.s) by FINSEQOP:16
    .= i |-> r^2 by Def2;
  hence thesis;
end;
