Theorem iota4an 5307

Description: Theorem *14.23 in [WhiteheadRussell] p. 191. (Contributed by Andrew Salmon, 12-Jul-2011.)

Assertion

Ref	Expression
iota4an	⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)

Proof of Theorem iota4an

Step	Hyp	Ref	Expression
1		iota4 5306	. 2 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓))
2		euiotaex 5303	. . . 4 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → (℩𝑥(𝜑 ∧ 𝜓)) ∈ V)
3		simpl 109	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝜑)
4	3	sbcth 3045	. . . 4 ⊢ ((℩𝑥(𝜑 ∧ 𝜓)) ∈ V → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑))
5	2, 4	syl 14	. . 3 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑))
6		sbcimg 3073	. . . 4 ⊢ ((℩𝑥(𝜑 ∧ 𝜓)) ∈ V → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑) ↔ ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)))
7	2, 6	syl 14	. . 3 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑) ↔ ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)))
8	5, 7	mpbid 147	. 2 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑))
9	1, 8	mpd 13	1 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105  ∃!weu 2079   ∈ wcel 2202  Vcvv 2802  [wsbc 3031  ℩cio 5284

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-ext 2213

This theorem depends on definitions:  df-bi 117  df-tru 1400  df-nf 1509  df-sb 1811  df-eu 2082  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-rex 2516  df-v 2804  df-sbc 3032  df-un 3204  df-sn 3675  df-pr 3676  df-uni 3894  df-iota 5286

This theorem is referenced by: (None)