Proof of Theorem reuuni4
| Step | Hyp | Ref
| Expression |
| 1 | | reucl 2891 |
. 2
⊢ (∃!x ∈ A φ → ∪{x ∈ A∣φ} ∈ A) |
| 2 | | reurex 1931 |
. . . 4
⊢ (∃!x ∈ A φ → ∃x ∈ A φ) |
| 3 | | hbreu1 1771 |
. . . . 5
⊢ (∃!x ∈ A φ → ∀x∃!x ∈ A φ) |
| 4 | | hbrab1 1775 |
. . . . . . 7
⊢ (y ∈ {x ∈ A∣φ} → ∀x y ∈ {x ∈ A∣φ}) |
| 5 | 4 | hbuni 2513 |
. . . . . 6
⊢ (y ∈ ∪{x ∈ A∣φ} →
∀x
y ∈ ∪{x ∈ A∣φ}) |
| 6 | 5 | hbsbc1 1952 |
. . . . 5
⊢ ((∪{x ∈ A∣φ} ∈ V → [∪{x ∈ A∣φ} /
x]φ) → ∀x(∪{x ∈ A∣φ} ∈ V → [∪{x ∈ A∣φ} /
x]φ)) |
| 7 | | reuuni1 2888 |
. . . . . . . . . 10
⊢ ((x ∈ A ⋀ ∃!x ∈ A φ) → (φ ↔ ∪{x ∈ A∣φ} =
x)) |
| 8 | | sbceq1a 1947 |
. . . . . . . . . . 11
⊢ (x = ∪{x ∈ A∣φ} → (φ ↔ [∪{x ∈ A∣φ} /
x]φ)) |
| 9 | 8 | eqcoms 1481 |
. . . . . . . . . 10
⊢ (∪{x ∈ A∣φ} =
x → (φ ↔ [∪{x ∈ A∣φ} /
x]φ)) |
| 10 | 7, 9 | syl6bi 214 |
. . . . . . . . 9
⊢ ((x ∈ A ⋀ ∃!x ∈ A φ) → (φ → (φ ↔ [∪{x ∈ A∣φ} /
x]φ))) |
| 11 | 10 | ibd 596 |
. . . . . . . 8
⊢ ((x ∈ A ⋀ ∃!x ∈ A φ) → (φ → [∪{x ∈ A∣φ} /
x]φ)) |
| 12 | 11 | expcom 374 |
. . . . . . 7
⊢ (∃!x ∈ A φ → (x ∈ A → (φ
→ [∪{x
∈ A∣φ} /
x]φ))) |
| 13 | 12 | a1i 8 |
. . . . . 6
⊢ (∪{x ∈ A∣φ} ∈ V → (∃!x ∈ A φ → (x ∈ A → (φ
→ [∪{x
∈ A∣φ} /
x]φ)))) |
| 14 | 13 | com4l 39 |
. . . . 5
⊢ (∃!x ∈ A φ → (x ∈ A → (φ
→ (∪{x
∈ A∣φ} ∈ V → [∪{x ∈ A∣φ} /
x]φ)))) |
| 15 | 3, 6, 14 | r19.23ad 1748 |
. . . 4
⊢ (∃!x ∈ A φ → (∃x ∈ A φ → (∪{x ∈ A∣φ} ∈ V → [∪{x ∈ A∣φ} /
x]φ))) |
| 16 | 2, 15 | mpd 26 |
. . 3
⊢ (∃!x ∈ A φ → (∪{x ∈ A∣φ} ∈ V → [∪{x ∈ A∣φ} /
x]φ)) |
| 17 | | elisset 1820 |
. . 3
⊢ (∪{x ∈ A∣φ} ∈ A →
∪{x ∈ A∣φ} ∈ V) |
| 18 | 16, 17 | syl5 21 |
. 2
⊢ (∃!x ∈ A φ → (∪{x ∈ A∣φ} ∈ A →
[∪{x ∈ A∣φ} /
x]φ)) |
| 19 | 1, 18 | mpd 26 |
1
⊢ (∃!x ∈ A φ → [∪{x ∈ A∣φ} /
x]φ) |