let f, g be Function; :: thesis: ( f c= g iff ( dom f c= dom g & ( for x being object st x in dom f holds
f . x = g . x ) ) )
thus ( f c= g implies ( dom f c= dom g & ( for x being object st x in dom f holds
f . x = g . x ) ) ) :: thesis: ( dom f c= dom g & ( for x being object st x in dom f holds
f . x = g . x ) implies f c= g )

proof

assume A1: f c= g ; :: thesis: ( dom f c= dom g & ( for x being object st x in dom f holds
f . x = g . x ) )
hence dom f c= dom g by RELAT_1:11; :: thesis: for x being object st x in dom f holds
f . x = g . x
let x be object ; :: thesis: ( x in dom f implies f . x = g . x )
assume x in dom f ; :: thesis: f . x = g . x
then [x,(f . x)] in f by FUNCT_1:def 2;
hence f . x = g . x by A1, FUNCT_1:1; :: thesis: verum

end;

assume that
A2: dom f c= dom g and
A3: for x being object st x in dom f holds
f . x = g . x ; :: thesis: f c= g
let x, y be object ; :: according to RELAT_1:def 3 :: thesis: ( not [x,y] in f or [x,y] in g )
assume A4: [x,y] in f ; :: thesis: [x,y] in g
then A5: x in dom f by FUNCT_1:1;
y = f . x by A4, FUNCT_1:1;
then y = g . x by A3, A5;
hence [x,y] in g by A2, A5, FUNCT_1:def 2; :: thesis: verum