theorem Th29:
  <*>Vars in QuasiLoci
proof
 reconsider p = <*>Vars as FinSequence of Vars;
   p is one-to-one &
   for i st i in dom p holds (p.i)`1 c= rng (p dom i);
  hence thesis by Def3;
end;
