theorem
  for x being set holds card root-tree x = 1
proof
  let x be set;
  root-tree x = {[{},x]} by TREES_4:6;
  hence thesis by CARD_1:30;
end;
