theorem
  ^elementary_tree 0 = elementary_tree 1
proof
  set T = elementary_tree 0;
  thus ^T = tree(1 |-> T) by FINSEQ_2:59
    .= elementary_tree 1 by Th54;
end;
