theorem Th7:
  ic in rng p & (ic = a=0_goto la or ic = a>0_goto la)
  implies a in UsedILoc p
proof
  assume that
A1: ic in rng p and
A2: ic = a=0_goto la or ic = a>0_goto la;
A3: UsedIntLoc ic = {a} by A2,SF_MASTR:16;
  UsedIntLoc ic c= UsedILoc p by A1,SF_MASTR:19;
  hence thesis by A3,ZFMISC_1:31;
end;
