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

Theorem dihjatc1 39311
Description: Lemma for isomorphism H of a lattice meet. TODO: shorter proof if we change order of (𝑋 𝑌) 𝑄 here and down? (Contributed by NM, 6-Apr-2014.)
Hypotheses
Ref Expression
dihjatc1.b 𝐵 = (Base‘𝐾)
dihjatc1.l = (le‘𝐾)
dihjatc1.h 𝐻 = (LHyp‘𝐾)
dihjatc1.j = (join‘𝐾)
dihjatc1.m = (meet‘𝐾)
dihjatc1.a 𝐴 = (Atoms‘𝐾)
dihjatc1.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihjatc1.s = (LSSum‘𝑈)
dihjatc1.i 𝐼 = ((DIsoH‘𝐾)‘𝑊)
Assertion
Ref Expression
dihjatc1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝐼‘((𝑋 𝑌) 𝑄)) = ((𝐼𝑄) (𝐼‘(𝑋 𝑌))))

Proof of Theorem dihjatc1
StepHypRef Expression
1 simp11 1202 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp11l 1283 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝐾 ∈ HL)
32hllatd 37364 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝐾 ∈ Lat)
4 simp12 1203 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑋𝐵)
5 simp13 1204 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑌𝐵)
6 dihjatc1.b . . . . . 6 𝐵 = (Base‘𝐾)
7 dihjatc1.m . . . . . 6 = (meet‘𝐾)
86, 7latmcl 18146 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
93, 4, 5, 8syl3anc 1370 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝑋 𝑌) ∈ 𝐵)
10 simp2l 1198 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑄𝐴)
11 dihjatc1.a . . . . . 6 𝐴 = (Atoms‘𝐾)
126, 11atbase 37289 . . . . 5 (𝑄𝐴𝑄𝐵)
1310, 12syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑄𝐵)
14 dihjatc1.j . . . . 5 = (join‘𝐾)
156, 14latjcl 18145 . . . 4 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑄𝐵) → ((𝑋 𝑌) 𝑄) ∈ 𝐵)
163, 9, 13, 15syl3anc 1370 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝑋 𝑌) 𝑄) ∈ 𝐵)
17 simp2 1136 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
18 simp3l 1200 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑄 𝑋)
19 dihjatc1.l . . . . . 6 = (le‘𝐾)
20 dihjatc1.h . . . . . 6 𝐻 = (LHyp‘𝐾)
216, 19, 20, 14, 7, 11dihmeetlem6 39309 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑄 𝑋)) → ¬ (𝑋 (𝑌 𝑄)) 𝑊)
221, 4, 5, 17, 18, 21syl32anc 1377 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ¬ (𝑋 (𝑌 𝑄)) 𝑊)
236, 19, 14, 7, 11dihmeetlem5 39308 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴𝑄 𝑋)) → (𝑋 (𝑌 𝑄)) = ((𝑋 𝑌) 𝑄))
242, 4, 5, 10, 18, 23syl32anc 1377 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝑋 (𝑌 𝑄)) = ((𝑋 𝑌) 𝑄))
2524breq1d 5084 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝑋 (𝑌 𝑄)) 𝑊 ↔ ((𝑋 𝑌) 𝑄) 𝑊))
2622, 25mtbid 324 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ¬ ((𝑋 𝑌) 𝑄) 𝑊)
276, 19, 14latlej2 18155 . . . 4 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑄𝐵) → 𝑄 ((𝑋 𝑌) 𝑄))
283, 9, 13, 27syl3anc 1370 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑄 ((𝑋 𝑌) 𝑄))
29 dihjatc1.i . . . 4 𝐼 = ((DIsoH‘𝐾)‘𝑊)
30 dihjatc1.u . . . 4 𝑈 = ((DVecH‘𝐾)‘𝑊)
31 dihjatc1.s . . . 4 = (LSSum‘𝑈)
326, 19, 14, 7, 11, 20, 29, 30, 31dihvalcq2 39247 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (((𝑋 𝑌) 𝑄) ∈ 𝐵 ∧ ¬ ((𝑋 𝑌) 𝑄) 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑄 ((𝑋 𝑌) 𝑄))) → (𝐼‘((𝑋 𝑌) 𝑄)) = ((𝐼𝑄) (𝐼‘(((𝑋 𝑌) 𝑄) 𝑊))))
331, 16, 26, 17, 28, 32syl122anc 1378 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝐼‘((𝑋 𝑌) 𝑄)) = ((𝐼𝑄) (𝐼‘(((𝑋 𝑌) 𝑄) 𝑊))))
34 eqid 2738 . . . . . . . 8 (0.‘𝐾) = (0.‘𝐾)
3519, 7, 34, 11, 20lhpmat 38030 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑄 𝑊) = (0.‘𝐾))
361, 17, 35syl2anc 584 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝑄 𝑊) = (0.‘𝐾))
3736oveq2d 7284 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝑋 𝑌) (𝑄 𝑊)) = ((𝑋 𝑌) (0.‘𝐾)))
38 simp11r 1284 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑊𝐻)
396, 20lhpbase 37998 . . . . . . 7 (𝑊𝐻𝑊𝐵)
4038, 39syl 17 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝑊𝐵)
41 simp3r 1201 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝑋 𝑌) 𝑊)
426, 19, 14, 7, 11atmod1i2 37859 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑄𝐴 ∧ (𝑋 𝑌) ∈ 𝐵𝑊𝐵) ∧ (𝑋 𝑌) 𝑊) → ((𝑋 𝑌) (𝑄 𝑊)) = (((𝑋 𝑌) 𝑄) 𝑊))
432, 10, 9, 40, 41, 42syl131anc 1382 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝑋 𝑌) (𝑄 𝑊)) = (((𝑋 𝑌) 𝑄) 𝑊))
44 hlol 37361 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OL)
452, 44syl 17 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → 𝐾 ∈ OL)
466, 14, 34olj01 37225 . . . . . 6 ((𝐾 ∈ OL ∧ (𝑋 𝑌) ∈ 𝐵) → ((𝑋 𝑌) (0.‘𝐾)) = (𝑋 𝑌))
4745, 9, 46syl2anc 584 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝑋 𝑌) (0.‘𝐾)) = (𝑋 𝑌))
4837, 43, 473eqtr3d 2786 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (((𝑋 𝑌) 𝑄) 𝑊) = (𝑋 𝑌))
4948fveq2d 6771 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝐼‘(((𝑋 𝑌) 𝑄) 𝑊)) = (𝐼‘(𝑋 𝑌)))
5049oveq2d 7284 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → ((𝐼𝑄) (𝐼‘(((𝑋 𝑌) 𝑄) 𝑊))) = ((𝐼𝑄) (𝐼‘(𝑋 𝑌))))
5133, 50eqtrd 2778 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄 𝑋 ∧ (𝑋 𝑌) 𝑊)) → (𝐼‘((𝑋 𝑌) 𝑄)) = ((𝐼𝑄) (𝐼‘(𝑋 𝑌))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086   = wceq 1539  wcel 2106   class class class wbr 5074  cfv 6427  (class class class)co 7268  Basecbs 16900  lecple 16957  joincjn 18017  meetcmee 18018  0.cp0 18129  Latclat 18137  LSSumclsm 19227  OLcol 37174  Atomscatm 37263  HLchlt 37350  LHypclh 37984  DVecHcdvh 39078  DIsoHcdih 39228
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-rep 5209  ax-sep 5222  ax-nul 5229  ax-pow 5287  ax-pr 5351  ax-un 7579  ax-cnex 10915  ax-resscn 10916  ax-1cn 10917  ax-icn 10918  ax-addcl 10919  ax-addrcl 10920  ax-mulcl 10921  ax-mulrcl 10922  ax-mulcom 10923  ax-addass 10924  ax-mulass 10925  ax-distr 10926  ax-i2m1 10927  ax-1ne0 10928  ax-1rid 10929  ax-rnegex 10930  ax-rrecex 10931  ax-cnre 10932  ax-pre-lttri 10933  ax-pre-lttrn 10934  ax-pre-ltadd 10935  ax-pre-mulgt0 10936  ax-riotaBAD 36953
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-reu 3071  df-rmo 3072  df-rab 3073  df-v 3432  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4841  df-int 4881  df-iun 4927  df-iin 4928  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5485  df-eprel 5491  df-po 5499  df-so 5500  df-fr 5540  df-we 5542  df-xp 5591  df-rel 5592  df-cnv 5593  df-co 5594  df-dm 5595  df-rn 5596  df-res 5597  df-ima 5598  df-pred 6196  df-ord 6263  df-on 6264  df-lim 6265  df-suc 6266  df-iota 6385  df-fun 6429  df-fn 6430  df-f 6431  df-f1 6432  df-fo 6433  df-f1o 6434  df-fv 6435  df-riota 7225  df-ov 7271  df-oprab 7272  df-mpo 7273  df-om 7704  df-1st 7821  df-2nd 7822  df-tpos 8030  df-undef 8077  df-frecs 8085  df-wrecs 8116  df-recs 8190  df-rdg 8229  df-1o 8285  df-er 8486  df-map 8605  df-en 8722  df-dom 8723  df-sdom 8724  df-fin 8725  df-pnf 10999  df-mnf 11000  df-xr 11001  df-ltxr 11002  df-le 11003  df-sub 11195  df-neg 11196  df-nn 11962  df-2 12024  df-3 12025  df-4 12026  df-5 12027  df-6 12028  df-n0 12222  df-z 12308  df-uz 12571  df-fz 13228  df-struct 16836  df-sets 16853  df-slot 16871  df-ndx 16883  df-base 16901  df-ress 16930  df-plusg 16963  df-mulr 16964  df-sca 16966  df-vsca 16967  df-0g 17140  df-proset 18001  df-poset 18019  df-plt 18036  df-lub 18052  df-glb 18053  df-join 18054  df-meet 18055  df-p0 18131  df-p1 18132  df-lat 18138  df-clat 18205  df-mgm 18314  df-sgrp 18363  df-mnd 18374  df-submnd 18419  df-grp 18568  df-minusg 18569  df-sbg 18570  df-subg 18740  df-cntz 18911  df-lsm 19229  df-cmn 19376  df-abl 19377  df-mgp 19709  df-ur 19726  df-ring 19773  df-oppr 19850  df-dvdsr 19871  df-unit 19872  df-invr 19902  df-dvr 19913  df-drng 19981  df-lmod 20113  df-lss 20182  df-lsp 20222  df-lvec 20353  df-oposet 37176  df-ol 37178  df-oml 37179  df-covers 37266  df-ats 37267  df-atl 37298  df-cvlat 37322  df-hlat 37351  df-llines 37498  df-lplanes 37499  df-lvols 37500  df-lines 37501  df-psubsp 37503  df-pmap 37504  df-padd 37796  df-lhyp 37988  df-laut 37989  df-ldil 38104  df-ltrn 38105  df-trl 38159  df-tendo 38755  df-edring 38757  df-disoa 39029  df-dvech 39079  df-dib 39139  df-dic 39173  df-dih 39229
This theorem is referenced by:  dihjatc2N  39312  dihjatc3  39313  dihmeetlem8N  39314
  Copyright terms: Public domain W3C validator