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==AA×A=A
11 10 expcom =AA×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 AAA×A
18 unixp A×AA×A=AA
19 unidm AA=A
20 18 19 eqtrdi A×AA×A=A
21 17 20 sylbi AAA×A=A
22 16 16 21 sylancbr ¬A=A×A=A
23 15 22 pm2.61i A×A=A