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

Theorem pl42lem1N 37130
Description: Lemma for pl42N 37134. (Contributed by NM, 8-Apr-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
pl42lem.b 𝐵 = (Base‘𝐾)
pl42lem.l = (le‘𝐾)
pl42lem.j = (join‘𝐾)
pl42lem.m = (meet‘𝐾)
pl42lem.o = (oc‘𝐾)
pl42lem.f 𝐹 = (pmap‘𝐾)
pl42lem.p + = (+𝑃𝐾)
Assertion
Ref Expression
pl42lem1N (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵)) → ((𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊)) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉))))

Proof of Theorem pl42lem1N
StepHypRef Expression
1 simp11 1199 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ HL)
21hllatd 36515 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ Lat)
3 simp12 1200 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑋𝐵)
4 simp13 1201 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑌𝐵)
5 pl42lem.b . . . . . . . 8 𝐵 = (Base‘𝐾)
6 pl42lem.j . . . . . . . 8 = (join‘𝐾)
75, 6latjcl 17661 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
82, 3, 4, 7syl3anc 1367 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝑋 𝑌) ∈ 𝐵)
9 simp21 1202 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑍𝐵)
10 pl42lem.m . . . . . . 7 = (meet‘𝐾)
115, 10latmcl 17662 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → ((𝑋 𝑌) 𝑍) ∈ 𝐵)
122, 8, 9, 11syl3anc 1367 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) ∈ 𝐵)
13 simp22 1203 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑊𝐵)
145, 6latjcl 17661 . . . . 5 ((𝐾 ∈ Lat ∧ ((𝑋 𝑌) 𝑍) ∈ 𝐵𝑊𝐵) → (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵)
152, 12, 13, 14syl3anc 1367 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵)
16 simp23 1204 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑉𝐵)
17 eqid 2821 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
18 pl42lem.f . . . . 5 𝐹 = (pmap‘𝐾)
195, 10, 17, 18pmapmeet 36924 . . . 4 ((𝐾 ∈ HL ∧ (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵𝑉𝐵) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)))
201, 15, 16, 19syl3anc 1367 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)))
21 pl42lem.l . . . . . . 7 = (le‘𝐾)
22 hlop 36513 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ OP)
231, 22syl 17 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ OP)
24 pl42lem.o . . . . . . . . 9 = (oc‘𝐾)
255, 24opoccl 36345 . . . . . . . 8 ((𝐾 ∈ OP ∧ 𝑊𝐵) → ( 𝑊) ∈ 𝐵)
2623, 13, 25syl2anc 586 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ( 𝑊) ∈ 𝐵)
275, 21, 10latmle2 17687 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → ((𝑋 𝑌) 𝑍) 𝑍)
282, 8, 9, 27syl3anc 1367 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) 𝑍)
29 simp3r 1198 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑍 ( 𝑊))
305, 21, 2, 12, 9, 26, 28, 29lattrd 17668 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) ( 𝑊))
31 pl42lem.p . . . . . . 7 + = (+𝑃𝐾)
325, 21, 6, 18, 24, 31pmapojoinN 37119 . . . . . 6 (((𝐾 ∈ HL ∧ ((𝑋 𝑌) 𝑍) ∈ 𝐵𝑊𝐵) ∧ ((𝑋 𝑌) 𝑍) ( 𝑊)) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)))
331, 12, 13, 30, 32syl31anc 1369 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)))
345, 10, 17, 18pmapmeet 36924 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → (𝐹‘((𝑋 𝑌) 𝑍)) = ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)))
351, 8, 9, 34syl3anc 1367 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((𝑋 𝑌) 𝑍)) = ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)))
36 simp3l 1197 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑋 ( 𝑌))
375, 21, 6, 18, 24, 31pmapojoinN 37119 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 ( 𝑌)) → (𝐹‘(𝑋 𝑌)) = ((𝐹𝑋) + (𝐹𝑌)))
381, 3, 4, 36, 37syl31anc 1369 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(𝑋 𝑌)) = ((𝐹𝑋) + (𝐹𝑌)))
3938ineq1d 4188 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)) = (((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)))
4035, 39eqtrd 2856 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((𝑋 𝑌) 𝑍)) = (((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)))
4140oveq1d 7171 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)) = ((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)))
4233, 41eqtrd 2856 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)))
4342ineq1d 4188 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉)))
4420, 43eqtrd 2856 . 2 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉)))
45443expia 1117 1 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵)) → ((𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊)) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 398  w3a 1083   = wceq 1537  wcel 2114  cin 3935   class class class wbr 5066  cfv 6355  (class class class)co 7156  Basecbs 16483  lecple 16572  occoc 16573  joincjn 17554  meetcmee 17555  Latclat 17655  OPcops 36323  Atomscatm 36414  HLchlt 36501  pmapcpmap 36648  +𝑃cpadd 36946
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-riotaBAD 36104
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-iin 4922  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-1st 7689  df-2nd 7690  df-undef 7939  df-proset 17538  df-poset 17556  df-plt 17568  df-lub 17584  df-glb 17585  df-join 17586  df-meet 17587  df-p0 17649  df-p1 17650  df-lat 17656  df-clat 17718  df-oposet 36327  df-ol 36329  df-oml 36330  df-covers 36417  df-ats 36418  df-atl 36449  df-cvlat 36473  df-hlat 36502  df-psubsp 36654  df-pmap 36655  df-padd 36947  df-polarityN 37054  df-psubclN 37086
This theorem is referenced by:  pl42lem4N  37133
  Copyright terms: Public domain W3C validator