theorem
  c in dom f implies f*(SE --> c) = SE --> f/.c
proof
  assume
A1: c in dom f;
  then f*(SE --> c) = SE --> (f qua Function).c by FUNCOP_1:17;
  hence thesis by A1,PARTFUN1:def 6;
end;
