let i be Element of SCM+FSA-Memory ; :: thesis: ( SCM+FSA-OK . i = INT implies i in SCM+FSA-Data-Loc )
assume A1: SCM+FSA-OK . i = INT ; :: thesis: i in SCM+FSA-Data-Loc
not i in SCM+FSA-Data*-Loc by A1, Th12, FUNCT_7:16;
then A3: i in {NAT} \/ SCM+FSA-Data-Loc by XBOOLE_0:def 3;
not i in {NAT} by A1, Th9, NUMBERS:27, TARSKI:def 1;
hence i in SCM+FSA-Data-Loc by A3, XBOOLE_0:def 3; :: thesis: verum