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

Theorem cdlemk56 36078
 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 1089 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
7 vex 3198 . . . . . 6 𝑔 ∈ V
8 cdlemk5.x . . . . . . 7 𝑋 = (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌))
9 riotaex 6600 . . . . . . 7 (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌)) ∈ V
108, 9eqeltri 2695 . . . . . 6 𝑋 ∈ V
117, 10ifex 4147 . . . . 5 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V
1211rgenw 2921 . . . 4 𝑔𝑇 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V
13 cdlemk5.u . . . . 5 𝑈 = (𝑔𝑇 ↦ if(𝐹 = 𝑁, 𝑔, 𝑋))
1413fnmpt 6007 . . . 4 (∀𝑔𝑇 if(𝐹 = 𝑁, 𝑔, 𝑋) ∈ V → 𝑈 Fn 𝑇)
1512, 14mp1i 13 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈 Fn 𝑇)
16 simpl11 1134 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝐾 ∈ HL ∧ 𝑊𝐻))
17 simpl2 1063 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑅𝐹) = (𝑅𝑁))
18 simpl12 1135 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝐹𝑇)
19 simpl13 1136 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝑁𝑇)
20 simpr 477 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → 𝑓𝑇)
21 simpl3 1064 . . . . 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 36071 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝐹𝑇𝑁𝑇𝑓𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈𝑓) ∈ 𝑇)
2916, 17, 18, 19, 20, 21, 28syl231anc 1344 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑈𝑓) ∈ 𝑇)
3029ralrimiva 2963 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ∀𝑓𝑇 (𝑈𝑓) ∈ 𝑇)
31 ffnfv 6374 . . 3 (𝑈:𝑇𝑇 ↔ (𝑈 Fn 𝑇 ∧ ∀𝑓𝑇 (𝑈𝑓) ∈ 𝑇))
3215, 30, 31sylanbrc 697 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈:𝑇𝑇)
33 simp11 1089 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇))
34 simp12 1090 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑅𝐹) = (𝑅𝑁))
35 simp2 1060 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → 𝑓𝑇)
36 simp3 1061 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → 𝑇)
37 simp13 1091 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
3822, 1, 23, 24, 25, 2, 3, 4, 26, 27, 8, 13cdlemk55u 36073 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ ((𝑅𝐹) = (𝑅𝑁) ∧ 𝑓𝑇𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑈‘(𝑓)) = ((𝑈𝑓) ∘ (𝑈)))
3933, 34, 35, 36, 37, 38syl131anc 1337 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇𝑇) → (𝑈‘(𝑓)) = ((𝑈𝑓) ∘ (𝑈)))
40 simpl1 1062 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇))
4122, 1, 23, 24, 25, 2, 3, 4, 26, 27, 8, 13cdlemk39u 36075 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ ((𝑅𝐹) = (𝑅𝑁) ∧ 𝑓𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑅‘(𝑈𝑓)) (𝑅𝑓))
4240, 17, 20, 21, 41syl121anc 1329 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑓𝑇) → (𝑅‘(𝑈𝑓)) (𝑅𝑓))
431, 2, 3, 4, 5, 6, 32, 39, 42istendod 35869 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑈𝐸)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 384   ∧ w3a 1036   = wceq 1481   ∈ wcel 1988   ≠ wne 2791  ∀wral 2909  Vcvv 3195  ifcif 4077   class class class wbr 4644   ↦ cmpt 4720   I cid 5013  ◡ccnv 5103   ↾ cres 5106   ∘ ccom 5108   Fn wfn 5871  ⟶wf 5872  ‘cfv 5876  ℩crio 6595  (class class class)co 6635  Basecbs 15838  lecple 15929  joincjn 16925  meetcmee 16926  Atomscatm 34369  HLchlt 34456  LHypclh 35089  LTrncltrn 35206  trLctrl 35264  TEndoctendo 35859 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-8 1990  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-rep 4762  ax-sep 4772  ax-nul 4780  ax-pow 4834  ax-pr 4897  ax-un 6934  ax-riotaBAD 34058 This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1484  df-fal 1487  df-ex 1703  df-nf 1708  df-sb 1879  df-eu 2472  df-mo 2473  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-nel 2895  df-ral 2914  df-rex 2915  df-reu 2916  df-rmo 2917  df-rab 2918  df-v 3197  df-sbc 3430  df-csb 3527  df-dif 3570  df-un 3572  df-in 3574  df-ss 3581  df-nul 3908  df-if 4078  df-pw 4151  df-sn 4169  df-pr 4171  df-op 4175  df-uni 4428  df-iun 4513  df-iin 4514  df-br 4645  df-opab 4704  df-mpt 4721  df-id 5014  df-xp 5110  df-rel 5111  df-cnv 5112  df-co 5113  df-dm 5114  df-rn 5115  df-res 5116  df-ima 5117  df-iota 5839  df-fun 5878  df-fn 5879  df-f 5880  df-f1 5881  df-fo 5882  df-f1o 5883  df-fv 5884  df-riota 6596  df-ov 6638  df-oprab 6639  df-mpt2 6640  df-1st 7153  df-2nd 7154  df-undef 7384  df-map 7844  df-preset 16909  df-poset 16927  df-plt 16939  df-lub 16955  df-glb 16956  df-join 16957  df-meet 16958  df-p0 17020  df-p1 17021  df-lat 17027  df-clat 17089  df-oposet 34282  df-ol 34284  df-oml 34285  df-covers 34372  df-ats 34373  df-atl 34404  df-cvlat 34428  df-hlat 34457  df-llines 34603  df-lplanes 34604  df-lvols 34605  df-lines 34606  df-psubsp 34608  df-pmap 34609  df-padd 34901  df-lhyp 35093  df-laut 35094  df-ldil 35209  df-ltrn 35210  df-trl 35265  df-tendo 35862 This theorem is referenced by:  cdlemk56w  36080
 Copyright terms: Public domain W3C validator