reserve x,y,z for object, X,Y for set,
  i,k,n for Nat,
  p,q,r,s for FinSequence,
  w for FinSequence of NAT,
  f for Function;

theorem Th26:
  p is FinTree-yielding & q is FinTree-yielding iff p^q is FinTree-yielding
proof
A1: rng (p^q) = rng p \/ rng q by FINSEQ_1:31;
  thus p is FinTree-yielding & q is FinTree-yielding implies
  p^q is FinTree-yielding
  by A1,Th6;
  assume
A2: rng (p^q) is constituted-FinTrees;
  hence rng p is constituted-FinTrees by A1,Th6;
  thus rng q is constituted-FinTrees by A1,A2,Th6;
end;
