Metamath Proof Explorer


Theorem lplnle

Description: Any element greater than 0 and not an atom and not a lattice line majorizes a lattice plane. (Contributed by NM, 28-Jun-2012)

Ref Expression
Hypotheses lplnle.b B=BaseK
lplnle.l ˙=K
lplnle.z 0˙=0.K
lplnle.a A=AtomsK
lplnle.n N=LLinesK
lplnle.p P=LPlanesK
Assertion lplnle KHLXBX0˙¬XA¬XNyPy˙X

Proof

Step Hyp Ref Expression
1 lplnle.b B=BaseK
2 lplnle.l ˙=K
3 lplnle.z 0˙=0.K
4 lplnle.a A=AtomsK
5 lplnle.n N=LLinesK
6 lplnle.p P=LPlanesK
7 1 2 3 4 5 llnle KHLXBX0˙¬XAzNz˙X
8 7 3adantr3 KHLXBX0˙¬XA¬XNzNz˙X
9 simp1ll KHLXBX0˙¬XA¬XNzNz˙XKHL
10 1 5 llnbase zNzB
11 10 3ad2ant2 KHLXBX0˙¬XA¬XNzNz˙XzB
12 simp1lr KHLXBX0˙¬XA¬XNzNz˙XXB
13 simp3 KHLXBX0˙¬XA¬XNzNz˙Xz˙X
14 simp2 KHLXBX0˙¬XA¬XNzNz˙XzN
15 simp1r3 KHLXBX0˙¬XA¬XNzNz˙X¬XN
16 nelne2 zN¬XNzX
17 14 15 16 syl2anc KHLXBX0˙¬XA¬XNzNz˙XzX
18 eqid <K=<K
19 2 18 pltval KHLzNXBz<KXz˙XzX
20 9 14 12 19 syl3anc KHLXBX0˙¬XA¬XNzNz˙Xz<KXz˙XzX
21 13 17 20 mpbir2and KHLXBX0˙¬XA¬XNzNz˙Xz<KX
22 eqid joinK=joinK
23 eqid K=K
24 1 2 18 22 23 4 hlrelat3 KHLzBXBz<KXpAzKzjoinKpzjoinKp˙X
25 9 11 12 21 24 syl31anc KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙X
26 simp1ll KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XKHL
27 26 hllatd KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XKLat
28 simp21 KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzN
29 28 10 syl KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzB
30 simp23 KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XpA
31 1 4 atbase pApB
32 30 31 syl KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XpB
33 1 22 latjcl KLatzBpBzjoinKpB
34 27 29 32 33 syl3anc KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzjoinKpB
35 simp3l KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzKzjoinKp
36 1 23 5 6 lplni KHLzjoinKpBzNzKzjoinKpzjoinKpP
37 26 34 28 35 36 syl31anc KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzjoinKpP
38 simp3r KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XzjoinKp˙X
39 breq1 y=zjoinKpy˙XzjoinKp˙X
40 39 rspcev zjoinKpPzjoinKp˙XyPy˙X
41 37 38 40 syl2anc KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XyPy˙X
42 41 3exp KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XyPy˙X
43 42 3expd KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XyPy˙X
44 43 3imp KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XyPy˙X
45 44 rexlimdv KHLXBX0˙¬XA¬XNzNz˙XpAzKzjoinKpzjoinKp˙XyPy˙X
46 25 45 mpd KHLXBX0˙¬XA¬XNzNz˙XyPy˙X
47 46 3exp KHLXBX0˙¬XA¬XNzNz˙XyPy˙X
48 47 rexlimdv KHLXBX0˙¬XA¬XNzNz˙XyPy˙X
49 8 48 mpd KHLXBX0˙¬XA¬XNyPy˙X