theorem
 dom f c= dom g & (for c st c in dom f holds f/.c = g/.c) implies f c= g
proof
  assume that
A1: dom f c= dom g and
A2: for c st c in dom f holds f/.c = g/.c;
  now
    let x be object;
    assume
A3: x in dom f;
    then reconsider x1=x as Element of C;
    f/.x1 = g/.x1 by A2,A3;
    then (f qua Function).x = g/.x1 by A3,PARTFUN1:def 6;
    hence (f qua Function).x = (g qua Function).x by A1,A3,PARTFUN1:def 6;
  end;
  hence thesis by A1,GRFUNC_1:2;
end;
