Theorem atnle 36893

Description: Two ways of expressing "an atom is not less than or equal to a lattice element." (atnssm0 30258 analog.) (Contributed by NM, 5-Nov-2012.)

Hypotheses

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

Assertion

Ref	Expression
atnle	⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑃 ≤ 𝑋 ↔ (𝑃 ∧ 𝑋) = 0 ))

Proof of Theorem atnle

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl1 1188	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → 𝐾 ∈ AtLat)
2		atllat 36876	. . . . . . . . 9 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Lat)
3	2	3ad2ant1 1130	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → 𝐾 ∈ Lat)
4		atnle.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐾)
5		atnle.a	. . . . . . . . . 10 ⊢ 𝐴 = (Atoms‘𝐾)
6	4, 5	atbase 36865	. . . . . . . . 9 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
7	6	3ad2ant2 1131	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → 𝑃 ∈ 𝐵)
8		simp3 1135	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ 𝐵)
9		atnle.m	. . . . . . . . 9 ⊢ ∧ = (meet‘𝐾)
10	4, 9	latmcl 17728	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑃 ∧ 𝑋) ∈ 𝐵)
11	3, 7, 8, 10	syl3anc 1368	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (𝑃 ∧ 𝑋) ∈ 𝐵)
12	11	adantr 484	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → (𝑃 ∧ 𝑋) ∈ 𝐵)
13		simpr 488	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → (𝑃 ∧ 𝑋) ≠ 0 )
14		atnle.l	. . . . . . 7 ⊢ ≤ = (le‘𝐾)
15		atnle.z	. . . . . . 7 ⊢ 0 = (0.‘𝐾)
16	4, 14, 15, 5	atlex 36892	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ (𝑃 ∧ 𝑋) ∈ 𝐵 ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → ∃𝑦 ∈ 𝐴 𝑦 ≤ (𝑃 ∧ 𝑋))
17	1, 12, 13, 16	syl3anc 1368	. . . . 5 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → ∃𝑦 ∈ 𝐴 𝑦 ≤ (𝑃 ∧ 𝑋))
18		simpl1 1188	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝐾 ∈ AtLat)
19	18, 2	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝐾 ∈ Lat)
20	4, 5	atbase 36865	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐴 → 𝑦 ∈ 𝐵)
21	20	adantl 485	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝑦 ∈ 𝐵)
22		simpl2 1189	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝑃 ∈ 𝐴)
23	22, 6	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝑃 ∈ 𝐵)
24		simpl3 1190	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝑋 ∈ 𝐵)
25	4, 14, 9	latlem12 17754	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ (𝑦 ∈ 𝐵 ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) → ((𝑦 ≤ 𝑃 ∧ 𝑦 ≤ 𝑋) ↔ 𝑦 ≤ (𝑃 ∧ 𝑋)))
26	19, 21, 23, 24, 25	syl13anc 1369	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → ((𝑦 ≤ 𝑃 ∧ 𝑦 ≤ 𝑋) ↔ 𝑦 ≤ (𝑃 ∧ 𝑋)))
27		simpr 488	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → 𝑦 ∈ 𝐴)
28	14, 5	atcmp 36887	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ AtLat ∧ 𝑦 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → (𝑦 ≤ 𝑃 ↔ 𝑦 = 𝑃))
29	18, 27, 22, 28	syl3anc 1368	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → (𝑦 ≤ 𝑃 ↔ 𝑦 = 𝑃))
30		breq1 5035	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑃 → (𝑦 ≤ 𝑋 ↔ 𝑃 ≤ 𝑋))
31	30	biimpd 232	. . . . . . . . . 10 ⊢ (𝑦 = 𝑃 → (𝑦 ≤ 𝑋 → 𝑃 ≤ 𝑋))
32	29, 31	syl6bi 256	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → (𝑦 ≤ 𝑃 → (𝑦 ≤ 𝑋 → 𝑃 ≤ 𝑋)))
33	32	impd 414	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → ((𝑦 ≤ 𝑃 ∧ 𝑦 ≤ 𝑋) → 𝑃 ≤ 𝑋))
34	26, 33	sylbird 263	. . . . . . 7 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ 𝑦 ∈ 𝐴) → (𝑦 ≤ (𝑃 ∧ 𝑋) → 𝑃 ≤ 𝑋))
35	34	adantlr 714	. . . . . 6 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) ∧ 𝑦 ∈ 𝐴) → (𝑦 ≤ (𝑃 ∧ 𝑋) → 𝑃 ≤ 𝑋))
36	35	rexlimdva 3208	. . . . 5 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → (∃𝑦 ∈ 𝐴 𝑦 ≤ (𝑃 ∧ 𝑋) → 𝑃 ≤ 𝑋))
37	17, 36	mpd 15	. . . 4 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) ≠ 0 ) → 𝑃 ≤ 𝑋)
38	37	ex 416	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → ((𝑃 ∧ 𝑋) ≠ 0 → 𝑃 ≤ 𝑋))
39	38	necon1bd 2969	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑃 ≤ 𝑋 → (𝑃 ∧ 𝑋) = 0 ))
40	15, 5	atn0 36884	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → 𝑃 ≠ 0 )
41	40	3adant3 1129	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → 𝑃 ≠ 0 )
42	4, 14, 9	latleeqm1 17755	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑃 ≤ 𝑋 ↔ (𝑃 ∧ 𝑋) = 𝑃))
43	3, 7, 8, 42	syl3anc 1368	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (𝑃 ≤ 𝑋 ↔ (𝑃 ∧ 𝑋) = 𝑃))
44	43	adantr 484	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) = 0 ) → (𝑃 ≤ 𝑋 ↔ (𝑃 ∧ 𝑋) = 𝑃))
45		eqeq1 2762	. . . . . . . 8 ⊢ ((𝑃 ∧ 𝑋) = 𝑃 → ((𝑃 ∧ 𝑋) = 0 ↔ 𝑃 = 0 ))
46	45	biimpcd 252	. . . . . . 7 ⊢ ((𝑃 ∧ 𝑋) = 0 → ((𝑃 ∧ 𝑋) = 𝑃 → 𝑃 = 0 ))
47	46	adantl 485	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) = 0 ) → ((𝑃 ∧ 𝑋) = 𝑃 → 𝑃 = 0 ))
48	44, 47	sylbid 243	. . . . 5 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) = 0 ) → (𝑃 ≤ 𝑋 → 𝑃 = 0 ))
49	48	necon3ad 2964	. . . 4 ⊢ (((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ (𝑃 ∧ 𝑋) = 0 ) → (𝑃 ≠ 0 → ¬ 𝑃 ≤ 𝑋))
50	49	ex 416	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → ((𝑃 ∧ 𝑋) = 0 → (𝑃 ≠ 0 → ¬ 𝑃 ≤ 𝑋)))
51	41, 50	mpid 44	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → ((𝑃 ∧ 𝑋) = 0 → ¬ 𝑃 ≤ 𝑋))
52	39, 51	impbid 215	1 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑃 ≤ 𝑋 ↔ (𝑃 ∧ 𝑋) = 0 ))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2951  ∃wrex 3071   class class class wbr 5032  ‘cfv 6335  (class class class)co 7150  Basecbs 16541  lecple 16630  meetcmee 17621  0.cp0 17713  Latclat 17721  Atomscatm 36839  AtLatcal 36840

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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5156  ax-sep 5169  ax-nul 5176  ax-pow 5234  ax-pr 5298  ax-un 7459

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-op 4529  df-uni 4799  df-iun 4885  df-br 5033  df-opab 5095  df-mpt 5113  df-id 5430  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-res 5536  df-ima 5537  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-f1 6340  df-fo 6341  df-f1o 6342  df-fv 6343  df-riota 7108  df-ov 7153  df-oprab 7154  df-proset 17604  df-poset 17622  df-plt 17634  df-lub 17650  df-glb 17651  df-join 17652  df-meet 17653  df-p0 17715  df-lat 17722  df-covers 36842  df-ats 36843  df-atl 36874

This theorem is referenced by:  atnem0  36894  iscvlat2N  36900  cvlexch3  36908  cvlexch4N  36909  cvlcvrp  36916  intnatN  36983  cvrat4  37019  dalem24  37273  cdlema2N  37368  llnexchb2lem  37444  lhpmat  37606  cdleme15b  37851  cdlemednpq  37875  cdleme20zN  37877  cdleme22cN  37918  dihmeetlem7N  38886  dihmeetlem17N  38899