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

Theorem cdlemn2 39647
Description: Part of proof of Lemma N of [Crawley] p. 121 line 30. (Contributed by NM, 21-Feb-2014.)
Hypotheses
Ref Expression
cdlemn2.b 𝐵 = (Base‘𝐾)
cdlemn2.l = (le‘𝐾)
cdlemn2.j = (join‘𝐾)
cdlemn2.a 𝐴 = (Atoms‘𝐾)
cdlemn2.h 𝐻 = (LHyp‘𝐾)
cdlemn2.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemn2.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemn2.f 𝐹 = (𝑇 (𝑄) = 𝑆)
Assertion
Ref Expression
cdlemn2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑅𝐹) 𝑋)
Distinct variable groups:   ,   𝐴,   ,𝐻   ,𝐾   𝑄,   𝑆,   𝑇,   ,𝑊
Allowed substitution hints:   𝐵()   𝑅()   𝐹()   ()   𝑋()

Proof of Theorem cdlemn2
StepHypRef Expression
1 simp1 1136 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp21 1206 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
3 simp22 1207 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
4 cdlemn2.l . . . . . . 7 = (le‘𝐾)
5 cdlemn2.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
6 cdlemn2.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
7 cdlemn2.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
8 cdlemn2.f . . . . . . 7 𝐹 = (𝑇 (𝑄) = 𝑆)
94, 5, 6, 7, 8ltrniotacl 39031 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → 𝐹𝑇)
101, 2, 3, 9syl3anc 1371 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝐹𝑇)
11 cdlemn2.j . . . . . 6 = (join‘𝐾)
12 eqid 2736 . . . . . 6 (meet‘𝐾) = (meet‘𝐾)
13 cdlemn2.r . . . . . 6 𝑅 = ((trL‘𝐾)‘𝑊)
144, 11, 12, 5, 6, 7, 13trlval2 38615 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑅𝐹) = ((𝑄 (𝐹𝑄))(meet‘𝐾)𝑊))
151, 10, 2, 14syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑅𝐹) = ((𝑄 (𝐹𝑄))(meet‘𝐾)𝑊))
164, 5, 6, 7, 8ltrniotaval 39033 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝐹𝑄) = 𝑆)
171, 2, 3, 16syl3anc 1371 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝐹𝑄) = 𝑆)
1817oveq2d 7370 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑄 (𝐹𝑄)) = (𝑄 𝑆))
1918oveq1d 7369 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → ((𝑄 (𝐹𝑄))(meet‘𝐾)𝑊) = ((𝑄 𝑆)(meet‘𝐾)𝑊))
2015, 19eqtrd 2776 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑅𝐹) = ((𝑄 𝑆)(meet‘𝐾)𝑊))
21 simp1l 1197 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝐾 ∈ HL)
2221hllatd 37815 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝐾 ∈ Lat)
23 simp21l 1290 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑄𝐴)
24 cdlemn2.b . . . . . . . 8 𝐵 = (Base‘𝐾)
2524, 5atbase 37740 . . . . . . 7 (𝑄𝐴𝑄𝐵)
2623, 25syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑄𝐵)
27 simp23l 1294 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑋𝐵)
2824, 4, 11latlej1 18334 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵𝑋𝐵) → 𝑄 (𝑄 𝑋))
2922, 26, 27, 28syl3anc 1371 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑄 (𝑄 𝑋))
30 simp3 1138 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑆 (𝑄 𝑋))
31 simp22l 1292 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑆𝐴)
3224, 5atbase 37740 . . . . . . 7 (𝑆𝐴𝑆𝐵)
3331, 32syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑆𝐵)
3424, 11latjcl 18325 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑄𝐵𝑋𝐵) → (𝑄 𝑋) ∈ 𝐵)
3522, 26, 27, 34syl3anc 1371 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑄 𝑋) ∈ 𝐵)
3624, 4, 11latjle12 18336 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑄𝐵𝑆𝐵 ∧ (𝑄 𝑋) ∈ 𝐵)) → ((𝑄 (𝑄 𝑋) ∧ 𝑆 (𝑄 𝑋)) ↔ (𝑄 𝑆) (𝑄 𝑋)))
3722, 26, 33, 35, 36syl13anc 1372 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → ((𝑄 (𝑄 𝑋) ∧ 𝑆 (𝑄 𝑋)) ↔ (𝑄 𝑆) (𝑄 𝑋)))
3829, 30, 37mpbi2and 710 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑄 𝑆) (𝑄 𝑋))
3924, 11, 5hlatjcl 37818 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑄𝐴𝑆𝐴) → (𝑄 𝑆) ∈ 𝐵)
4021, 23, 31, 39syl3anc 1371 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑄 𝑆) ∈ 𝐵)
41 simp1r 1198 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑊𝐻)
4224, 6lhpbase 38450 . . . . . 6 (𝑊𝐻𝑊𝐵)
4341, 42syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → 𝑊𝐵)
4424, 4, 12latmlem1 18355 . . . . 5 ((𝐾 ∈ Lat ∧ ((𝑄 𝑆) ∈ 𝐵 ∧ (𝑄 𝑋) ∈ 𝐵𝑊𝐵)) → ((𝑄 𝑆) (𝑄 𝑋) → ((𝑄 𝑆)(meet‘𝐾)𝑊) ((𝑄 𝑋)(meet‘𝐾)𝑊)))
4522, 40, 35, 43, 44syl13anc 1372 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → ((𝑄 𝑆) (𝑄 𝑋) → ((𝑄 𝑆)(meet‘𝐾)𝑊) ((𝑄 𝑋)(meet‘𝐾)𝑊)))
4638, 45mpd 15 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → ((𝑄 𝑆)(meet‘𝐾)𝑊) ((𝑄 𝑋)(meet‘𝐾)𝑊))
4720, 46eqbrtrd 5126 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑅𝐹) ((𝑄 𝑋)(meet‘𝐾)𝑊))
48 simp23 1208 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑋𝐵𝑋 𝑊))
4924, 4, 11, 12, 5, 6lhple 38494 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) → ((𝑄 𝑋)(meet‘𝐾)𝑊) = 𝑋)
501, 2, 48, 49syl3anc 1371 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → ((𝑄 𝑋)(meet‘𝐾)𝑊) = 𝑋)
5147, 50breqtrd 5130 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑆 (𝑄 𝑋)) → (𝑅𝐹) 𝑋)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106   class class class wbr 5104  cfv 6494  crio 7309  (class class class)co 7354  Basecbs 17080  lecple 17137  joincjn 18197  meetcmee 18198  Latclat 18317  Atomscatm 37714  HLchlt 37801  LHypclh 38436  LTrncltrn 38553  trLctrl 38610
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 2707  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7669  ax-riotaBAD 37404
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2888  df-ne 2943  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-iun 4955  df-iin 4956  df-br 5105  df-opab 5167  df-mpt 5188  df-id 5530  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7310  df-ov 7357  df-oprab 7358  df-mpo 7359  df-1st 7918  df-2nd 7919  df-undef 8201  df-map 8764  df-proset 18181  df-poset 18199  df-plt 18216  df-lub 18232  df-glb 18233  df-join 18234  df-meet 18235  df-p0 18311  df-p1 18312  df-lat 18318  df-clat 18385  df-oposet 37627  df-ol 37629  df-oml 37630  df-covers 37717  df-ats 37718  df-atl 37749  df-cvlat 37773  df-hlat 37802  df-llines 37950  df-lplanes 37951  df-lvols 37952  df-lines 37953  df-psubsp 37955  df-pmap 37956  df-padd 38248  df-lhyp 38440  df-laut 38441  df-ldil 38556  df-ltrn 38557  df-trl 38611
This theorem is referenced by:  cdlemn2a  39648
  Copyright terms: Public domain W3C validator