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

Theorem cdlemk56 37638
Description: Part of Lemma K of [Crawley] p. 118. Line 11, p. 120, "tau is in Delta" i.e. 𝑈 is a trace-preserving endormorphism. (Contributed by NM, 31-Jul-2013.)
Hypotheses
Ref Expression
cdlemk5.b 𝐵 = (Base‘𝐾)
cdlemk5.l = (le‘𝐾)
cdlemk5.j = (join‘𝐾)
cdlemk5.m = (meet‘𝐾)
cdlemk5.a 𝐴 = (Atoms‘𝐾)
cdlemk5.h 𝐻 = (LHyp‘𝐾)
cdlemk5.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemk5.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemk5.z 𝑍 = ((𝑃 (𝑅𝑏)) ((𝑁𝑃) (𝑅‘(𝑏𝐹))))
cdlemk5.y 𝑌 = ((𝑃 (𝑅𝑔)) (𝑍 (𝑅‘(𝑔𝑏))))
cdlemk5.x 𝑋 = (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌))
cdlemk5.u 𝑈 = (𝑔𝑇 ↦ if(𝐹 = 𝑁, 𝑔, 𝑋))
cdlemk5.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemk56 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈𝐸)
Distinct variable groups:   ,𝑔   ,𝑔   𝐵,𝑔   𝑃,𝑔   𝑅,𝑔   𝑇,𝑔   𝑔,𝑍   𝑔,𝑏,𝑧,   ,𝑏   𝑧,𝑔,   ,𝑏,𝑧   𝐴,𝑏,𝑔,𝑧   𝐵,𝑏,𝑧   𝐹,𝑏,𝑔,𝑧   𝐻,𝑏,𝑔,𝑧   𝐾,𝑏,𝑔,𝑧   𝑁,𝑏,𝑔,𝑧   𝑃,𝑏,𝑧   𝑅,𝑏,𝑧   𝑇,𝑏,𝑧   𝑊,𝑏,𝑔,𝑧   𝑧,𝑌
Allowed substitution hints:   𝑈(𝑧,𝑔,𝑏)   𝐸(𝑧,𝑔,𝑏)   𝑋(𝑧,𝑔,𝑏)   𝑌(𝑔,𝑏)   𝑍(𝑧,𝑏)

Proof of Theorem cdlemk56
Dummy variables 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cdlemk5.l . 2 = (le‘𝐾)
2 cdlemk5.h . 2 𝐻 = (LHyp‘𝐾)
3 cdlemk5.t . 2 𝑇 = ((LTrn‘𝐾)‘𝑊)
4 cdlemk5.r . 2 𝑅 = ((trL‘𝐾)‘𝑊)
5 cdlemk5.e . 2 𝐸 = ((TEndo‘𝐾)‘𝑊)
6 simp11 1196 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
7 vex 3440 . . . . . 6 𝑔 ∈ V
8 cdlemk5.x . . . . . . 7 𝑋 = (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌))
9 riotaex 6981 . . . . . . 7 (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌)) ∈ V
108, 9eqeltri 2879 . . . . . 6 𝑋 ∈ V
117, 10ifex 4429 . . . . 5 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V
1211rgenw 3117 . . . 4 𝑔𝑇 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V
13 cdlemk5.u . . . . 5 𝑈 = (𝑔𝑇 ↦ if(𝐹 = 𝑁, 𝑔, 𝑋))
1413fnmpt 6356 . . . 4 (∀𝑔𝑇 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V → 𝑈 Fn 𝑇)
1512, 14mp1i 13 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈 Fn 𝑇)
16 simpl11 1241 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝐾 ∈ HL ∧ 𝑊𝐻))
17 simpl2 1185 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑅𝐹) = (𝑅𝑁))
18 simpl12 1242 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝐹𝑇)
19 simpl13 1243 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝑁𝑇)
20 simpr 485 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝑓𝑇)
21 simpl3 1186 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
22 cdlemk5.b . . . . . 6 𝐵 = (Base‘𝐾)
23 cdlemk5.j . . . . . 6 = (join‘𝐾)
24 cdlemk5.m . . . . . 6 = (meet‘𝐾)
25 cdlemk5.a . . . . . 6 𝐴 = (Atoms‘𝐾)
26 cdlemk5.z . . . . . 6 𝑍 = ((𝑃 (𝑅𝑏)) ((𝑁𝑃) (𝑅‘(𝑏𝐹))))
27 cdlemk5.y . . . . . 6 𝑌 = ((𝑃 (𝑅𝑔)) (𝑍 (𝑅‘(𝑔𝑏))))
2822, 1, 23, 24, 25, 2, 3, 4, 26, 27, 8, 13cdlemk35u 37631 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹𝑇𝑁𝑇𝑓𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈𝑓) ∈ 𝑇)
2916, 17, 18, 19, 20, 21, 28syl231anc 1383 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑈𝑓) ∈ 𝑇)
3029ralrimiva 3149 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ∀𝑓𝑇 (𝑈𝑓) ∈ 𝑇)
31 ffnfv 6745 . . 3 (𝑈:𝑇𝑇 ↔ (𝑈 Fn 𝑇 ∧ ∀𝑓𝑇 (𝑈𝑓) ∈ 𝑇))
3215, 30, 31sylanbrc 583 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈:𝑇𝑇)
33 simp11 1196 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇))
34 simp12 1197 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑅𝐹) = (𝑅𝑁))
35 simp2 1130 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → 𝑓𝑇)
36 simp3 1131 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → 𝑇)
37 simp13 1198 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
3822, 1, 23, 24, 25, 2, 3, 4, 26, 27, 8, 13cdlemk55u 37633 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ ((𝑅𝐹) = (𝑅𝑁) ∧ 𝑓𝑇𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈‘(𝑓)) = ((𝑈𝑓) ∘ (𝑈)))
3933, 34, 35, 36, 37, 38syl131anc 1376 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑈‘(𝑓)) = ((𝑈𝑓) ∘ (𝑈)))
40 simpl1 1184 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇))
4122, 1, 23, 24, 25, 2, 3, 4, 26, 27, 8, 13cdlemk39u 37635 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ ((𝑅𝐹) = (𝑅𝑁) ∧ 𝑓𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑅‘(𝑈𝑓)) (𝑅𝑓))
4240, 17, 20, 21, 41syl121anc 1368 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑅‘(𝑈𝑓)) (𝑅𝑓))
431, 2, 3, 4, 5, 6, 32, 39, 42istendod 37429 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈𝐸)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1080   = wceq 1522  wcel 2081  wne 2984  wral 3105  Vcvv 3437  ifcif 4381   class class class wbr 4962  cmpt 5041   I cid 5347  ccnv 5442  cres 5445  ccom 5447   Fn wfn 6220  wf 6221  cfv 6225  crio 6976  (class class class)co 7016  Basecbs 16312  lecple 16401  joincjn 17383  meetcmee 17384  Atomscatm 35930  HLchlt 36017  LHypclh 36651  LTrncltrn 36768  trLctrl 36825  TEndoctendo 37419
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-riotaBAD 35620
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-op 4479  df-uni 4746  df-iun 4827  df-iin 4828  df-br 4963  df-opab 5025  df-mpt 5042  df-id 5348  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-1st 7545  df-2nd 7546  df-undef 7790  df-map 8258  df-proset 17367  df-poset 17385  df-plt 17397  df-lub 17413  df-glb 17414  df-join 17415  df-meet 17416  df-p0 17478  df-p1 17479  df-lat 17485  df-clat 17547  df-oposet 35843  df-ol 35845  df-oml 35846  df-covers 35933  df-ats 35934  df-atl 35965  df-cvlat 35989  df-hlat 36018  df-llines 36165  df-lplanes 36166  df-lvols 36167  df-lines 36168  df-psubsp 36170  df-pmap 36171  df-padd 36463  df-lhyp 36655  df-laut 36656  df-ldil 36771  df-ltrn 36772  df-trl 36826  df-tendo 37422
This theorem is referenced by:  cdlemk56w  37640
  Copyright terms: Public domain W3C validator