df-∃1-alt2

Theorem.

Arguments:

x (sv), phi (pr), y (sv),

Distinct variable conditions:

(x, y),

Hypotheses:

(y bound in phi)

Assertions:

(_e1xphileftrightarrow(existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy))))

Proof:

Hyp Ref Line Expr
Hypo1(y bound in phi)
∃1→∃2(_e1xphitoexistsxphi)
1∃1→∃mo-03(_e1xphitoexistsyforallx(phito(xeqy)))
1df-∃mo-alt04(existsyforallx(phito(xeqy))leftrightarrowforallxforally((phiwedge[y/x]phi)to(xeqy)))
3, 4brpi225(_e1xphitoforallxforally((phiwedge[y/x]phi)to(xeqy)))
2, 5jca6(_e1xphito(existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy))))
alexan<7((existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy)))toexistsx(phiwedgeforally((phiwedge[y/x]phi)to(xeqy))))
impexp8(((phiwedge[y/x]phi)to(xeqy))leftrightarrow(phito([y/x]phito(xeqy))))
8eqt-∀-i9(forally((phiwedge[y/x]phi)to(xeqy))leftrightarrowforally(phito([y/x]phito(xeqy))))
1imgen>10(forally(phito([y/x]phito(xeqy)))leftrightarrow(phitoforally([y/x]phito(xeqy))))
9, 10bitr11(forally((phiwedge[y/x]phi)to(xeqy))leftrightarrow(phitoforally([y/x]phito(xeqy))))
11bi.bldan>12((phiwedgeforally((phiwedge[y/x]phi)to(xeqy)))leftrightarrow(phiwedge(phitoforally([y/x]phito(xeqy)))))
abai13((phiwedgeforally([y/x]phito(xeqy)))leftrightarrow(phiwedge(phitoforally([y/x]phito(xeqy)))))
12, 13><bitr14((phiwedgeforally((phiwedge[y/x]phi)to(xeqy)))leftrightarrow(phiwedgeforally([y/x]phito(xeqy))))
14eqt-∃-i15(existsx(phiwedgeforally((phiwedge[y/x]phi)to(xeqy)))leftrightarrowexistsx(phiwedgeforally([y/x]phito(xeqy))))
7, 15brpi2216((existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy)))toexistsx(phiwedgeforally([y/x]phito(xeqy))))
1df-∃1-alt117(_e1xphileftrightarrowexistsx(phiwedgeforally([y/x]phito(xeqy))))
16, 17brpi22<18((existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy)))to_e1xphi)
6, 18>bii19(_e1xphileftrightarrow(existsxphiwedgeforallxforally((phiwedge[y/x]phi)to(xeqy))))