let s be SCM-State; for t being Element of SCM-Data-Loc
for u being Integer
for mk being Element of SCM-Data-Loc st mk <> t holds
(SCM-Chg (s,t,u)) . mk = s . mk
let t be Element of SCM-Data-Loc ; for u being Integer
for mk being Element of SCM-Data-Loc st mk <> t holds
(SCM-Chg (s,t,u)) . mk = s . mk
let u be Integer; for mk being Element of SCM-Data-Loc st mk <> t holds
(SCM-Chg (s,t,u)) . mk = s . mk
let mk be Element of SCM-Data-Loc ; ( mk <> t implies (SCM-Chg (s,t,u)) . mk = s . mk )
assume A1:
mk <> t
; (SCM-Chg (s,t,u)) . mk = s . mk
not mk in dom (t .--> u)
by A1, TARSKI:def 1;
hence
(SCM-Chg (s,t,u)) . mk = s . mk
by FUNCT_4:11; verum