theorem Th4:
  [5,{},<*d1,t*>] in SCM-Instr S
   proof
     reconsider d1 as Element of SCM-Data-Loc by Th1,AMI_3:27;
      [5,{},<*d1,t*>] in SCM-Instr S by SCMRINGI:9;
    hence thesis;
   end;
