Metamath Proof Explorer


Theorem unixpid

Description: Field of a Cartesian square. (Contributed by FL, 10-Oct-2009)

Ref Expression
Assertion unixpid ⊢ ⋃ ⋃ A × A = A

Proof

Step Hyp Ref Expression
1 xpeq1 ⊢ A = ∅ → A × A = ∅ × A
2 0xp ⊢ ∅ × A = ∅
3 1 2 eqtrdi ⊢ A = ∅ → A × A = ∅
4 unieq ⊢ A × A = ∅ → ⋃ A × A = ⋃ ∅
5 4 unieqd ⊢ A × A = ∅ → ⋃ ⋃ A × A = ⋃ ⋃ ∅
6 uni0 ⊢ ⋃ ∅ = ∅
7 6 unieqi ⊢ ⋃ ⋃ ∅ = ⋃ ∅
8 7 6 eqtri ⊢ ⋃ ⋃ ∅ = ∅
9 eqtr ⊢ ⋃ ⋃ A × A = ⋃ ⋃ ∅ ∧ ⋃ ⋃ ∅ = ∅ → ⋃ ⋃ A × A = ∅
10 eqtr ⊢ ⋃ ⋃ A × A = ∅ ∧ ∅ = A → ⋃ ⋃ A × A = A
11 10 expcom ⊢ ∅ = A → ⋃ ⋃ A × A = ∅ → ⋃ ⋃ A × A = A
12 11 eqcoms ⊢ A = ∅ → ⋃ ⋃ A × A = ∅ → ⋃ ⋃ A × A = A
13 9 12 syl5com ⊢ ⋃ ⋃ A × A = ⋃ ⋃ ∅ ∧ ⋃ ⋃ ∅ = ∅ → A = ∅ → ⋃ ⋃ A × A = A
14 5 8 13 sylancl ⊢ A × A = ∅ → A = ∅ → ⋃ ⋃ A × A = A
15 3 14 mpcom ⊢ A = ∅ → ⋃ ⋃ A × A = A
16 df-ne ⊢ A ≠ ∅ ↔ ¬ A = ∅
17 xpnz ⊢ A ≠ ∅ ∧ A ≠ ∅ ↔ A × A ≠ ∅
18 unixp ⊢ A × A ≠ ∅ → ⋃ ⋃ A × A = A ∪ A
19 unidm ⊢ A ∪ A = A
20 18 19 eqtrdi ⊢ A × A ≠ ∅ → ⋃ ⋃ A × A = A
21 17 20 sylbi ⊢ A ≠ ∅ ∧ A ≠ ∅ → ⋃ ⋃ A × A = A
22 16 16 21 sylancbr ⊢ ¬ A = ∅ → ⋃ ⋃ A × A = A
23 15 22 pm2.61i ⊢ ⋃ ⋃ A × A = A