theorem Th18:
  i = a :=len f or i = f :=<0,...,0>a implies UsedIntLoc i = {a}
proof
  reconsider ab = {a} as Element of Fin Int-Locations by FINSUB_1:def 5;
  assume
A1: i = a :=len f or i = f :=<0,...,0>a;
  then InsCode i = 11 or InsCode i = 12 by SCMFSA_2:28,29;
  then UsedIntLoc i = ab by A1,Def1;
  hence thesis;
end;
