let N be non empty with_non-empty_elements set ; :: thesis: for A being non empty stored-program IC-Ins-separated steady-programmed definite standard AMI-Struct of N
for I being Instruction of A
for s being State of A
for o being Object of A
for w being Element of ObjectKind o
for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let A be non empty stored-program IC-Ins-separated steady-programmed definite standard AMI-Struct of N; :: thesis: for I being Instruction of A
for s being State of A
for o being Object of A
for w being Element of ObjectKind o
for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let I be Instruction of A; :: thesis: for s being State of A
for o being Object of A
for w being Element of ObjectKind o
for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let s be State of A; :: thesis: for o being Object of A
for w being Element of ObjectKind o
for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let o be Object of A; :: thesis: for w being Element of ObjectKind o
for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let w be Element of ObjectKind o; :: thesis: for i being Element of NAT holds (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
let i be Element of NAT ; :: thesis: (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i
A1: (Exec I,(s +* o,w)) . i = (s +* o,w) . i by AMI_1:def 13;
A2: dom (Exec I,s) = the carrier of A by PARTFUN1:def 4;
A3: dom s = the carrier of A by PARTFUN1:def 4;

per cases ( i = o or i <> o ) ;

suppose A4: i = o ; :: thesis: (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i

hence (Exec I,(s +* o,w)) . i = w by A1, A3, FUNCT_7:33
.= ((Exec I,s) +* o,w) . i by A2, A4, FUNCT_7:33 ;
:: thesis: verum

end;

suppose A5: i <> o ; :: thesis: (Exec I,(s +* o,w)) . i = ((Exec I,s) +* o,w) . i

hence (Exec I,(s +* o,w)) . i = s . i by A1, FUNCT_7:34
.= (Exec I,s) . i by AMI_1:def 13
.= ((Exec I,s) +* o,w) . i by A5, FUNCT_7:34 ;
:: thesis: verum

end;

end;