Proof of Theorem eueq2
| Step | Hyp | Ref
| Expression |
| 1 | | euorv 1398 |
. . . 4
⊢ ((¬ ¬ φ ⋀ ∃!x(φ ⋀
x = A))
→ ∃!x(¬ φ ⋁ (φ ⋀ x = A))) |
| 2 | | negb 86 |
. . . 4
⊢ (φ
→ ¬ ¬ φ) |
| 3 | | eueq2.1 |
. . . . . 6
⊢ A
∈ V |
| 4 | 3 | eueq1 1914 |
. . . . 5
⊢ ∃!x x = A |
| 5 | | euanv 1431 |
. . . . . 6
⊢ (∃!x(φ ⋀
x = A)
↔ (φ ⋀ ∃!x x = A)) |
| 6 | 5 | biimpr 152 |
. . . . 5
⊢ ((φ ⋀ ∃!x x = A) → ∃!x(φ ⋀
x = A)) |
| 7 | 4, 6 | mpan2 695 |
. . . 4
⊢ (φ
→ ∃!x(φ ⋀ x = A)) |
| 8 | 1, 2, 7 | sylanc 471 |
. . 3
⊢ (φ
→ ∃!x(¬ φ ⋁ (φ ⋀ x = A))) |
| 9 | 2 | bianfd 737 |
. . . . . 6
⊢ (φ
→ (¬ φ ↔ (¬ φ ⋀ x = B))) |
| 10 | 9 | orbi2d 613 |
. . . . 5
⊢ (φ
→ (((φ ⋀ x = A) ⋁
¬ φ) ↔ ((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B)))) |
| 11 | | orcom 246 |
. . . . 5
⊢ ((¬ φ ⋁ (φ ⋀ x = A)) ↔
((φ ⋀ x = A) ⋁
¬ φ)) |
| 12 | 10, 11 | syl5bb 531 |
. . . 4
⊢ (φ
→ ((¬ φ ⋁ (φ ⋀ x = A)) ↔
((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B)))) |
| 13 | 12 | eubidv 1385 |
. . 3
⊢ (φ
→ (∃!x(¬ φ ⋁ (φ ⋀ x = A)) ↔
∃!x((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B)))) |
| 14 | 8, 13 | mpbid 195 |
. 2
⊢ (φ
→ ∃!x((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B))) |
| 15 | | eueq2.2 |
. . . . . 6
⊢ B
∈ V |
| 16 | 15 | eueq1 1914 |
. . . . 5
⊢ ∃!x x = B |
| 17 | | euanv 1431 |
. . . . . 6
⊢ (∃!x(¬ φ
⋀ x = B) ↔ (¬ φ ⋀ ∃!x x = B)) |
| 18 | 17 | biimpr 152 |
. . . . 5
⊢ ((¬ φ ⋀ ∃!x x = B) → ∃!x(¬ φ
⋀ x = B)) |
| 19 | 16, 18 | mpan2 695 |
. . . 4
⊢ (¬ φ → ∃!x(¬ φ
⋀ x = B)) |
| 20 | | euorv 1398 |
. . . 4
⊢ ((¬ φ ⋀ ∃!x(¬ φ
⋀ x = B)) → ∃!x(φ ⋁
(¬ φ ⋀ x = B))) |
| 21 | 19, 20 | mpdan 703 |
. . 3
⊢ (¬ φ → ∃!x(φ ⋁
(¬ φ ⋀ x = B))) |
| 22 | | id 59 |
. . . . . 6
⊢ (¬ φ → ¬ φ) |
| 23 | 22 | bianfd 737 |
. . . . 5
⊢ (¬ φ → (φ ↔ (φ ⋀ x = A))) |
| 24 | 23 | orbi1d 614 |
. . . 4
⊢ (¬ φ → ((φ ⋁ (¬ φ ⋀ x = B)) ↔
((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B)))) |
| 25 | 24 | eubidv 1385 |
. . 3
⊢ (¬ φ → (∃!x(φ ⋁
(¬ φ ⋀ x = B)) ↔
∃!x((φ ⋀ x = A) ⋁
(¬ φ ⋀ x = B)))) |
| 26 | 21, 25 | mpbid 195 |
. 2
⊢ (¬ φ → ∃!x((φ ⋀
x = A)
⋁ (¬ φ ⋀ x = B))) |
| 27 | 14, 26 | pm2.61i 126 |
1
⊢ ∃!x((φ ⋀
x = A)
⋁ (¬ φ ⋀ x = B)) |