Theorem iota4an 5172

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 5171	. 2 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓))
2		euiotaex 5169	. . . 4 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → (℩𝑥(𝜑 ∧ 𝜓)) ∈ V)
3		simpl 108	. . . . 5 ⊢ ((𝜑 ∧ 𝜓) → 𝜑)
4	3	sbcth 2964	. . . 4 ⊢ ((℩𝑥(𝜑 ∧ 𝜓)) ∈ V → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑))
5	2, 4	syl 14	. . 3 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑))
6		sbcimg 2992	. . . 4 ⊢ ((℩𝑥(𝜑 ∧ 𝜓)) ∈ V → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑) ↔ ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)))
7	2, 6	syl 14	. . 3 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]((𝜑 ∧ 𝜓) → 𝜑) ↔ ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)))
8	5, 7	mpbid 146	. 2 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → ([(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥](𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑))
9	1, 8	mpd 13	1 ⊢ (∃!𝑥(𝜑 ∧ 𝜓) → [(℩𝑥(𝜑 ∧ 𝜓)) / 𝑥]𝜑)

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104  ∃!weu 2014   ∈ wcel 2136  Vcvv 2726  [wsbc 2951  ℩cio 5151

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-ext 2147

This theorem depends on definitions:  df-bi 116  df-tru 1346  df-nf 1449  df-sb 1751  df-eu 2017  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-rex 2450  df-v 2728  df-sbc 2952  df-un 3120  df-sn 3582  df-pr 3583  df-uni 3790  df-iota 5153

This theorem is referenced by: (None)