theorem Th1:
  [0,{},{}] in SCM-Instr
proof
  [0,{},{}] in { [SCM-Halt,{},{}] } by TARSKI:def 1;
  then [0,{},{}] in { [SCM-Halt,{},{}] }
   \/ { [J,<*a*>,{}] : J = 6 } by XBOOLE_0:def 3;
  then
  [0,{},{}] in { [SCM-Halt,{},{}] } \/ { [J,<*a*>,{}] : J = 6 }
   \/ { [K,<*a1*>,<*b1*>] : K in { 7,8 } } by XBOOLE_0:def 3;
  hence thesis by XBOOLE_0:def 3;
end;
