Metamath Proof Explorer


Theorem lpolpolsatN

Description: Property of a polarity. (Contributed by NM, 26-Nov-2014) (New usage is discouraged.)

Ref Expression
Hypotheses lpolpolsat.a ⊢ A = LSAtoms ⁡ W
lpolpolsat.p ⊢ P = LPol ⁡ W
lpolpolsat.w ⊢ φ → W ∈ X
lpolpolsat.o ⊢ φ → ⊥ ˙ ∈ P
lpolpolsat.q ⊢ φ → Q ∈ A
Assertion lpolpolsatN ⊢ φ → ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q

Proof

Step Hyp Ref Expression
1 lpolpolsat.a ⊢ A = LSAtoms ⁡ W
2 lpolpolsat.p ⊢ P = LPol ⁡ W
3 lpolpolsat.w ⊢ φ → W ∈ X
4 lpolpolsat.o ⊢ φ → ⊥ ˙ ∈ P
5 lpolpolsat.q ⊢ φ → Q ∈ A
6 eqid ⊢ Base W = Base W
7 eqid ⊢ LSubSp ⁡ W = LSubSp ⁡ W
8 eqid ⊢ 0 W = 0 W
9 eqid ⊢ LSHyp ⁡ W = LSHyp ⁡ W
10 6 7 8 1 9 2 islpolN ⊢ W ∈ X → ⊥ ˙ ∈ P ↔ ⊥ ˙ : 𝒫 Base W ⟶ LSubSp ⁡ W ∧ ⊥ ˙ ⁡ Base W = 0 W ∧ ∀ x ∀ y x ⊆ Base W ∧ y ⊆ Base W ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
11 3 10 syl ⊢ φ → ⊥ ˙ ∈ P ↔ ⊥ ˙ : 𝒫 Base W ⟶ LSubSp ⁡ W ∧ ⊥ ˙ ⁡ Base W = 0 W ∧ ∀ x ∀ y x ⊆ Base W ∧ y ⊆ Base W ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
12 4 11 mpbid ⊢ φ → ⊥ ˙ : 𝒫 Base W ⟶ LSubSp ⁡ W ∧ ⊥ ˙ ⁡ Base W = 0 W ∧ ∀ x ∀ y x ⊆ Base W ∧ y ⊆ Base W ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
13 simpr3 ⊢ ⊥ ˙ : 𝒫 Base W ⟶ LSubSp ⁡ W ∧ ⊥ ˙ ⁡ Base W = 0 W ∧ ∀ x ∀ y x ⊆ Base W ∧ y ⊆ Base W ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x → ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
14 fveq2 ⊢ x = Q → ⊥ ˙ ⁡ x = ⊥ ˙ ⁡ Q
15 14 eleq1d ⊢ x = Q → ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ↔ ⊥ ˙ ⁡ Q ∈ LSHyp ⁡ W
16 2fveq3 ⊢ x = Q → ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q
17 id ⊢ x = Q → x = Q
18 16 17 eqeq12d ⊢ x = Q → ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x ↔ ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
19 15 18 anbi12d ⊢ x = Q → ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x ↔ ⊥ ˙ ⁡ Q ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
20 19 rspcv ⊢ Q ∈ A → ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x → ⊥ ˙ ⁡ Q ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
21 5 20 syl ⊢ φ → ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x → ⊥ ˙ ⁡ Q ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
22 simpr ⊢ ⊥ ˙ ⁡ Q ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q → ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
23 13 21 22 syl56 ⊢ φ → ⊥ ˙ : 𝒫 Base W ⟶ LSubSp ⁡ W ∧ ⊥ ˙ ⁡ Base W = 0 W ∧ ∀ x ∀ y x ⊆ Base W ∧ y ⊆ Base W ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ LSHyp ⁡ W ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x → ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q
24 12 23 mpd ⊢ φ → ⊥ ˙ ⁡ ⊥ ˙ ⁡ Q = Q