theorem Th32A:
  q is ordered & q = <*a*>^p implies a <> EmptyBag the carrier of R
  proof
    assume Z0: q is ordered;
    assume Z1: q = <*a*>^p;
    a in {a} = rng <*a*> by TARSKI:def 1,FINSEQ_1:39;
    then a in rng <*a*> \/ rng p = rng q by Z1,XBOOLE_0:def 3,FINSEQ_1:31;
    hence thesis by Z0;
  end;
