theorem
  t9 in succ t implies (tree_of_subformulae(F)).t9
  is_immediate_constituent_of (tree_of_subformulae(F)).t
proof
  assume t9 in succ t;
  then ex n st t9 = t^<*n*> & t^<*n*> in dom tree_of_subformulae(F);
  hence thesis by Th7;
end;
