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

Theorem cdlemi2 36607
Description: Part of proof of Lemma I of [Crawley] p. 118. (Contributed by NM, 18-Jun-2013.)
Hypotheses
Ref Expression
cdlemi.b 𝐵 = (Base‘𝐾)
cdlemi.l = (le‘𝐾)
cdlemi.j = (join‘𝐾)
cdlemi.m = (meet‘𝐾)
cdlemi.a 𝐴 = (Atoms‘𝐾)
cdlemi.h 𝐻 = (LHyp‘𝐾)
cdlemi.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemi.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemi.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemi2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑈𝐺)‘𝑃) (((𝑈𝐹)‘𝑃) (𝑅‘(𝐺𝐹))))

Proof of Theorem cdlemi2
StepHypRef Expression
1 simp1l 1240 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ HL)
2 simp1r 1241 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊𝐻)
3 simp21 1249 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈𝐸)
4 simp1 1131 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
5 simp23 1251 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺𝑇)
6 simp22 1250 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
7 cdlemi.h . . . . . . . . 9 𝐻 = (LHyp‘𝐾)
8 cdlemi.t . . . . . . . . 9 𝑇 = ((LTrn‘𝐾)‘𝑊)
97, 8ltrncnv 35933 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹𝑇)
104, 6, 9syl2anc 696 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
117, 8ltrnco 36507 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝐹𝑇) → (𝐺𝐹) ∈ 𝑇)
124, 5, 10, 11syl3anc 1477 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝐹) ∈ 𝑇)
13 cdlemi.e . . . . . . 7 𝐸 = ((TEndo‘𝐾)‘𝑊)
147, 8, 13tendovalco 36553 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻𝑈𝐸) ∧ ((𝐺𝐹) ∈ 𝑇𝐹𝑇)) → (𝑈‘((𝐺𝐹) ∘ 𝐹)) = ((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹)))
151, 2, 3, 12, 6, 14syl32anc 1485 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈‘((𝐺𝐹) ∘ 𝐹)) = ((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹)))
16 coass 5813 . . . . . . 7 ((𝐺𝐹) ∘ 𝐹) = (𝐺 ∘ (𝐹𝐹))
17 cdlemi.b . . . . . . . . . . . 12 𝐵 = (Base‘𝐾)
1817, 7, 8ltrn1o 35911 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹:𝐵1-1-onto𝐵)
194, 6, 18syl2anc 696 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹:𝐵1-1-onto𝐵)
20 f1ococnv1 6324 . . . . . . . . . 10 (𝐹:𝐵1-1-onto𝐵 → (𝐹𝐹) = ( I ↾ 𝐵))
2119, 20syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝐹) = ( I ↾ 𝐵))
2221coeq2d 5438 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = (𝐺 ∘ ( I ↾ 𝐵)))
2317, 7, 8ltrn1o 35911 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → 𝐺:𝐵1-1-onto𝐵)
244, 5, 23syl2anc 696 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺:𝐵1-1-onto𝐵)
25 f1of 6296 . . . . . . . . 9 (𝐺:𝐵1-1-onto𝐵𝐺:𝐵𝐵)
26 fcoi1 6237 . . . . . . . . 9 (𝐺:𝐵𝐵 → (𝐺 ∘ ( I ↾ 𝐵)) = 𝐺)
2724, 25, 263syl 18 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ ( I ↾ 𝐵)) = 𝐺)
2822, 27eqtrd 2792 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = 𝐺)
2916, 28syl5eq 2804 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹) ∘ 𝐹) = 𝐺)
3029fveq2d 6354 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈‘((𝐺𝐹) ∘ 𝐹)) = (𝑈𝐺))
3115, 30eqtr3d 2794 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹)) = (𝑈𝐺))
3231fveq1d 6352 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹))‘𝑃) = ((𝑈𝐺)‘𝑃))
337, 8, 13tendocl 36555 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑈𝐸 ∧ (𝐺𝐹) ∈ 𝑇) → (𝑈‘(𝐺𝐹)) ∈ 𝑇)
344, 3, 12, 33syl3anc 1477 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈‘(𝐺𝐹)) ∈ 𝑇)
357, 8, 13tendocl 36555 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑈𝐸𝐹𝑇) → (𝑈𝐹) ∈ 𝑇)
364, 3, 6, 35syl3anc 1477 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈𝐹) ∈ 𝑇)
37 simp3l 1244 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃𝐴)
38 cdlemi.l . . . . 5 = (le‘𝐾)
39 cdlemi.a . . . . 5 𝐴 = (Atoms‘𝐾)
4038, 39, 7, 8ltrncoval 35932 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑈‘(𝐺𝐹)) ∈ 𝑇 ∧ (𝑈𝐹) ∈ 𝑇) ∧ 𝑃𝐴) → (((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹))‘𝑃) = ((𝑈‘(𝐺𝐹))‘((𝑈𝐹)‘𝑃)))
414, 34, 36, 37, 40syl121anc 1482 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝑈‘(𝐺𝐹)) ∘ (𝑈𝐹))‘𝑃) = ((𝑈‘(𝐺𝐹))‘((𝑈𝐹)‘𝑃)))
4232, 41eqtr3d 2794 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑈𝐺)‘𝑃) = ((𝑈‘(𝐺𝐹))‘((𝑈𝐹)‘𝑃)))
4338, 39, 7, 8ltrnel 35926 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐹) ∈ 𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝑈𝐹)‘𝑃) ∈ 𝐴 ∧ ¬ ((𝑈𝐹)‘𝑃) 𝑊))
4436, 43syld3an2 1519 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝑈𝐹)‘𝑃) ∈ 𝐴 ∧ ¬ ((𝑈𝐹)‘𝑃) 𝑊))
45 cdlemi.j . . . 4 = (join‘𝐾)
46 cdlemi.m . . . 4 = (meet‘𝐾)
47 cdlemi.r . . . 4 𝑅 = ((trL‘𝐾)‘𝑊)
4817, 38, 45, 46, 39, 7, 8, 47, 13cdlemi1 36606 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸 ∧ (𝐺𝐹) ∈ 𝑇) ∧ (((𝑈𝐹)‘𝑃) ∈ 𝐴 ∧ ¬ ((𝑈𝐹)‘𝑃) 𝑊)) → ((𝑈‘(𝐺𝐹))‘((𝑈𝐹)‘𝑃)) (((𝑈𝐹)‘𝑃) (𝑅‘(𝐺𝐹))))
494, 3, 12, 44, 48syl121anc 1482 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑈‘(𝐺𝐹))‘((𝑈𝐹)‘𝑃)) (((𝑈𝐹)‘𝑃) (𝑅‘(𝐺𝐹))))
5042, 49eqbrtrd 4824 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑈𝐺)‘𝑃) (((𝑈𝐹)‘𝑃) (𝑅‘(𝐺𝐹))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 383  w3a 1072   = wceq 1630  wcel 2137   class class class wbr 4802   I cid 5171  ccnv 5263  cres 5266  ccom 5268  wf 6043  1-1-ontowf1o 6046  cfv 6047  (class class class)co 6811  Basecbs 16057  lecple 16148  joincjn 17143  meetcmee 17144  Atomscatm 35051  HLchlt 35138  LHypclh 35771  LTrncltrn 35888  trLctrl 35946  TEndoctendo 36540
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-rep 4921  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112  ax-riotaBAD 34740
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-nel 3034  df-ral 3053  df-rex 3054  df-reu 3055  df-rmo 3056  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-op 4326  df-uni 4587  df-iun 4672  df-iin 4673  df-br 4803  df-opab 4863  df-mpt 4880  df-id 5172  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-1st 7331  df-2nd 7332  df-undef 7566  df-map 8023  df-preset 17127  df-poset 17145  df-plt 17157  df-lub 17173  df-glb 17174  df-join 17175  df-meet 17176  df-p0 17238  df-p1 17239  df-lat 17245  df-clat 17307  df-oposet 34964  df-ol 34966  df-oml 34967  df-covers 35054  df-ats 35055  df-atl 35086  df-cvlat 35110  df-hlat 35139  df-llines 35285  df-lplanes 35286  df-lvols 35287  df-lines 35288  df-psubsp 35290  df-pmap 35291  df-padd 35583  df-lhyp 35775  df-laut 35776  df-ldil 35891  df-ltrn 35892  df-trl 35947  df-tendo 36543
This theorem is referenced by:  cdlemi  36608
  Copyright terms: Public domain W3C validator