let X, Y be set ; :: thesis: for f, g being Function st f c= g holds
<:f,X,Y:> c= <:g,X,Y:>
let f, g be Function; :: thesis: ( f c= g implies <:f,X,Y:> c= <:g,X,Y:> )
assume A1: f c= g ; :: thesis: <:f,X,Y:> c= <:g,X,Y:>
A2: dom <:f,X,Y:> c= dom f by Th23;

now :: thesis: ( dom <:f,X,Y:> c= dom <:g,X,Y:> & ( for x being object st x in dom <:f,X,Y:> holds
<:f,X,Y:> . x = <:g,X,Y:> . x ) )

thus A3: dom <:f,X,Y:> c= dom <:g,X,Y:> :: thesis: for x being object st x in dom <:f,X,Y:> holds
<:f,X,Y:> . x = <:g,X,Y:> . x

proof

let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in dom <:f,X,Y:> or x in dom <:g,X,Y:> )
A4: dom f c= dom g by A1, RELAT_1:11;
assume A5: x in dom <:f,X,Y:> ; :: thesis: x in dom <:g,X,Y:>
then A6: f . x = g . x by A1, A2, GRFUNC_1:2;
( x in dom f & f . x in Y ) by A5, Th24;
hence x in dom <:g,X,Y:> by A5, A4, A6, Th24; :: thesis: verum

end;

let x be object ; :: thesis: ( x in dom <:f,X,Y:> implies <:f,X,Y:> . x = <:g,X,Y:> . x )
assume A7: x in dom <:f,X,Y:> ; :: thesis: <:f,X,Y:> . x = <:g,X,Y:> . x
then A8: <:f,X,Y:> . x = f . x by Th26;
<:g,X,Y:> . x = g . x by A3, A7, Th26;
hence <:f,X,Y:> . x = <:g,X,Y:> . x by A1, A2, A7, A8, GRFUNC_1:2; :: thesis: verum

end;

hence <:f,X,Y:> c= <:g,X,Y:> by GRFUNC_1:2; :: thesis: verum