let f, g be Function of (SCM-Instr R),(Funcs (product (SCM-OK R)),(product (SCM-OK R))); :: thesis: ( ( for x being Element of SCM-Instr R
for y being SCM-State of R holds (f . x) . y = SCM-Exec-Res x,y ) & ( for x being Element of SCM-Instr R
for y being SCM-State of R holds (g . x) . y = SCM-Exec-Res x,y ) implies f = g )
assume that
A2: for x being Element of SCM-Instr R
for y being SCM-State of R holds (f . x) . y = SCM-Exec-Res x,y and
A3: for x being Element of SCM-Instr R
for y being SCM-State of R holds (g . x) . y = SCM-Exec-Res x,y ; :: thesis: f = g

now

let x be Element of SCM-Instr R; :: thesis: f . x = g . x
reconsider gx = g . x, fx = f . x as Function of (product (SCM-OK R)),(product (SCM-OK R)) ;

now

let y be SCM-State of R; :: thesis: fx . y = gx . y
thus fx . y = SCM-Exec-Res x,y by A2
.= gx . y by A3 ; :: thesis: verum

end;

hence f . x = g . x by FUNCT_2:113; :: thesis: verum

end;

hence f = g by FUNCT_2:113; :: thesis: verum