Proof of Theorem cdacomen
| Step | Hyp | Ref
| Expression |
| 1 | | 0ne1oOLD 3113 |
. . . . 5
⊢ ¬ ∅ =
1o |
| 2 | | xpsndisj 2655 |
. . . . 5
⊢ (¬ ∅ = 1o
→ ((A × {∅}) ∩
(B × {1o})) =
∅) |
| 3 | 1, 2 | ax-mp 6 |
. . . 4
⊢ ((A
× {∅}) ∩ (B ×
{1o})) = ∅ |
| 4 | | cleqcom 1103 |
. . . . . 6
⊢ (∅ = 1o ↔
1o = ∅) |
| 5 | 1, 4 | mtbi 166 |
. . . . 5
⊢ ¬ 1o =
∅ |
| 6 | | xpsndisj 2655 |
. . . . 5
⊢ (¬ 1o = ∅
→ ((A × {1o})
∩ (B × {∅})) =
∅) |
| 7 | 5, 6 | ax-mp 6 |
. . . 4
⊢ ((A
× {1o}) ∩ (B
× {∅})) = ∅ |
| 8 | | cdacomen.1 |
. . . . . . 7
⊢ A
∈ V |
| 9 | | 0ex 1745 |
. . . . . . . 8
⊢ ∅ ∈ V |
| 10 | 8, 9 | xpsnen 3339 |
. . . . . . 7
⊢ (A
× {∅}) ≈ A |
| 11 | | 1o 3109 |
. . . . . . . . 9
⊢ 1o ∈ On |
| 12 | 11 | elisseti 1355 |
. . . . . . . 8
⊢ 1o ∈
V |
| 13 | 8, 12 | xpsnen 3339 |
. . . . . . 7
⊢ (A
× {1o}) ≈ A |
| 14 | 8, 10, 13 | entr4 3324 |
. . . . . 6
⊢ (A
× {∅}) ≈ (A ×
{1o}) |
| 15 | | cdacomen.2 |
. . . . . . 7
⊢ B
∈ V |
| 16 | 15, 12 | xpsnen 3339 |
. . . . . . 7
⊢ (B
× {1o}) ≈ B |
| 17 | 15, 9 | xpsnen 3339 |
. . . . . . 7
⊢ (B
× {∅}) ≈ B |
| 18 | 15, 16, 17 | entr4 3324 |
. . . . . 6
⊢ (B
× {1o}) ≈ (B
× {∅}) |
| 19 | 14, 18 | pm3.2i 234 |
. . . . 5
⊢ ((A
× {∅}) ≈ (A ×
{1o}) ∧ (B ×
{1o}) ≈ (B ×
{∅})) |
| 20 | | unen 3338 |
. . . . 5
⊢ ((((A
× {∅}) ≈ (A ×
{1o}) ∧ (B ×
{1o}) ≈ (B ×
{∅})) ∧ (((A × {∅})
∩ (B × {1o})) =
∅ ∧ ((A ×
{1o}) ∩ (B ×
{∅})) = ∅)) → ((A ×
{∅}) ∪ (B ×
{1o})) ≈ ((A
× {1o}) ∪ (B
× {∅}))) |
| 21 | 19, 20 | mpan 518 |
. . . 4
⊢ ((((A
× {∅}) ∩ (B ×
{1o})) = ∅ ∧ ((A × {1o}) ∩ (B × {∅})) = ∅) → ((A × {∅}) ∪ (B × {1o})) ≈
((A × {1o}) ∪
(B × {∅}))) |
| 22 | 3, 7, 21 | mp2an 520 |
. . 3
⊢ ((A
× {∅}) ∪ (B ×
{1o})) ≈ ((A
× {1o}) ∪ (B
× {∅})) |
| 23 | | uncom 1604 |
. . 3
⊢ ((A
× {1o}) ∪ (B
× {∅})) = ((B ×
{∅}) ∪ (A ×
{1o})) |
| 24 | 22, 23 | breqtr 2080 |
. 2
⊢ ((A
× {∅}) ∪ (B ×
{1o})) ≈ ((B
× {∅}) ∪ (A ×
{1o})) |
| 25 | 8, 15 | cdaval 3717 |
. 2
⊢ (A
+c B) = ((A × {∅}) ∪ (B × {1o})) |
| 26 | 15, 8 | cdaval 3717 |
. 2
⊢ (B
+c A) = ((B × {∅}) ∪ (A × {1o})) |
| 27 | 24, 25, 26 | 3brtr4 2085 |
1
⊢ (A
+c B) ≈ (B +c A) |