reserve i, j, k for Nat,
  I for Element of Segm 8,
  i1, i2 for Nat,
  d1, d2, d3, d4 for Element of SCM-Data-Loc,
  S for non empty 1-sorted;
reserve G for non empty 1-sorted;

theorem Th6:
  [0,{},{}] in SCM-Instr S
proof
  [0,{},{}] in {[0,{},{}]} by TARSKI:def 1;
  then [0,{},{}] in { [0,{},{}] }
   \/ { [I,{},<*a,b*>] where a,b is Element of SCM-Data-Loc: I in { 1,2,3,4 } }
    by XBOOLE_0:def 3;
  then [0,{},{}] 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
    by XBOOLE_0:def 3;
  then [0,{},{}] 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;
