Theorem atle 37753

Description: Any nonzero element has an atom under it. (Contributed by NM, 28-Jun-2012.)

Hypotheses

Ref	Expression
atle.b	⊢ 𝐵 = (Base‘𝐾)
atle.l	⊢ ≤ = (le‘𝐾)
atle.z	⊢ 0 = (0.‘𝐾)
atle.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
atle	⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ∃𝑝 ∈ 𝐴 𝑝 ≤ 𝑋)

Distinct variable groups:   𝐴,𝑝   𝐵,𝑝   𝐾,𝑝   ≤ ,𝑝   𝑋,𝑝   0 ,𝑝

Proof of Theorem atle

Step	Hyp	Ref	Expression
1		simp1 1136	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 𝐾 ∈ HL)
2		hlop 37678	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
3	2	3ad2ant1 1133	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 𝐾 ∈ OP)
4		atle.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
5		atle.z	. . . . 5 ⊢ 0 = (0.‘𝐾)
6	4, 5	op0cl 37500	. . . 4 ⊢ (𝐾 ∈ OP → 0 ∈ 𝐵)
7	3, 6	syl 17	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 0 ∈ 𝐵)
8		simp2 1137	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 𝑋 ∈ 𝐵)
9		simp3 1138	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 𝑋 ≠ 0 )
10		eqid 2737	. . . . . 6 ⊢ (lt‘𝐾) = (lt‘𝐾)
11	4, 10, 5	opltn0 37506	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ( 0 (lt‘𝐾)𝑋 ↔ 𝑋 ≠ 0 ))
12	3, 8, 11	syl2anc 585	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ( 0 (lt‘𝐾)𝑋 ↔ 𝑋 ≠ 0 ))
13	9, 12	mpbird 257	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → 0 (lt‘𝐾)𝑋)
14		atle.l	. . . 4 ⊢ ≤ = (le‘𝐾)
15		eqid 2737	. . . 4 ⊢ (join‘𝐾) = (join‘𝐾)
16		atle.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
17	4, 14, 10, 15, 16	hlrelat 37719	. . 3 ⊢ (((𝐾 ∈ HL ∧ 0 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ 0 (lt‘𝐾)𝑋) → ∃𝑝 ∈ 𝐴 ( 0 (lt‘𝐾)( 0 (join‘𝐾)𝑝) ∧ ( 0 (join‘𝐾)𝑝) ≤ 𝑋))
18	1, 7, 8, 13, 17	syl31anc 1373	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ∃𝑝 ∈ 𝐴 ( 0 (lt‘𝐾)( 0 (join‘𝐾)𝑝) ∧ ( 0 (join‘𝐾)𝑝) ≤ 𝑋))
19		simpl1 1191	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → 𝐾 ∈ HL)
20		hlol 37677	. . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
21	19, 20	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → 𝐾 ∈ OL)
22	4, 16	atbase 37605	. . . . . . . 8 ⊢ (𝑝 ∈ 𝐴 → 𝑝 ∈ 𝐵)
23	22	adantl 483	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → 𝑝 ∈ 𝐵)
24	4, 15, 5	olj02 37542	. . . . . . 7 ⊢ ((𝐾 ∈ OL ∧ 𝑝 ∈ 𝐵) → ( 0 (join‘𝐾)𝑝) = 𝑝)
25	21, 23, 24	syl2anc 585	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → ( 0 (join‘𝐾)𝑝) = 𝑝)
26	25	breq1d 5107	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → (( 0 (join‘𝐾)𝑝) ≤ 𝑋 ↔ 𝑝 ≤ 𝑋))
27	26	biimpd 228	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → (( 0 (join‘𝐾)𝑝) ≤ 𝑋 → 𝑝 ≤ 𝑋))
28	27	adantld 492	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) ∧ 𝑝 ∈ 𝐴) → (( 0 (lt‘𝐾)( 0 (join‘𝐾)𝑝) ∧ ( 0 (join‘𝐾)𝑝) ≤ 𝑋) → 𝑝 ≤ 𝑋))
29	28	reximdva 3162	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → (∃𝑝 ∈ 𝐴 ( 0 (lt‘𝐾)( 0 (join‘𝐾)𝑝) ∧ ( 0 (join‘𝐾)𝑝) ≤ 𝑋) → ∃𝑝 ∈ 𝐴 𝑝 ≤ 𝑋))
30	18, 29	mpd 15	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ∃𝑝 ∈ 𝐴 𝑝 ≤ 𝑋)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   ≠ wne 2941  ∃wrex 3071   class class class wbr 5097  ‘cfv 6484  (class class class)co 7342  Basecbs 17010  lecple 17067  ltcplt 18124  joincjn 18127  0.cp0 18239  OPcops 37488  OLcol 37490  Atomscatm 37579  HLchlt 37666

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5234  ax-sep 5248  ax-nul 5255  ax-pow 5313  ax-pr 5377  ax-un 7655

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3732  df-csb 3848  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4275  df-if 4479  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4858  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5181  df-id 5523  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6436  df-fun 6486  df-fn 6487  df-f 6488  df-f1 6489  df-fo 6490  df-f1o 6491  df-fv 6492  df-riota 7298  df-ov 7345  df-oprab 7346  df-proset 18111  df-poset 18129  df-plt 18146  df-lub 18162  df-glb 18163  df-join 18164  df-meet 18165  df-p0 18241  df-lat 18248  df-clat 18315  df-oposet 37492  df-ol 37494  df-oml 37495  df-covers 37582  df-ats 37583  df-atl 37614  df-cvlat 37638  df-hlat 37667

This theorem is referenced by:  1cvratex  37790  llnle  37835  lhpexle  38322