Proof of Theorem reuuni4
| Step | Hyp | Ref
| Expression |
| 1 | | reucl 1957 |
. 2
⊢ (∃!x ∈ A φ → ∪{x ∈ A∣φ}
∈ A) |
| 2 | | reurex 1337 |
. . . 4
⊢ (∃!x ∈ A φ → ∃x ∈ A φ) |
| 3 | | hbreu1 1307 |
. . . . 5
⊢ (∃!x ∈ A φ → ∀x∃!x
∈ A φ) |
| 4 | | hbrab1 1310 |
. . . . . . 7
⊢ (y
∈ {x ∈ A∣φ}
→ ∀x y ∈ {x
∈ A∣φ}) |
| 5 | 4 | hbuni 1925 |
. . . . . 6
⊢ (y
∈ ∪{x
∈ A∣φ} → ∀x y ∈ ∪{x ∈ A∣φ}) |
| 6 | 5 | hbsbc 1446 |
. . . . 5
⊢ ((∪{x ∈ A∣φ}
∈ V → [∪{x ∈ A∣φ} /
x]φ) → ∀x(∪{x ∈ A∣φ}
∈ V → [∪{x ∈ A∣φ} /
x]φ)) |
| 7 | | reuuni1 1955 |
. . . . . . . . . . 11
⊢ ((x
∈ A ∧ ∃!x ∈ A φ) → (φ ↔ ∪{x ∈ A∣φ} =
x)) |
| 8 | | sbceq1 1443 |
. . . . . . . . . . . 12
⊢ (x =
∪{x ∈
A∣φ} → (φ ↔ [∪{x ∈ A∣φ} /
x]φ)) |
| 9 | 8 | cleqcoms 1104 |
. . . . . . . . . . 11
⊢ (∪{x ∈ A∣φ} =
x → (φ ↔ [∪{x ∈ A∣φ} /
x]φ)) |
| 10 | 7, 9 | syl6bi 187 |
. . . . . . . . . 10
⊢ ((x
∈ A ∧ ∃!x ∈ A φ) → (φ → (φ ↔ [∪{x ∈ A∣φ} /
x]φ))) |
| 11 | | ibib 448 |
. . . . . . . . . 10
⊢ ((φ → [∪{x ∈ A∣φ} /
x]φ) ↔ (φ → (φ ↔ [∪{x ∈ A∣φ} /
x]φ))) |
| 12 | 10, 11 | sylibr 175 |
. . . . . . . . 9
⊢ ((x
∈ A ∧ ∃!x ∈ A φ) → (φ → [∪{x ∈ A∣φ} /
x]φ)) |
| 13 | 12 | exp 291 |
. . . . . . . 8
⊢ (x
∈ A → (∃!x ∈ A φ → (φ → [∪{x ∈ A∣φ} /
x]φ))) |
| 14 | 13 | com12 13 |
. . . . . . 7
⊢ (∃!x ∈ A φ → (x ∈ A
→ (φ → [∪{x ∈ A∣φ} /
x]φ))) |
| 15 | 14 | a1i 7 |
. . . . . 6
⊢ (∪{x ∈ A∣φ}
∈ V → (∃!x ∈
A φ
→ (x ∈ A → (φ
→ [∪{x
∈ A∣φ} / x]φ)))) |
| 16 | 15 | com4l 39 |
. . . . 5
⊢ (∃!x ∈ A φ → (x ∈ A
→ (φ → (∪{x ∈ A∣φ}
∈ V → [∪{x ∈ A∣φ} /
x]φ)))) |
| 17 | 3, 6, 16 | r19.23ad 1285 |
. . . 4
⊢ (∃!x ∈ A φ → (∃x ∈ A φ → (∪{x ∈ A∣φ}
∈ V → [∪{x ∈ A∣φ} /
x]φ))) |
| 18 | 2, 17 | mpd 46 |
. . 3
⊢ (∃!x ∈ A φ → (∪{x ∈ A∣φ}
∈ V → [∪{x ∈ A∣φ} /
x]φ)) |
| 19 | | elisset 1354 |
. . 3
⊢ (∪{x ∈ A∣φ}
∈ A → ∪{x ∈ A∣φ}
∈ V) |
| 20 | 18, 19 | syl5 22 |
. 2
⊢ (∃!x ∈ A φ → (∪{x ∈ A∣φ}
∈ A → [∪{x ∈ A∣φ} /
x]φ)) |
| 21 | 1, 20 | mpd 46 |
1
⊢ (∃!x ∈ A φ → [∪{x ∈ A∣φ} /
x]φ) |