theorem Th90:
  a in A implies f.a in f.:A
proof
A1: dom f = the carrier of AFS by FUNCT_2:52;
  assume a in A;
  hence thesis by A1,FUNCT_1:def 6;
end;
