let s be SCM+FSA-State; :: thesis: for u being Nat
for mk being Element of SCM+FSA-Data-Loc holds (SCM+FSA-Chg (s,u)) . mk = s . mk
let u be Nat; :: thesis: for mk being Element of SCM+FSA-Data-Loc holds (SCM+FSA-Chg (s,u)) . mk = s . mk
let mk be Element of SCM+FSA-Data-Loc ; :: thesis: (SCM+FSA-Chg (s,u)) . mk = s . mk
( (SCM*-VAL * SCM+FSA-OK) . mk = INT & {NAT} = dom (NAT .--> u) ) by Th5;
then not mk in dom (NAT .--> u) by Th4, NUMBERS:7, TARSKI:def 1;
hence (SCM+FSA-Chg (s,u)) . mk = s . mk by FUNCT_4:11; :: thesis: verum