Theorem eu2 2229

Description: An alternate way of defining existential uniqueness. Definition 6.10 of [TakeutiZaring] p. 26. (Contributed by NM, 8-Jul-1994.)

Hypothesis

Ref	Expression
eu2.1	|- F/yph

Assertion

Ref	Expression
eu2	|- (E!xph <-> (E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)))

Distinct variable group:   x,y

Allowed substitution hints:   ph(x,y)

Proof of Theorem eu2

Step	Hyp	Ref	Expression
1		euex 2227	. . 3 |- (E!xph -> E.xph)
2		eu2.1	. . . . 5 |- F/yph
3	2	eumo0 2228	. . . 4 |- (E!xph -> E.yA.x(ph -> x = y))
4	2	mo 2226	. . . 4 |- (E.yA.x(ph -> x = y) <-> A.xA.y((ph /\ [y / x]ph) -> x = y))
5	3, 4	sylib 188	. . 3 |- (E!xph -> A.xA.y((ph /\ [y / x]ph) -> x = y))
6	1, 5	jca 518	. 2 |- (E!xph -> (E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)))
7		19.29r 1597	. . . 4 |- ((E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)) -> E.x(ph /\ A.y((ph /\ [y / x]ph) -> x = y)))
8		impexp 433	. . . . . . . . 9 |- (((ph /\ [y / x]ph) -> x = y) <-> (ph -> ([y / x]ph -> x = y)))
9	8	albii 1566	. . . . . . . 8 |- (A.y((ph /\ [y / x]ph) -> x = y) <-> A.y(ph -> ([y / x]ph -> x = y)))
10	2	19.21 1796	. . . . . . . 8 |- (A.y(ph -> ([y / x]ph -> x = y)) <-> (ph -> A.y([y / x]ph -> x = y)))
11	9, 10	bitri 240	. . . . . . 7 |- (A.y((ph /\ [y / x]ph) -> x = y) <-> (ph -> A.y([y / x]ph -> x = y)))
12	11	anbi2i 675	. . . . . 6 |- ((ph /\ A.y((ph /\ [y / x]ph) -> x = y)) <-> (ph /\ (ph -> A.y([y / x]ph -> x = y))))
13		abai 770	. . . . . 6 |- ((ph /\ A.y([y / x]ph -> x = y)) <-> (ph /\ (ph -> A.y([y / x]ph -> x = y))))
14	12, 13	bitr4i 243	. . . . 5 |- ((ph /\ A.y((ph /\ [y / x]ph) -> x = y)) <-> (ph /\ A.y([y / x]ph -> x = y)))
15	14	exbii 1582	. . . 4 |- (E.x(ph /\ A.y((ph /\ [y / x]ph) -> x = y)) <-> E.x(ph /\ A.y([y / x]ph -> x = y)))
16	7, 15	sylib 188	. . 3 |- ((E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)) -> E.x(ph /\ A.y([y / x]ph -> x = y)))
17	2	eu1 2225	. . 3 |- (E!xph <-> E.x(ph /\ A.y([y / x]ph -> x = y)))
18	16, 17	sylibr 203	. 2 |- ((E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)) -> E!xph)
19	6, 18	impbii 180	1 |- (E!xph <-> (E.xph /\ A.xA.y((ph /\ [y / x]ph) -> x = y)))

Syntax hints:   -> wi 4   <-> wb 176   /\ wa 358  A.wal 1540  E.wex 1541   F/wnf 1544  [wsb 1648  E!weu 2204

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1925

This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2208

This theorem is referenced by:  eu3  2230  bm1.1  2338  reu2  3025