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 37993
Description: Lemma for pl42N 37997. (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 1202 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ HL)
21hllatd 37378 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ Lat)
3 simp12 1203 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑋𝐵)
4 simp13 1204 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑌𝐵)
5 pl42lem.b . . . . . . . 8 𝐵 = (Base‘𝐾)
6 pl42lem.j . . . . . . . 8 = (join‘𝐾)
75, 6latjcl 18157 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
82, 3, 4, 7syl3anc 1370 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝑋 𝑌) ∈ 𝐵)
9 simp21 1205 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑍𝐵)
10 pl42lem.m . . . . . . 7 = (meet‘𝐾)
115, 10latmcl 18158 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → ((𝑋 𝑌) 𝑍) ∈ 𝐵)
122, 8, 9, 11syl3anc 1370 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) ∈ 𝐵)
13 simp22 1206 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑊𝐵)
145, 6latjcl 18157 . . . . 5 ((𝐾 ∈ Lat ∧ ((𝑋 𝑌) 𝑍) ∈ 𝐵𝑊𝐵) → (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵)
152, 12, 13, 14syl3anc 1370 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵)
16 simp23 1207 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑉𝐵)
17 eqid 2738 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
18 pl42lem.f . . . . 5 𝐹 = (pmap‘𝐾)
195, 10, 17, 18pmapmeet 37787 . . . 4 ((𝐾 ∈ HL ∧ (((𝑋 𝑌) 𝑍) 𝑊) ∈ 𝐵𝑉𝐵) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)))
201, 15, 16, 19syl3anc 1370 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)))
21 pl42lem.l . . . . . . 7 = (le‘𝐾)
22 hlop 37376 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ OP)
231, 22syl 17 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝐾 ∈ OP)
24 pl42lem.o . . . . . . . . 9 = (oc‘𝐾)
255, 24opoccl 37208 . . . . . . . 8 ((𝐾 ∈ OP ∧ 𝑊𝐵) → ( 𝑊) ∈ 𝐵)
2623, 13, 25syl2anc 584 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ( 𝑊) ∈ 𝐵)
275, 21, 10latmle2 18183 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → ((𝑋 𝑌) 𝑍) 𝑍)
282, 8, 9, 27syl3anc 1370 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) 𝑍)
29 simp3r 1201 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑍 ( 𝑊))
305, 21, 2, 12, 9, 26, 28, 29lattrd 18164 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝑋 𝑌) 𝑍) ( 𝑊))
31 pl42lem.p . . . . . . 7 + = (+𝑃𝐾)
325, 21, 6, 18, 24, 31pmapojoinN 37982 . . . . . 6 (((𝐾 ∈ HL ∧ ((𝑋 𝑌) 𝑍) ∈ 𝐵𝑊𝐵) ∧ ((𝑋 𝑌) 𝑍) ( 𝑊)) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)))
331, 12, 13, 30, 32syl31anc 1372 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)))
345, 10, 17, 18pmapmeet 37787 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑋 𝑌) ∈ 𝐵𝑍𝐵) → (𝐹‘((𝑋 𝑌) 𝑍)) = ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)))
351, 8, 9, 34syl3anc 1370 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((𝑋 𝑌) 𝑍)) = ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)))
36 simp3l 1200 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → 𝑋 ( 𝑌))
375, 21, 6, 18, 24, 31pmapojoinN 37982 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 ( 𝑌)) → (𝐹‘(𝑋 𝑌)) = ((𝐹𝑋) + (𝐹𝑌)))
381, 3, 4, 36, 37syl31anc 1372 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(𝑋 𝑌)) = ((𝐹𝑋) + (𝐹𝑌)))
3938ineq1d 4145 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘(𝑋 𝑌)) ∩ (𝐹𝑍)) = (((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)))
4035, 39eqtrd 2778 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((𝑋 𝑌) 𝑍)) = (((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)))
4140oveq1d 7290 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘((𝑋 𝑌) 𝑍)) + (𝐹𝑊)) = ((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)))
4233, 41eqtrd 2778 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) = ((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)))
4342ineq1d 4145 . . 3 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → ((𝐹‘(((𝑋 𝑌) 𝑍) 𝑊)) ∩ (𝐹𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉)))
4420, 43eqtrd 2778 . 2 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵) ∧ (𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊))) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉)))
45443expia 1120 1 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ (𝑍𝐵𝑊𝐵𝑉𝐵)) → ((𝑋 ( 𝑌) ∧ 𝑍 ( 𝑊)) → (𝐹‘((((𝑋 𝑌) 𝑍) 𝑊) 𝑉)) = (((((𝐹𝑋) + (𝐹𝑌)) ∩ (𝐹𝑍)) + (𝐹𝑊)) ∩ (𝐹𝑉))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1086   = wceq 1539  wcel 2106  cin 3886   class class class wbr 5074  cfv 6433  (class class class)co 7275  Basecbs 16912  lecple 16969  occoc 16970  joincjn 18029  meetcmee 18030  Latclat 18149  OPcops 37186  Atomscatm 37277  HLchlt 37364  pmapcpmap 37511  +𝑃cpadd 37809
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 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-riotaBAD 36967
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  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-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-iin 4927  df-br 5075  df-opab 5137  df-mpt 5158  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-1st 7831  df-2nd 7832  df-undef 8089  df-proset 18013  df-poset 18031  df-plt 18048  df-lub 18064  df-glb 18065  df-join 18066  df-meet 18067  df-p0 18143  df-p1 18144  df-lat 18150  df-clat 18217  df-oposet 37190  df-ol 37192  df-oml 37193  df-covers 37280  df-ats 37281  df-atl 37312  df-cvlat 37336  df-hlat 37365  df-psubsp 37517  df-pmap 37518  df-padd 37810  df-polarityN 37917  df-psubclN 37949
This theorem is referenced by:  pl42lem4N  37996
  Copyright terms: Public domain W3C validator