let s be SCM+FSA-State; :: thesis: for u being Element of NAT
for p being Element of SCM+FSA-Data*-Loc holds (SCM+FSA-Chg (s,u)) . p = s . p
let u be Element of NAT ; :: thesis: for p being Element of SCM+FSA-Data*-Loc holds (SCM+FSA-Chg (s,u)) . p = s . p
let mk be Element of SCM+FSA-Data*-Loc ; :: thesis: (SCM+FSA-Chg (s,u)) . mk = s . mk
( SCM+FSA-OK . mk = INT * & {NAT} = dom (NAT .--> u) ) by Th12, FUNCOP_1:13;
then not mk in dom (NAT .--> u) by Th9, Th13, TARSKI:def 1;
hence (SCM+FSA-Chg (s,u)) . mk = s . mk by FUNCT_4:11; :: thesis: verum