Metamath Proof Explorer


Theorem elpglem3

Description: Lemma for elpg . (Contributed by Emmett Weisz, 28-Aug-2021)

Ref Expression
Assertion elpglem3 x x Pg A y V 𝒫 y × 𝒫 y x A V × V x x Pg 1 st A 𝒫 x 2 nd A 𝒫 x

Proof

Step Hyp Ref Expression
1 vex x V
2 pweq y = x 𝒫 y = 𝒫 x
3 2 sqxpeqd y = x 𝒫 y × 𝒫 y = 𝒫 x × 𝒫 x
4 eqid y V 𝒫 y × 𝒫 y = y V 𝒫 y × 𝒫 y
5 1 pwex 𝒫 x V
6 5 5 xpex 𝒫 x × 𝒫 x V
7 3 4 6 fvmpt x V y V 𝒫 y × 𝒫 y x = 𝒫 x × 𝒫 x
8 1 7 ax-mp y V 𝒫 y × 𝒫 y x = 𝒫 x × 𝒫 x
9 8 eleq2i A y V 𝒫 y × 𝒫 y x A 𝒫 x × 𝒫 x
10 elxp7 A 𝒫 x × 𝒫 x A V × V 1 st A 𝒫 x 2 nd A 𝒫 x
11 9 10 bitri A y V 𝒫 y × 𝒫 y x A V × V 1 st A 𝒫 x 2 nd A 𝒫 x
12 11 anbi2i x Pg A y V 𝒫 y × 𝒫 y x x Pg A V × V 1 st A 𝒫 x 2 nd A 𝒫 x
13 an12 x Pg A V × V 1 st A 𝒫 x 2 nd A 𝒫 x A V × V x Pg 1 st A 𝒫 x 2 nd A 𝒫 x
14 12 13 bitri x Pg A y V 𝒫 y × 𝒫 y x A V × V x Pg 1 st A 𝒫 x 2 nd A 𝒫 x
15 14 exbii x x Pg A y V 𝒫 y × 𝒫 y x x A V × V x Pg 1 st A 𝒫 x 2 nd A 𝒫 x
16 19.42v x A V × V x Pg 1 st A 𝒫 x 2 nd A 𝒫 x A V × V x x Pg 1 st A 𝒫 x 2 nd A 𝒫 x
17 15 16 bitri x x Pg A y V 𝒫 y × 𝒫 y x A V × V x x Pg 1 st A 𝒫 x 2 nd A 𝒫 x