reserve x,y,z for set,
  k for Nat;
reserve J,J1,K for Element of Segm 13,
  a for Nat,
  b,b1,b2,c,c1,c2 for Element of SCM+FSA-Data-Loc,
  f,f1,f2 for Element of SCM+FSA-Data*-Loc;

theorem Th5:
  (SCM*-VAL*SCM+FSA-OK).b = INT
proof
 b in SCM-Data-Loc;
  then b in SCM-Memory;
  then
A1: b in dom SCM-OK by FUNCT_2:def 1;
A2: SCM+FSA-OK.b = 1 by Lm5;
A3: b in dom SCM+FSA-OK by A1,Lm2;
  thus (SCM*-VAL*SCM+FSA-OK).b
     = SCM*-VAL.(SCM+FSA-OK.b) by A3,FUNCT_1:13
    .= SCM*-VAL.1 by A2
    .= INT;
end;
