reserve I for Element of Segm 8,
  S for non empty 1-sorted,
  t for Element of S,
  x for set,
  k for Element of NAT;
 reserve R for Ring, T for InsType of SCM-Instr R;
reserve R for Ring,
  r for Element of R,
  a, b, c, d1, d2 for Data-Location of R,
  i1 for Nat;

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;
