Metamath Proof Explorer


Theorem islpoldN

Description: Properties that determine a polarity. (Contributed by NM, 26-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
islpold.w ⊢ φ → W ∈ X
islpold.1 ⊢ φ → ⊥ ˙ : 𝒫 V ⟶ S
islpold.2 ⊢ φ → ⊥ ˙ ⁡ V = 0 ˙
islpold.3 ⊢ φ ∧ x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x
islpold.4 ⊢ φ ∧ x ∈ A → ⊥ ˙ ⁡ x ∈ H
islpold.5 ⊢ φ ∧ x ∈ A → ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
Assertion islpoldN ⊢ φ → ⊥ ˙ ∈ P

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 islpold.w ⊢ φ → W ∈ X
8 islpold.1 ⊢ φ → ⊥ ˙ : 𝒫 V ⟶ S
9 islpold.2 ⊢ φ → ⊥ ˙ ⁡ V = 0 ˙
10 islpold.3 ⊢ φ ∧ x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x
11 islpold.4 ⊢ φ ∧ x ∈ A → ⊥ ˙ ⁡ x ∈ H
12 islpold.5 ⊢ φ ∧ x ∈ A → ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
13 10 ex ⊢ φ → x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x
14 13 alrimivv ⊢ φ → ∀ x ∀ y x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x
15 11 12 jca ⊢ φ ∧ x ∈ A → ⊥ ˙ ⁡ x ∈ H ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
16 15 ralrimiva ⊢ φ → ∀ x ∈ A ⊥ ˙ ⁡ x ∈ H ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
17 9 14 16 3jca ⊢ φ → ⊥ ˙ ⁡ V = 0 ˙ ∧ ∀ x ∀ y x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ H ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
18 1 2 3 4 5 6 islpolN ⊢ W ∈ X → ⊥ ˙ ∈ P ↔ ⊥ ˙ : 𝒫 V ⟶ S ∧ ⊥ ˙ ⁡ V = 0 ˙ ∧ ∀ x ∀ y x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ H ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
19 7 18 syl ⊢ φ → ⊥ ˙ ∈ P ↔ ⊥ ˙ : 𝒫 V ⟶ S ∧ ⊥ ˙ ⁡ V = 0 ˙ ∧ ∀ x ∀ y x ⊆ V ∧ y ⊆ V ∧ x ⊆ y → ⊥ ˙ ⁡ y ⊆ ⊥ ˙ ⁡ x ∧ ∀ x ∈ A ⊥ ˙ ⁡ x ∈ H ∧ ⊥ ˙ ⁡ ⊥ ˙ ⁡ x = x
20 8 17 19 mpbir2and ⊢ φ → ⊥ ˙ ∈ P