theorem Th8:
  not x in rng RestrictSub(x,All(x,p),Sub) implies S_Bound([All(x,p ),Sub]) = x
proof
  set finSub = RestrictSub(x,All(x,p),Sub);
  set S = [All(x,p),Sub];
  assume
A1: not x in rng finSub;
  reconsider q = S`1 as Element of CQC-WFF(Al);
  S`2 = Sub & bound_in q = x by QC_LANG2:7;
  hence thesis by A1,SUBSTUT1:def 36;
end;
