Suppose p \in [R_A]\theta_A(a). By Lemma 4.19 we have pR_A\hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p) and by assumption a \in \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p). This implies that \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex a \in p and therefore p \in \theta_A(\hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex a).
For the reverse inclusion, suppose p \in \theta_A(\hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex a). Then a \in \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p), so pR_Aq implies a \in q, and hence p \in [R_A]\theta_A(a).
Next, suppose p \in \langle R_A \rangle\theta_A(a). Then there exists a filter q such that pR_Aq and a \in q. By definition of R_A this implies a \in \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex^{-1}(p) and hence \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a \in p, so p \in \theta_A(\hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a).
Conversely, suppose p \in \theta_A(\hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a). Let q be the filter generated by \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p) and a. We claim that c \in q implies \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex c \in p. To see this, note that for each c \in q there exists some d \in \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p) such that d \wedge a \leq c. We then have \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex d \in p, and \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a \in p by assumption, so \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex d \wedge \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a \in p. Since \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex d \wedge \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex a \leq \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex(d \wedge a) \leq \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex c we find \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex c \in p. The filter q is nonempty because it contains \top. Furthermore, we have \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, line width=.12ex]
{\draw (-.6ex,-.6ex) rectangle (.6ex,.6ex);}}\kern.2ex^{-1}(p) \subseteq q by definition of q and we just showed that c \in q implies \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex c \in p, so that q \subseteq \hspace{.2ex}\text{
\tikz[baseline=-.6ex, rounded corners=.01ex, rotate=45, line width=.12ex]
{\draw (-.5ex,-.5ex) rectangle (.5ex,.5ex);}}\kern.2ex^{-1}(p). This proves pR_Aq. By design a \in q so q witnesses the fact that p \in \langle R_A \rangle \theta_A(a).