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