reserve x, y, z for object,
  i, j, n for Nat,
  p, q, r for FinSequence,
  v for FinSequence of NAT;

theorem
  root-tree x = root-tree y implies x = y
proof
 (root-tree x).{} = x by Th3;
  hence thesis by Th3;
end;
