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

Theorem cdleme35a 41107
Description: Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT. (Contributed by NM, 10-Mar-2013.)
Hypotheses
Ref Expression
cdleme35.l = (le‘𝐾)
cdleme35.j = (join‘𝐾)
cdleme35.m = (meet‘𝐾)
cdleme35.a 𝐴 = (Atoms‘𝐾)
cdleme35.h 𝐻 = (LHyp‘𝐾)
cdleme35.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme35.f 𝐹 = ((𝑅 𝑈) (𝑄 ((𝑃 𝑅) 𝑊)))
Assertion
Ref Expression
cdleme35a ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹 𝑈) = (𝑅 𝑈))

Proof of Theorem cdleme35a
StepHypRef Expression
1 simp11l 1301 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐾 ∈ HL)
21hllatd 40023 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐾 ∈ Lat)
3 simp2rl 1259 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑅𝐴)
4 eqid 2769 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
5 cdleme35.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
64, 5atbase 39948 . . . . . 6 (𝑅𝐴𝑅 ∈ (Base‘𝐾))
73, 6syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑅 ∈ (Base‘𝐾))
8 simp11 1220 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
9 simp12 1221 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
10 simp13 1222 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
11 simp2r 1217 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
12 simp2l 1216 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑃𝑄)
13 simp3 1154 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → ¬ 𝑅 (𝑃 𝑄))
14 cdleme35.l . . . . . . . 8 = (le‘𝐾)
15 cdleme35.j . . . . . . . 8 = (join‘𝐾)
16 cdleme35.m . . . . . . . 8 = (meet‘𝐾)
17 cdleme35.h . . . . . . . 8 𝐻 = (LHyp‘𝐾)
18 cdleme35.u . . . . . . . 8 𝑈 = ((𝑃 𝑄) 𝑊)
19 cdleme35.f . . . . . . . 8 𝐹 = ((𝑅 𝑈) (𝑄 ((𝑃 𝑅) 𝑊)))
2014, 15, 16, 5, 17, 18, 19cdleme3fa 40895 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄))) → 𝐹𝐴)
218, 9, 10, 11, 12, 13, 20syl132anc 1413 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐹𝐴)
224, 5atbase 39948 . . . . . 6 (𝐹𝐴𝐹 ∈ (Base‘𝐾))
2321, 22syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐹 ∈ (Base‘𝐾))
244, 14, 15latlej2 18501 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑅 ∈ (Base‘𝐾) ∧ 𝐹 ∈ (Base‘𝐾)) → 𝐹 (𝑅 𝐹))
252, 7, 23, 24syl3anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐹 (𝑅 𝐹))
26 simp12l 1303 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑃𝐴)
27 simp13l 1305 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑄𝐴)
2814, 15, 16, 5, 17, 18, 19cdleme1 40886 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → (𝑅 𝐹) = (𝑅 𝑈))
298, 26, 27, 11, 28syl13anc 1397 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑅 𝐹) = (𝑅 𝑈))
3025, 29breqtrd 5138 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐹 (𝑅 𝑈))
3114, 15, 16, 5, 17, 18cdleme0a 40870 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴𝑃𝑄)) → 𝑈𝐴)
328, 9, 27, 12, 31syl112anc 1399 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑈𝐴)
334, 5atbase 39948 . . . . 5 (𝑈𝐴𝑈 ∈ (Base‘𝐾))
3432, 33syl 18 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑈 ∈ (Base‘𝐾))
354, 14, 15latlej2 18501 . . . 4 ((𝐾 ∈ Lat ∧ 𝑅 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾)) → 𝑈 (𝑅 𝑈))
362, 7, 34, 35syl3anc 1396 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑈 (𝑅 𝑈))
374, 15, 5hlatjcl 40026 . . . . 5 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑈𝐴) → (𝑅 𝑈) ∈ (Base‘𝐾))
381, 3, 32, 37syl3anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑅 𝑈) ∈ (Base‘𝐾))
394, 14, 15latjle12 18502 . . . 4 ((𝐾 ∈ Lat ∧ (𝐹 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ (𝑅 𝑈) ∈ (Base‘𝐾))) → ((𝐹 (𝑅 𝑈) ∧ 𝑈 (𝑅 𝑈)) ↔ (𝐹 𝑈) (𝑅 𝑈)))
402, 23, 34, 38, 39syl13anc 1397 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐹 (𝑅 𝑈) ∧ 𝑈 (𝑅 𝑈)) ↔ (𝐹 𝑈) (𝑅 𝑈)))
4130, 36, 40mpbi2and 724 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹 𝑈) (𝑅 𝑈))
42 eqid 2769 . . . . 5 ((𝑃 𝑅) 𝑊) = ((𝑃 𝑅) 𝑊)
4314, 15, 16, 5, 17, 18, 19, 42cdleme3g 40893 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄))) → 𝐹𝑈)
448, 9, 10, 11, 12, 13, 43syl132anc 1413 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝐹𝑈)
4514, 15, 5ps-1 40136 . . 3 ((𝐾 ∈ HL ∧ (𝐹𝐴𝑈𝐴𝐹𝑈) ∧ (𝑅𝐴𝑈𝐴)) → ((𝐹 𝑈) (𝑅 𝑈) ↔ (𝐹 𝑈) = (𝑅 𝑈)))
461, 21, 32, 44, 3, 32, 45syl132anc 1413 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐹 𝑈) (𝑅 𝑈) ↔ (𝐹 𝑈) = (𝑅 𝑈)))
4741, 46mpbid 235 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹 𝑈) = (𝑅 𝑈))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964   class class class wbr 5110  cfv 6533  (class class class)co 7408  Basecbs 17265  lecple 17313  joincjn 18363  meetcmee 18364  Latclat 18483  Atomscatm 39922  HLchlt 40009  LHypclh 40643
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-1st 7982  df-2nd 7983  df-proset 18346  df-poset 18365  df-plt 18380  df-lub 18396  df-glb 18397  df-join 18398  df-meet 18399  df-p0 18475  df-p1 18476  df-lat 18484  df-clat 18551  df-oposet 39835  df-ol 39837  df-oml 39838  df-covers 39925  df-ats 39926  df-atl 39957  df-cvlat 39981  df-hlat 40010  df-lines 40160  df-psubsp 40162  df-pmap 40163  df-padd 40455  df-lhyp 40647
This theorem is referenced by:  cdleme35fnpq  41108  cdleme35g  41114
  Copyright terms: Public domain W3C validator