theorem Th1:
  a in dom Sub implies Sub.a in bound_QC-variables(A)
proof
  assume a in dom Sub;
  then a in dom @Sub;
  hence thesis by PARTFUN1:4;
end;
