Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  4atexlemcnd Structured version   Visualization version   GIF version

Theorem 4atexlemcnd 40874
Description: Lemma for 4atexlem7 40877. (Contributed by NM, 24-Nov-2012.)
Hypotheses
Ref Expression
4thatlem.ph (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑆𝐴 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊 ∧ (𝑃 𝑅) = (𝑄 𝑅)) ∧ (𝑇𝐴 ∧ (𝑈 𝑇) = (𝑉 𝑇))) ∧ (𝑃𝑄 ∧ ¬ 𝑆 (𝑃 𝑄))))
4thatlem0.l = (le‘𝐾)
4thatlem0.j = (join‘𝐾)
4thatlem0.m = (meet‘𝐾)
4thatlem0.a 𝐴 = (Atoms‘𝐾)
4thatlem0.h 𝐻 = (LHyp‘𝐾)
4thatlem0.u 𝑈 = ((𝑃 𝑄) 𝑊)
4thatlem0.v 𝑉 = ((𝑃 𝑆) 𝑊)
4thatlem0.c 𝐶 = ((𝑄 𝑇) (𝑃 𝑆))
4thatlem0.d 𝐷 = ((𝑅 𝑇) (𝑃 𝑆))
Assertion
Ref Expression
4atexlemcnd (𝜑𝐶𝐷)

Proof of Theorem 4atexlemcnd
StepHypRef Expression
1 4thatlem.ph . . . 4 (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑆𝐴 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊 ∧ (𝑃 𝑅) = (𝑄 𝑅)) ∧ (𝑇𝐴 ∧ (𝑈 𝑇) = (𝑉 𝑇))) ∧ (𝑃𝑄 ∧ ¬ 𝑆 (𝑃 𝑄))))
2 4thatlem0.l . . . 4 = (le‘𝐾)
3 4thatlem0.j . . . 4 = (join‘𝐾)
4 4thatlem0.m . . . 4 = (meet‘𝐾)
5 4thatlem0.a . . . 4 𝐴 = (Atoms‘𝐾)
6 4thatlem0.h . . . 4 𝐻 = (LHyp‘𝐾)
7 4thatlem0.u . . . 4 𝑈 = ((𝑃 𝑄) 𝑊)
8 4thatlem0.v . . . 4 𝑉 = ((𝑃 𝑆) 𝑊)
91, 2, 3, 4, 5, 6, 7, 84atexlemtlw 40869 . . 3 (𝜑𝑇 𝑊)
10 4thatlem0.c . . . 4 𝐶 = ((𝑄 𝑇) (𝑃 𝑆))
111, 2, 3, 4, 5, 6, 7, 8, 104atexlemnclw 40872 . . 3 (𝜑 → ¬ 𝐶 𝑊)
12 nbrne2 5131 . . 3 ((𝑇 𝑊 ∧ ¬ 𝐶 𝑊) → 𝑇𝐶)
139, 11, 12syl2anc 595 . 2 (𝜑𝑇𝐶)
1414atexlemk 40849 . . . . . . . . 9 (𝜑𝐾 ∈ HL)
1514atexlemq 40853 . . . . . . . . 9 (𝜑𝑄𝐴)
1614atexlemt 40855 . . . . . . . . 9 (𝜑𝑇𝐴)
173, 5hlatjcom 40170 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑄𝐴𝑇𝐴) → (𝑄 𝑇) = (𝑇 𝑄))
1814, 15, 16, 17syl3anc 1398 . . . . . . . 8 (𝜑 → (𝑄 𝑇) = (𝑇 𝑄))
19 simp221 1333 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑆𝐴 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊 ∧ (𝑃 𝑅) = (𝑄 𝑅)) ∧ (𝑇𝐴 ∧ (𝑈 𝑇) = (𝑉 𝑇))) ∧ (𝑃𝑄 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅𝐴)
201, 19sylbi 220 . . . . . . . . 9 (𝜑𝑅𝐴)
213, 5hlatjcom 40170 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑇𝐴) → (𝑅 𝑇) = (𝑇 𝑅))
2214, 20, 16, 21syl3anc 1398 . . . . . . . 8 (𝜑 → (𝑅 𝑇) = (𝑇 𝑅))
2318, 22oveq12d 7428 . . . . . . 7 (𝜑 → ((𝑄 𝑇) (𝑅 𝑇)) = ((𝑇 𝑄) (𝑇 𝑅)))
2414atexlemkc 40860 . . . . . . . . 9 (𝜑𝐾 ∈ CvLat)
2514atexlemp 40852 . . . . . . . . 9 (𝜑𝑃𝐴)
2614atexlempnq 40857 . . . . . . . . 9 (𝜑𝑃𝑄)
27 simp223 1335 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑆𝐴 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊 ∧ (𝑃 𝑅) = (𝑄 𝑅)) ∧ (𝑇𝐴 ∧ (𝑈 𝑇) = (𝑉 𝑇))) ∧ (𝑃𝑄 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑃 𝑅) = (𝑄 𝑅))
281, 27sylbi 220 . . . . . . . . 9 (𝜑 → (𝑃 𝑅) = (𝑄 𝑅))
295, 3cvlsupr6 40149 . . . . . . . . . 10 ((𝐾 ∈ CvLat ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑃𝑄 ∧ (𝑃 𝑅) = (𝑄 𝑅))) → 𝑅𝑄)
3029necomd 3013 . . . . . . . . 9 ((𝐾 ∈ CvLat ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑃𝑄 ∧ (𝑃 𝑅) = (𝑄 𝑅))) → 𝑄𝑅)
3124, 25, 15, 20, 26, 28, 30syl132anc 1415 . . . . . . . 8 (𝜑𝑄𝑅)
321, 2, 3, 4, 5, 6, 7, 84atexlemntlpq 40870 . . . . . . . . 9 (𝜑 → ¬ 𝑇 (𝑃 𝑄))
335, 3cvlsupr7 40150 . . . . . . . . . . . 12 ((𝐾 ∈ CvLat ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑃𝑄 ∧ (𝑃 𝑅) = (𝑄 𝑅))) → (𝑃 𝑄) = (𝑅 𝑄))
3424, 25, 15, 20, 26, 28, 33syl132anc 1415 . . . . . . . . . . 11 (𝜑 → (𝑃 𝑄) = (𝑅 𝑄))
353, 5hlatjcom 40170 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑄𝐴𝑅𝐴) → (𝑄 𝑅) = (𝑅 𝑄))
3614, 15, 20, 35syl3anc 1398 . . . . . . . . . . 11 (𝜑 → (𝑄 𝑅) = (𝑅 𝑄))
3734, 36eqtr4d 2801 . . . . . . . . . 10 (𝜑 → (𝑃 𝑄) = (𝑄 𝑅))
3837breq2d 5121 . . . . . . . . 9 (𝜑 → (𝑇 (𝑃 𝑄) ↔ 𝑇 (𝑄 𝑅)))
3932, 38mtbid 327 . . . . . . . 8 (𝜑 → ¬ 𝑇 (𝑄 𝑅))
402, 3, 4, 52llnma2 40591 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑄𝐴𝑅𝐴𝑇𝐴) ∧ (𝑄𝑅 ∧ ¬ 𝑇 (𝑄 𝑅))) → ((𝑇 𝑄) (𝑇 𝑅)) = 𝑇)
4114, 15, 20, 16, 31, 39, 40syl132anc 1415 . . . . . . 7 (𝜑 → ((𝑇 𝑄) (𝑇 𝑅)) = 𝑇)
4223, 41eqtr2d 2799 . . . . . 6 (𝜑𝑇 = ((𝑄 𝑇) (𝑅 𝑇)))
4342adantr 485 . . . . 5 ((𝜑𝐶 = 𝐷) → 𝑇 = ((𝑄 𝑇) (𝑅 𝑇)))
4414atexlemkl 40859 . . . . . . . . . 10 (𝜑𝐾 ∈ Lat)
451, 3, 54atexlemqtb 40863 . . . . . . . . . 10 (𝜑 → (𝑄 𝑇) ∈ (Base‘𝐾))
461, 3, 54atexlempsb 40862 . . . . . . . . . 10 (𝜑 → (𝑃 𝑆) ∈ (Base‘𝐾))
47 eqid 2763 . . . . . . . . . . 11 (Base‘𝐾) = (Base‘𝐾)
4847, 2, 4latmle1 18524 . . . . . . . . . 10 ((𝐾 ∈ Lat ∧ (𝑄 𝑇) ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → ((𝑄 𝑇) (𝑃 𝑆)) (𝑄 𝑇))
4944, 45, 46, 48syl3anc 1398 . . . . . . . . 9 (𝜑 → ((𝑄 𝑇) (𝑃 𝑆)) (𝑄 𝑇))
5010, 49eqbrtrid 5146 . . . . . . . 8 (𝜑𝐶 (𝑄 𝑇))
5150adantr 485 . . . . . . 7 ((𝜑𝐶 = 𝐷) → 𝐶 (𝑄 𝑇))
52 simpr 489 . . . . . . . 8 ((𝜑𝐶 = 𝐷) → 𝐶 = 𝐷)
53 4thatlem0.d . . . . . . . . . 10 𝐷 = ((𝑅 𝑇) (𝑃 𝑆))
5447, 3, 5hlatjcl 40169 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑇𝐴) → (𝑅 𝑇) ∈ (Base‘𝐾))
5514, 20, 16, 54syl3anc 1398 . . . . . . . . . . 11 (𝜑 → (𝑅 𝑇) ∈ (Base‘𝐾))
5647, 2, 4latmle1 18524 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑅 𝑇) ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → ((𝑅 𝑇) (𝑃 𝑆)) (𝑅 𝑇))
5744, 55, 46, 56syl3anc 1398 . . . . . . . . . 10 (𝜑 → ((𝑅 𝑇) (𝑃 𝑆)) (𝑅 𝑇))
5853, 57eqbrtrid 5146 . . . . . . . . 9 (𝜑𝐷 (𝑅 𝑇))
5958adantr 485 . . . . . . . 8 ((𝜑𝐶 = 𝐷) → 𝐷 (𝑅 𝑇))
6052, 59eqbrtrd 5133 . . . . . . 7 ((𝜑𝐶 = 𝐷) → 𝐶 (𝑅 𝑇))
611, 2, 3, 4, 5, 6, 7, 8, 104atexlemc 40871 . . . . . . . . . 10 (𝜑𝐶𝐴)
6247, 5atbase 40091 . . . . . . . . . 10 (𝐶𝐴𝐶 ∈ (Base‘𝐾))
6361, 62syl 18 . . . . . . . . 9 (𝜑𝐶 ∈ (Base‘𝐾))
6447, 2, 4latlem12 18526 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝐶 ∈ (Base‘𝐾) ∧ (𝑄 𝑇) ∈ (Base‘𝐾) ∧ (𝑅 𝑇) ∈ (Base‘𝐾))) → ((𝐶 (𝑄 𝑇) ∧ 𝐶 (𝑅 𝑇)) ↔ 𝐶 ((𝑄 𝑇) (𝑅 𝑇))))
6544, 63, 45, 55, 64syl13anc 1399 . . . . . . . 8 (𝜑 → ((𝐶 (𝑄 𝑇) ∧ 𝐶 (𝑅 𝑇)) ↔ 𝐶 ((𝑄 𝑇) (𝑅 𝑇))))
6665adantr 485 . . . . . . 7 ((𝜑𝐶 = 𝐷) → ((𝐶 (𝑄 𝑇) ∧ 𝐶 (𝑅 𝑇)) ↔ 𝐶 ((𝑄 𝑇) (𝑅 𝑇))))
6751, 60, 66mpbi2and 724 . . . . . 6 ((𝜑𝐶 = 𝐷) → 𝐶 ((𝑄 𝑇) (𝑅 𝑇)))
68 hlatl 40162 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
6914, 68syl 18 . . . . . . . 8 (𝜑𝐾 ∈ AtLat)
7042, 16eqeltrrd 2864 . . . . . . . 8 (𝜑 → ((𝑄 𝑇) (𝑅 𝑇)) ∈ 𝐴)
712, 5atcmp 40113 . . . . . . . 8 ((𝐾 ∈ AtLat ∧ 𝐶𝐴 ∧ ((𝑄 𝑇) (𝑅 𝑇)) ∈ 𝐴) → (𝐶 ((𝑄 𝑇) (𝑅 𝑇)) ↔ 𝐶 = ((𝑄 𝑇) (𝑅 𝑇))))
7269, 61, 70, 71syl3anc 1398 . . . . . . 7 (𝜑 → (𝐶 ((𝑄 𝑇) (𝑅 𝑇)) ↔ 𝐶 = ((𝑄 𝑇) (𝑅 𝑇))))
7372adantr 485 . . . . . 6 ((𝜑𝐶 = 𝐷) → (𝐶 ((𝑄 𝑇) (𝑅 𝑇)) ↔ 𝐶 = ((𝑄 𝑇) (𝑅 𝑇))))
7467, 73mpbid 235 . . . . 5 ((𝜑𝐶 = 𝐷) → 𝐶 = ((𝑄 𝑇) (𝑅 𝑇)))
7543, 74eqtr4d 2801 . . . 4 ((𝜑𝐶 = 𝐷) → 𝑇 = 𝐶)
7675ex 417 . . 3 (𝜑 → (𝐶 = 𝐷𝑇 = 𝐶))
7776necon3d 2979 . 2 (𝜑 → (𝑇𝐶𝐶𝐷))
7813, 77mpd 16 1 (𝜑𝐶𝐷)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1103   = wceq 1570  wcel 2143  wne 2958   class class class wbr 5109  cfv 6536  (class class class)co 7410  Basecbs 17273  lecple 17321  joincjn 18371  meetcmee 18372  Latclat 18491  Atomscatm 40065  AtLatcal 40066  CvLatclc 40067  HLchlt 40152  LHypclh 40786
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732
This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-proset 18354  df-poset 18373  df-plt 18388  df-lub 18404  df-glb 18405  df-join 18406  df-meet 18407  df-p0 18483  df-p1 18484  df-lat 18492  df-clat 18559  df-oposet 39978  df-ol 39980  df-oml 39981  df-covers 40068  df-ats 40069  df-atl 40100  df-cvlat 40124  df-hlat 40153  df-llines 40300  df-lplanes 40301  df-lhyp 40790
This theorem is used by:  4atexlemex4  40875
  Copyright terms: Public domain W3C validator