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