Metamath Proof Explorer


Theorem islpolN

Description: The predicate "is a polarity". (Contributed by NM, 24-Nov-2014) (New usage is discouraged.)

Ref Expression
Hypotheses lpolset.v V = Base W
lpolset.s S = LSubSp W
lpolset.z 0 ˙ = 0 W
lpolset.a A = LSAtoms W
lpolset.h H = LSHyp W
lpolset.p P = LPol W
Assertion islpolN W X ˙ P ˙ : 𝒫 V S ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x

Proof

Step Hyp Ref Expression
1 lpolset.v V = Base W
2 lpolset.s S = LSubSp W
3 lpolset.z 0 ˙ = 0 W
4 lpolset.a A = LSAtoms W
5 lpolset.h H = LSHyp W
6 lpolset.p P = LPol W
7 1 2 3 4 5 6 lpolsetN W X P = o S 𝒫 V | o V = 0 ˙ x y x V y V x y o y o x x A o x H o o x = x
8 7 eleq2d W X ˙ P ˙ o S 𝒫 V | o V = 0 ˙ x y x V y V x y o y o x x A o x H o o x = x
9 fveq1 o = ˙ o V = ˙ V
10 9 eqeq1d o = ˙ o V = 0 ˙ ˙ V = 0 ˙
11 fveq1 o = ˙ o y = ˙ y
12 fveq1 o = ˙ o x = ˙ x
13 11 12 sseq12d o = ˙ o y o x ˙ y ˙ x
14 13 imbi2d o = ˙ x V y V x y o y o x x V y V x y ˙ y ˙ x
15 14 2albidv o = ˙ x y x V y V x y o y o x x y x V y V x y ˙ y ˙ x
16 12 eleq1d o = ˙ o x H ˙ x H
17 id o = ˙ o = ˙
18 17 12 fveq12d o = ˙ o o x = ˙ ˙ x
19 18 eqeq1d o = ˙ o o x = x ˙ ˙ x = x
20 16 19 anbi12d o = ˙ o x H o o x = x ˙ x H ˙ ˙ x = x
21 20 ralbidv o = ˙ x A o x H o o x = x x A ˙ x H ˙ ˙ x = x
22 10 15 21 3anbi123d o = ˙ o V = 0 ˙ x y x V y V x y o y o x x A o x H o o x = x ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x
23 22 elrab ˙ o S 𝒫 V | o V = 0 ˙ x y x V y V x y o y o x x A o x H o o x = x ˙ S 𝒫 V ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x
24 2 fvexi S V
25 1 fvexi V V
26 25 pwex 𝒫 V V
27 24 26 elmap ˙ S 𝒫 V ˙ : 𝒫 V S
28 27 anbi1i ˙ S 𝒫 V ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x ˙ : 𝒫 V S ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x
29 23 28 bitri ˙ o S 𝒫 V | o V = 0 ˙ x y x V y V x y o y o x x A o x H o o x = x ˙ : 𝒫 V S ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x
30 8 29 bitrdi W X ˙ P ˙ : 𝒫 V S ˙ V = 0 ˙ x y x V y V x y ˙ y ˙ x x A ˙ x H ˙ ˙ x = x