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 Th6:
  (SCM*-VAL*SCM+FSA-OK).f = INT*
proof
A1: (SCM+FSA-OK).f = 2 by Lm6;
    f in SCM+FSA-Memory;
    then
A2: f in dom SCM+FSA-OK by FUNCT_2:def 1;
  thus (SCM*-VAL*SCM+FSA-OK).f
     = SCM*-VAL.(SCM+FSA-OK.f) by A2,FUNCT_1:13
    .= SCM*-VAL.2 by A1
    .= INT*;
end;
