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

Theorem dihmeetlem3N 42029
Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 30-Mar-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihmeetlem3.b 𝐵 = (Base‘𝐾)
dihmeetlem3.l = (le‘𝐾)
dihmeetlem3.j = (join‘𝐾)
dihmeetlem3.m = (meet‘𝐾)
dihmeetlem3.a 𝐴 = (Atoms‘𝐾)
dihmeetlem3.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
dihmeetlem3N ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌)) → 𝑄𝑅)

Proof of Theorem dihmeetlem3N
StepHypRef Expression
1 simp2lr 1258 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌)) → ¬ 𝑄 𝑊)
2 oveq1 7421 . . . . . . 7 (𝑄 = 𝑅 → (𝑄 (𝑌 𝑊)) = (𝑅 (𝑌 𝑊)))
3 simpr 489 . . . . . . 7 (((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌) → (𝑅 (𝑌 𝑊)) = 𝑌)
42, 3sylan9eqr 2827 . . . . . 6 ((((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌) ∧ 𝑄 = 𝑅) → (𝑄 (𝑌 𝑊)) = 𝑌)
5 dihmeetlem3.b . . . . . . . 8 𝐵 = (Base‘𝐾)
6 dihmeetlem3.l . . . . . . . 8 = (le‘𝐾)
7 simp11l 1301 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝐾 ∈ HL)
87hllatd 40088 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝐾 ∈ Lat)
9 simp2ll 1257 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄𝐴)
10 dihmeetlem3.a . . . . . . . . . 10 𝐴 = (Atoms‘𝐾)
115, 10atbase 40013 . . . . . . . . 9 (𝑄𝐴𝑄𝐵)
129, 11syl 18 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄𝐵)
13 simp12l 1303 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑋𝐵)
14 simp12r 1304 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑌𝐵)
15 dihmeetlem3.m . . . . . . . . . 10 = (meet‘𝐾)
165, 15latmcl 18499 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
178, 13, 14, 16syl3anc 1396 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑋 𝑌) ∈ 𝐵)
18 simp11r 1302 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑊𝐻)
19 dihmeetlem3.h . . . . . . . . . 10 𝐻 = (LHyp‘𝐾)
205, 19lhpbase 40722 . . . . . . . . 9 (𝑊𝐻𝑊𝐵)
2118, 20syl 18 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑊𝐵)
225, 15latmcl 18499 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
238, 13, 21, 22syl3anc 1396 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑋 𝑊) ∈ 𝐵)
24 dihmeetlem3.j . . . . . . . . . . . 12 = (join‘𝐾)
255, 6, 24latlej1 18507 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → 𝑄 (𝑄 (𝑋 𝑊)))
268, 12, 23, 25syl3anc 1396 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 (𝑄 (𝑋 𝑊)))
27 simp2r 1217 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑄 (𝑋 𝑊)) = 𝑋)
2826, 27breqtrd 5142 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 𝑋)
295, 15latmcl 18499 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) ∈ 𝐵)
308, 14, 21, 29syl3anc 1396 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑌 𝑊) ∈ 𝐵)
315, 6, 24latlej1 18507 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑌 𝑊) ∈ 𝐵) → 𝑄 (𝑄 (𝑌 𝑊)))
328, 12, 30, 31syl3anc 1396 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 (𝑄 (𝑌 𝑊)))
33 simp3 1154 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑄 (𝑌 𝑊)) = 𝑌)
3432, 33breqtrd 5142 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 𝑌)
355, 6, 15latlem12 18525 . . . . . . . . . 10 ((𝐾 ∈ Lat ∧ (𝑄𝐵𝑋𝐵𝑌𝐵)) → ((𝑄 𝑋𝑄 𝑌) ↔ 𝑄 (𝑋 𝑌)))
368, 12, 13, 14, 35syl13anc 1397 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → ((𝑄 𝑋𝑄 𝑌) ↔ 𝑄 (𝑋 𝑌)))
3728, 34, 36mpbi2and 724 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 (𝑋 𝑌))
38 simp13 1222 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → (𝑋 𝑌) 𝑊)
395, 6, 8, 12, 17, 21, 37, 38lattrd 18505 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ (𝑄 (𝑌 𝑊)) = 𝑌) → 𝑄 𝑊)
40393exp 1135 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) → (((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) → ((𝑄 (𝑌 𝑊)) = 𝑌𝑄 𝑊)))
414, 40syl7 75 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) → (((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) → ((((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌) ∧ 𝑄 = 𝑅) → 𝑄 𝑊)))
4241exp4a 436 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) → (((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) → (((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌) → (𝑄 = 𝑅𝑄 𝑊))))
43423imp 1126 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌)) → (𝑄 = 𝑅𝑄 𝑊))
4443necon3bd 2979 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌)) → (¬ 𝑄 𝑊𝑄𝑅))
451, 44mpd 16 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ (𝑋 𝑌) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 (𝑋 𝑊)) = 𝑋) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑅 (𝑌 𝑊)) = 𝑌)) → 𝑄𝑅)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1568  wcel 2150  wne 2965   class class class wbr 5114  cfv 6540  (class class class)co 7414  Basecbs 17272  lecple 17320  joincjn 18370  meetcmee 18371  Latclat 18490  Atomscatm 39987  HLchlt 40074  LHypclh 40708
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2152  ax-9 2160  ax-10 2183  ax-11 2199  ax-12 2220  ax-ext 2742  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5340  ax-pr 5408  ax-un 7736
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2099  df-mo 2574  df-eu 2604  df-clab 2749  df-cleq 2762  df-clel 2845  df-nfc 2919  df-ne 2966  df-ral 3087  df-rex 3097  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3464  df-sbc 3753  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5560  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7371  df-ov 7417  df-oprab 7418  df-poset 18372  df-lub 18403  df-glb 18404  df-join 18405  df-meet 18406  df-lat 18491  df-ats 39991  df-atl 40022  df-cvlat 40046  df-hlat 40075  df-lhyp 40712
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator