theorem Th31:
  <*x,y*> is Tree-yielding iff x is Tree & y is Tree
proof
A1: x is Tree & y is Tree iff {x,y} is constituted-Trees by Th15;
  rng <*x,y*> = {x,y} by FINSEQ_2:127;
  hence thesis by A1;
end;
