Theorem atcmp 39771

Description: If two atoms are comparable, they are equal. (atsseq 32433 analog.) (Contributed by NM, 13-Oct-2011.)

Hypotheses

Ref	Expression
atcmp.l	⊢ ≤ = (le‘𝐾)
atcmp.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
atcmp	⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ≤ 𝑄 ↔ 𝑃 = 𝑄))

Proof of Theorem atcmp

Step	Hyp	Ref	Expression
1		atlpos 39761	. . 3 ⊢ (𝐾 ∈ AtLat → 𝐾 ∈ Poset)
2	1	3ad2ant1 1134	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝐾 ∈ Poset)
3		eqid 2737	. . . 4 ⊢ (Base‘𝐾) = (Base‘𝐾)
4		atcmp.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
5	3, 4	atbase 39749	. . 3 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
6	5	3ad2ant2 1135	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑃 ∈ (Base‘𝐾))
7	3, 4	atbase 39749	. . 3 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
8	7	3ad2ant3 1136	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑄 ∈ (Base‘𝐾))
9		eqid 2737	. . . 4 ⊢ (0.‘𝐾) = (0.‘𝐾)
10	3, 9	atl0cl 39763	. . 3 ⊢ (𝐾 ∈ AtLat → (0.‘𝐾) ∈ (Base‘𝐾))
11	10	3ad2ant1 1134	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (0.‘𝐾) ∈ (Base‘𝐾))
12		eqid 2737	. . . 4 ⊢ ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
13	9, 12, 4	atcvr0 39748	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴) → (0.‘𝐾)( ⋖ ‘𝐾)𝑃)
14	13	3adant3 1133	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (0.‘𝐾)( ⋖ ‘𝐾)𝑃)
15	9, 12, 4	atcvr0 39748	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴) → (0.‘𝐾)( ⋖ ‘𝐾)𝑄)
16	15	3adant2 1132	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (0.‘𝐾)( ⋖ ‘𝐾)𝑄)
17		atcmp.l	. . 3 ⊢ ≤ = (le‘𝐾)
18	3, 17, 12	cvrcmp 39743	. 2 ⊢ ((𝐾 ∈ Poset ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾) ∧ (0.‘𝐾) ∈ (Base‘𝐾)) ∧ ((0.‘𝐾)( ⋖ ‘𝐾)𝑃 ∧ (0.‘𝐾)( ⋖ ‘𝐾)𝑄)) → (𝑃 ≤ 𝑄 ↔ 𝑃 = 𝑄))
19	2, 6, 8, 11, 14, 16, 18	syl132anc 1391	1 ⊢ ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ≤ 𝑄 ↔ 𝑃 = 𝑄))

Syntax hints:   → wi 4   ↔ wb 206   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   class class class wbr 5086  ‘cfv 6492  Basecbs 17170  lecple 17218  Posetcpo 18264  0.cp0 18378   ⋖ ccvr 39722  Atomscatm 39723  AtLatcal 39724

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5519  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7317  df-proset 18251  df-poset 18270  df-plt 18285  df-glb 18302  df-p0 18380  df-lat 18389  df-covers 39726  df-ats 39727  df-atl 39758

This theorem is referenced by:  atncmp  39772  atnlt  39773  atnle  39777  cvlsupr2  39803  cvratlem  39881  2atjm  39905  atbtwn  39906  2atm  39987  2llnmeqat  40031  dalem25  40158  dalem55  40187  dalem57  40189  snatpsubN  40210  pmapat  40223  2llnma1b  40246  cdlemblem  40253  lhp2at0nle  40495  lhpat3  40506  4atexlemcnd  40532  trlval3  40647  cdlemc5  40655  cdleme3  40697  cdleme7  40709  cdleme11k  40728  cdleme16b  40739  cdleme16e  40742  cdleme16f  40743  cdlemednpq  40759  cdleme20j  40778  cdleme22aa  40799  cdleme22cN  40802  cdleme22d  40803  cdlemf2  41022  cdlemb3  41066  cdlemg12e  41107  cdlemg17dALTN  41124  cdlemg19a  41143  cdlemg27b  41156  cdlemg31d  41160  trlcone  41188  cdlemi  41280  tendotr  41290  cdlemk17  41318  cdlemk52  41414  cdleml1N  41436  dia2dimlem1  41524  dia2dimlem2  41525  dia2dimlem3  41526