reserve x,y,z for set;

theorem Th15:
  for S being non void Signature for X being non-empty
ManySortedSet of the carrier of S for t being Term of S, X holds variables_in t
  = X variables_in t by Th14,PBOOLE:23;
