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