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

Theorem cdlemk17 36883
Description: Part of proof of Lemma K of [Crawley] p. 118. Line 21 on p. 119. 𝑂, 𝐷 are k1, f1. (Contributed by NM, 1-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
cdlemk17 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑁𝑃) = ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))))
Distinct variable groups:   𝑓,𝑖,   ,𝑖   ,𝑓,𝑖   𝐴,𝑖   𝐷,𝑓,𝑖   𝑓,𝐹,𝑖   𝑖,𝐻   𝑖,𝐾   𝑓,𝑁,𝑖   𝑃,𝑓,𝑖   𝑅,𝑓,𝑖   𝑇,𝑓,𝑖   𝑓,𝑊,𝑖
Allowed substitution hints:   𝐴(𝑓)   𝐵(𝑓,𝑖)   𝑆(𝑓,𝑖)   𝐻(𝑓)   𝐾(𝑓)   (𝑓)   𝑂(𝑓,𝑖)

Proof of Theorem cdlemk17
StepHypRef Expression
1 cdlemk1.b . . 3 𝐵 = (Base‘𝐾)
2 cdlemk1.l . . 3 = (le‘𝐾)
3 cdlemk1.j . . 3 = (join‘𝐾)
4 cdlemk1.m . . 3 = (meet‘𝐾)
5 cdlemk1.a . . 3 𝐴 = (Atoms‘𝐾)
6 cdlemk1.h . . 3 𝐻 = (LHyp‘𝐾)
7 cdlemk1.t . . 3 𝑇 = ((LTrn‘𝐾)‘𝑊)
8 cdlemk1.r . . 3 𝑅 = ((trL‘𝐾)‘𝑊)
9 cdlemk1.s . . 3 𝑆 = (𝑓𝑇 ↦ (𝑖𝑇 (𝑖𝑃) = ((𝑃 (𝑅𝑓)) ((𝑁𝑃) (𝑅‘(𝑓𝐹))))))
10 cdlemk1.o . . 3 𝑂 = (𝑆𝐷)
111, 2, 3, 4, 5, 6, 7, 8, 9, 10cdlemk15 36880 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑁𝑃) ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))))
12 simp11l 1384 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐾 ∈ HL)
13 hlatl 35385 . . . 4 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
1412, 13syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝐾 ∈ AtLat)
15 simp11 1261 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
16 simp21 1264 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝑁𝑇)
17 simp22l 1392 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → 𝑃𝐴)
182, 5, 6, 7ltrnat 36165 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑁𝑇𝑃𝐴) → (𝑁𝑃) ∈ 𝐴)
1915, 16, 17, 18syl3anc 1491 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑁𝑃) ∈ 𝐴)
201, 2, 3, 4, 5, 6, 7, 8, 9, 10cdlemk16 36882 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) ∈ 𝐴 ∧ ¬ ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) 𝑊))
2120simpld 489 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) ∈ 𝐴)
222, 5atcmp 35336 . . 3 ((𝐾 ∈ AtLat ∧ (𝑁𝑃) ∈ 𝐴 ∧ ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) ∈ 𝐴) → ((𝑁𝑃) ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) ↔ (𝑁𝑃) = ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷))))))
2314, 19, 21, 22syl3anc 1491 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → ((𝑁𝑃) ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))) ↔ (𝑁𝑃) = ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷))))))
2411, 23mpbid 224 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐷𝑇) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝐷 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐷) ≠ (𝑅𝐹))) → (𝑁𝑃) = ((𝑃 (𝑅𝐹)) ((𝑂𝑃) (𝑅‘(𝐹𝐷)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 385  w3a 1108   = wceq 1653  wcel 2157  wne 2975   class class class wbr 4847  cmpt 4926   I cid 5223  ccnv 5315  cres 5318  ccom 5320  cfv 6105  crio 6842  (class class class)co 6882  Basecbs 16188  lecple 16278  joincjn 17263  meetcmee 17264  Atomscatm 35288  AtLatcal 35289  HLchlt 35375  LHypclh 36009  LTrncltrn 36126  trLctrl 36183
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2379  ax-ext 2781  ax-rep 4968  ax-sep 4979  ax-nul 4987  ax-pow 5039  ax-pr 5101  ax-un 7187  ax-riotaBAD 34978
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3or 1109  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2593  df-eu 2611  df-clab 2790  df-cleq 2796  df-clel 2799  df-nfc 2934  df-ne 2976  df-nel 3079  df-ral 3098  df-rex 3099  df-reu 3100  df-rmo 3101  df-rab 3102  df-v 3391  df-sbc 3638  df-csb 3733  df-dif 3776  df-un 3778  df-in 3780  df-ss 3787  df-nul 4120  df-if 4282  df-pw 4355  df-sn 4373  df-pr 4375  df-op 4379  df-uni 4633  df-iun 4716  df-iin 4717  df-br 4848  df-opab 4910  df-mpt 4927  df-id 5224  df-xp 5322  df-rel 5323  df-cnv 5324  df-co 5325  df-dm 5326  df-rn 5327  df-res 5328  df-ima 5329  df-iota 6068  df-fun 6107  df-fn 6108  df-f 6109  df-f1 6110  df-fo 6111  df-f1o 6112  df-fv 6113  df-riota 6843  df-ov 6885  df-oprab 6886  df-mpt2 6887  df-1st 7405  df-2nd 7406  df-undef 7641  df-map 8101  df-proset 17247  df-poset 17265  df-plt 17277  df-lub 17293  df-glb 17294  df-join 17295  df-meet 17296  df-p0 17358  df-p1 17359  df-lat 17365  df-clat 17427  df-oposet 35201  df-ol 35203  df-oml 35204  df-covers 35291  df-ats 35292  df-atl 35323  df-cvlat 35347  df-hlat 35376  df-llines 35523  df-lplanes 35524  df-lvols 35525  df-lines 35526  df-psubsp 35528  df-pmap 35529  df-padd 35821  df-lhyp 36013  df-laut 36014  df-ldil 36129  df-ltrn 36130  df-trl 36184
This theorem is referenced by:  cdlemk18  36893  cdlemk17-2N  36906
  Copyright terms: Public domain W3C validator