\documentclass{ppex}
\nonstopmode
\usepackage [all,poly]{xy}
\pagestyle{empty}
\setlength\textwidth{135.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [all,poly]{xy}
\newcounter{node}
%
\[
\renewcommand{\objectstyle}{\scriptstyle}
\newcommand{\Letter}%
    {{\setcounter{node}%
     {\xypolynode}\Alph{node}}}
%
\begin{xy} /r11mm/:
  (2,4.8), {\xypolygon6{~*{\xypolynode}}}
 ,(2,2.5), {*{0}*\cir<5pt>{}
               \xypolygon6{~*{\xybox{%
              *{\xypolynode}*\cir<2mm>{}}}}}
 ,(2,0)  ,  {\xypolygon6{%
                ~><{@/_.5ex/}
                ~>>{_{\delta^{\xypolynode}_{\xypolynum}}}
                ~<<{@{=}}
                ~<>{|\uparrow}
                ~*{\Letter}}}
\end{xy}
\]
\end{document}
