theorem Th3:
  x in {1,2,3,4} implies [x,{},<*d1,d2*>] in SCM-Instr S
   proof
     reconsider d1,d2 as Element of SCM-Data-Loc by Th1,AMI_3:27;
      x in {1,2,3,4} implies [x,{},<*d1,d2*>] in SCM-Instr S by SCMRINGI:8;
    hence thesis;
   end;
