theorem Th36:
  entry_points_in_subformula_tree(G) = { t where t is
  Entry_Point_in_Subformula_Tree of G : t = t }
proof
  thus entry_points_in_subformula_tree(G) c= { t where t is
  Entry_Point_in_Subformula_Tree of G : t = t }
  proof
    let x be object;
    assume x in entry_points_in_subformula_tree(G);
    then x in { t where t is Element of dom tree_of_subformulae(F) : (
    tree_of_subformulae(F)).t = G } by Th19;
    then consider t9 being Element of dom tree_of_subformulae(F) such that
A1: t9 = x and
A2: (tree_of_subformulae(F)).t9 = G;
    reconsider t9 as Entry_Point_in_Subformula_Tree of G by A2,Def5;
    t9 = t9;
    hence thesis by A1;
  end;
  thus { t where t is Entry_Point_in_Subformula_Tree of G : t = t } c=
  entry_points_in_subformula_tree(G)
  proof
    let x be object;
    assume x in { t where t is Entry_Point_in_Subformula_Tree of G : t = t };
    then ex t st t = x & t = t;
    hence thesis by Th35;
  end;
end;
