Metamath Proof Explorer


Theorem altxpsspw

Description: An inclusion rule for alternate Cartesian products. (Contributed by Scott Fenton, 24-Mar-2012)

Ref Expression
Assertion altxpsspw A ×× B 𝒫 𝒫 A 𝒫 B

Proof

Step Hyp Ref Expression
1 elaltxp z A ×× B x A y B z = x y
2 df-altop x y = x x y
3 snssi x A x A
4 ssun3 x A x A 𝒫 B
5 3 4 syl x A x A 𝒫 B
6 5 adantr x A y B x A 𝒫 B
7 elun1 x A x A 𝒫 B
8 snssi y B y B
9 snex y V
10 9 elpw y 𝒫 B y B
11 elun2 y 𝒫 B y A 𝒫 B
12 10 11 sylbir y B y A 𝒫 B
13 8 12 syl y B y A 𝒫 B
14 7 13 anim12i x A y B x A 𝒫 B y A 𝒫 B
15 vex x V
16 15 9 prss x A 𝒫 B y A 𝒫 B x y A 𝒫 B
17 14 16 sylib x A y B x y A 𝒫 B
18 prex x x y V
19 18 elpw x x y 𝒫 𝒫 A 𝒫 B x x y 𝒫 A 𝒫 B
20 snex x V
21 prex x y V
22 20 21 prsspw x x y 𝒫 A 𝒫 B x A 𝒫 B x y A 𝒫 B
23 19 22 bitri x x y 𝒫 𝒫 A 𝒫 B x A 𝒫 B x y A 𝒫 B
24 6 17 23 sylanbrc x A y B x x y 𝒫 𝒫 A 𝒫 B
25 2 24 eqeltrid x A y B x y 𝒫 𝒫 A 𝒫 B
26 eleq1a x y 𝒫 𝒫 A 𝒫 B z = x y z 𝒫 𝒫 A 𝒫 B
27 25 26 syl x A y B z = x y z 𝒫 𝒫 A 𝒫 B
28 27 rexlimivv x A y B z = x y z 𝒫 𝒫 A 𝒫 B
29 1 28 sylbi z A ×× B z 𝒫 𝒫 A 𝒫 B
30 29 ssriv A ×× B 𝒫 𝒫 A 𝒫 B