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

Theorem cdlemk1u 37418
Description: Part of proof of Lemma K of [Crawley] p. 118. (Contributed by NM, 3-Jul-2013.)
Hypotheses
Ref Expression
cdlemk1.b 𝐵 = (Base‘𝐾)
cdlemk1.l = (le‘𝐾)
cdlemk1.j = (join‘𝐾)
cdlemk1.m = (meet‘𝐾)
cdlemk1.a 𝐴 = (Atoms‘𝐾)
cdlemk1.h 𝐻 = (LHyp‘𝐾)
cdlemk1.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemk1.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemk1.s 𝑆 = (𝑓𝑇 ↦ (𝑖𝑇 (𝑖𝑃) = ((𝑃 (𝑅𝑓)) ((𝑁𝑃) (𝑅‘(𝑓𝐹))))))
cdlemk1.o 𝑂 = (𝑆𝐷)
Assertion
Ref Expression
cdlemk1u ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃 (𝑂𝑃)) ((𝐷𝑃) (𝑅𝐷)))
Distinct variable groups:   𝑓,𝑖,   ,𝑖   ,𝑓,𝑖   𝐴,𝑖   𝐷,𝑓,𝑖   𝑓,𝐹,𝑖   𝑖,𝐻   𝑖,𝐾   𝑓,𝑁,𝑖   𝑃,𝑓,𝑖   𝑅,𝑓,𝑖   𝑇,𝑓,𝑖   𝑓,𝑊,𝑖
Allowed substitution hints:   𝐴(𝑓)   𝐵(𝑓,𝑖)   𝑆(𝑓,𝑖)   𝐻(𝑓)   𝐾(𝑓)   (𝑓)   𝑂(𝑓,𝑖)

Proof of Theorem cdlemk1u
StepHypRef Expression
1 simp11l 1264 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐾 ∈ HL)
2 simp22l 1272 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝑃𝐴)
3 simp11 1183 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
4 simp13 1185 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐷𝑇)
5 simp32 1190 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐷 ≠ ( I ↾ 𝐵))
6 cdlemk1.b . . . . . 6 𝐵 = (Base‘𝐾)
7 cdlemk1.a . . . . . 6 𝐴 = (Atoms‘𝐾)
8 cdlemk1.h . . . . . 6 𝐻 = (LHyp‘𝐾)
9 cdlemk1.t . . . . . 6 𝑇 = ((LTrn‘𝐾)‘𝑊)
10 cdlemk1.r . . . . . 6 𝑅 = ((trL‘𝐾)‘𝑊)
116, 7, 8, 9, 10trlnidat 36732 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐷𝑇𝐷 ≠ ( I ↾ 𝐵)) → (𝑅𝐷) ∈ 𝐴)
123, 4, 5, 11syl3anc 1351 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑅𝐷) ∈ 𝐴)
13 cdlemk1.l . . . . 5 = (le‘𝐾)
14 cdlemk1.j . . . . 5 = (join‘𝐾)
1513, 14, 7hlatlej1 35934 . . . 4 ((𝐾 ∈ HL ∧ 𝑃𝐴 ∧ (𝑅𝐷) ∈ 𝐴) → 𝑃 (𝑃 (𝑅𝐷)))
161, 2, 12, 15syl3anc 1351 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝑃 (𝑃 (𝑅𝐷)))
17 cdlemk1.m . . . 4 = (meet‘𝐾)
18 cdlemk1.s . . . 4 𝑆 = (𝑓𝑇 ↦ (𝑖𝑇 (𝑖𝑃) = ((𝑃 (𝑅𝑓)) ((𝑁𝑃) (𝑅‘(𝑓𝐹))))))
19 cdlemk1.o . . . 4 𝑂 = (𝑆𝐷)
206, 13, 14, 17, 7, 8, 9, 10, 18, 19cdlemkole 37412 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑂𝑃) (𝑃 (𝑅𝐷)))
211hllatd 35923 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐾 ∈ Lat)
226, 7atbase 35848 . . . . 5 (𝑃𝐴𝑃𝐵)
232, 22syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝑃𝐵)
246, 13, 14, 17, 7, 8, 9, 10, 18, 19cdlemkoatnle 37410 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → ((𝑂𝑃) ∈ 𝐴 ∧ ¬ (𝑂𝑃) 𝑊))
2524simpld 487 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑂𝑃) ∈ 𝐴)
266, 7atbase 35848 . . . . 5 ((𝑂𝑃) ∈ 𝐴 → (𝑂𝑃) ∈ 𝐵)
2725, 26syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑂𝑃) ∈ 𝐵)
286, 14, 7hlatjcl 35926 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴 ∧ (𝑅𝐷) ∈ 𝐴) → (𝑃 (𝑅𝐷)) ∈ 𝐵)
291, 2, 12, 28syl3anc 1351 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃 (𝑅𝐷)) ∈ 𝐵)
306, 13, 14latjle12 17524 . . . 4 ((𝐾 ∈ Lat ∧ (𝑃𝐵 ∧ (𝑂𝑃) ∈ 𝐵 ∧ (𝑃 (𝑅𝐷)) ∈ 𝐵)) → ((𝑃 (𝑃 (𝑅𝐷)) ∧ (𝑂𝑃) (𝑃 (𝑅𝐷))) ↔ (𝑃 (𝑂𝑃)) (𝑃 (𝑅𝐷))))
3121, 23, 27, 29, 30syl13anc 1352 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → ((𝑃 (𝑃 (𝑅𝐷)) ∧ (𝑂𝑃) (𝑃 (𝑅𝐷))) ↔ (𝑃 (𝑂𝑃)) (𝑃 (𝑅𝐷))))
3216, 20, 31mpbi2and 699 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃 (𝑂𝑃)) (𝑃 (𝑅𝐷)))
33 simp22 1187 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
3413, 14, 7, 8, 9, 10trljat3 36727 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐷𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 (𝑅𝐷)) = ((𝐷𝑃) (𝑅𝐷)))
353, 4, 33, 34syl3anc 1351 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃 (𝑅𝐷)) = ((𝐷𝑃) (𝑅𝐷)))
3632, 35breqtrd 4953 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑃 (𝑂𝑃)) ((𝐷𝑃) (𝑅𝐷)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 387  w3a 1068   = wceq 1507  wcel 2048  wne 2964   class class class wbr 4927  cmpt 5006   I cid 5308  ccnv 5403  cres 5406  ccom 5408  cfv 6186  crio 6934  (class class class)co 6974  Basecbs 16333  lecple 16422  joincjn 17406  meetcmee 17407  Latclat 17507  Atomscatm 35822  HLchlt 35909  LHypclh 36543  LTrncltrn 36660  trLctrl 36717
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2747  ax-rep 5047  ax-sep 5058  ax-nul 5065  ax-pow 5117  ax-pr 5184  ax-un 7277  ax-riotaBAD 35512
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2756  df-cleq 2768  df-clel 2843  df-nfc 2915  df-ne 2965  df-ral 3090  df-rex 3091  df-reu 3092  df-rmo 3093  df-rab 3094  df-v 3414  df-sbc 3681  df-csb 3786  df-dif 3831  df-un 3833  df-in 3835  df-ss 3842  df-nul 4178  df-if 4349  df-pw 4422  df-sn 4440  df-pr 4442  df-op 4446  df-uni 4711  df-iun 4792  df-iin 4793  df-br 4928  df-opab 4990  df-mpt 5007  df-id 5309  df-xp 5410  df-rel 5411  df-cnv 5412  df-co 5413  df-dm 5414  df-rn 5415  df-res 5416  df-ima 5417  df-iota 6150  df-fun 6188  df-fn 6189  df-f 6190  df-f1 6191  df-fo 6192  df-f1o 6193  df-fv 6194  df-riota 6935  df-ov 6977  df-oprab 6978  df-mpo 6979  df-1st 7498  df-2nd 7499  df-undef 7739  df-map 8204  df-proset 17390  df-poset 17408  df-plt 17420  df-lub 17436  df-glb 17437  df-join 17438  df-meet 17439  df-p0 17501  df-p1 17502  df-lat 17508  df-clat 17570  df-oposet 35735  df-ol 35737  df-oml 35738  df-covers 35825  df-ats 35826  df-atl 35857  df-cvlat 35881  df-hlat 35910  df-llines 36057  df-lplanes 36058  df-lvols 36059  df-lines 36060  df-psubsp 36062  df-pmap 36063  df-padd 36355  df-lhyp 36547  df-laut 36548  df-ldil 36663  df-ltrn 36664  df-trl 36718
This theorem is referenced by:  cdlemk5u  37420
  Copyright terms: Public domain W3C validator