theorem
  [7,<*i1*>,<*d1*>] in SCM-Instr S
proof
  reconsider D1 = d1 as Element of SCM-Data-Loc;
  reconsider I1 = i1 as Element of NAT by ORDINAL1:def 12;
  [7,<*I1*>,<*D1*>] in the set of all  [7,<*i*>,<*a*>]
  where i is Nat, a is Element
  of SCM-Data-Loc;
  then [7,<*I1*>,<*D1*>] in { [0,{},{}] } \/ { [I,{},<*a,b*>]
  where a,b is Element of
  SCM-Data-Loc: I in { 1,2,3,4 } } \/ the set of all [6,<*i*>,{}]
  where i is Nat \/ the set of all  [7,<*i*>,<*a*>]
  where i is Nat, a is Element of
  SCM-Data-Loc by XBOOLE_0:def 3;
  hence thesis by XBOOLE_0:def 3;
end;
