Theorem tendotr 41489

Description: The trace of the value of a nonzero trace-preserving endomorphism equals the trace of the argument. (Contributed by NM, 11-Aug-2013.)

Hypotheses

Ref	Expression
tendotr.b	⊢ 𝐵 = (Base‘𝐾)
tendotr.h	⊢ 𝐻 = (LHyp‘𝐾)
tendotr.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
tendotr.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
tendotr.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
tendotr.o	⊢ 𝑂 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))

Assertion

Ref	Expression
tendotr	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) → (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹))

Distinct variable groups:   𝐵,𝑓   𝑇,𝑓

Allowed substitution hints:   𝑅(𝑓)   𝑈(𝑓)   𝐸(𝑓)   𝐹(𝑓)   𝐻(𝑓)   𝐾(𝑓)   𝑂(𝑓)   𝑊(𝑓)

Proof of Theorem tendotr

Step	Hyp	Ref	Expression
1		simpl1 1208	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		simpl2l 1243	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → 𝑈 ∈ 𝐸)
3		tendotr.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
4		tendotr.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
5		tendotr.e	. . . . . 6 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
6	3, 4, 5	tendoid 41432	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑈 ∈ 𝐸) → (𝑈‘( I ↾ 𝐵)) = ( I ↾ 𝐵))
7	1, 2, 6	syl2anc 595	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → (𝑈‘( I ↾ 𝐵)) = ( I ↾ 𝐵))
8		simpr 489	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → 𝐹 = ( I ↾ 𝐵))
9	8	fveq2d 6883	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → (𝑈‘𝐹) = (𝑈‘( I ↾ 𝐵)))
10	7, 9, 8	3eqtr4d 2814	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → (𝑈‘𝐹) = 𝐹)
11	10	fveq2d 6883	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 = ( I ↾ 𝐵)) → (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹))
12		simpl1 1208	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
13		simpl2l 1243	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝑈 ∈ 𝐸)
14		simpl3 1210	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝐹 ∈ 𝑇)
15		eqid 2769	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
16		tendotr.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
17		tendotr.r	. . . . 5 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
18	15, 4, 16, 17, 5	tendotp 41420	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑈 ∈ 𝐸 ∧ 𝐹 ∈ 𝑇) → (𝑅‘(𝑈‘𝐹))(le‘𝐾)(𝑅‘𝐹))
19	12, 13, 14, 18	syl3anc 1396	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘(𝑈‘𝐹))(le‘𝐾)(𝑅‘𝐹))
20		simpl1l 1241	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝐾 ∈ HL)
21		hlatl 40019	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
22	20, 21	syl 18	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝐾 ∈ AtLat)
23	4, 16, 5	tendocl 41426	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑈 ∈ 𝐸 ∧ 𝐹 ∈ 𝑇) → (𝑈‘𝐹) ∈ 𝑇)
24	12, 13, 14, 23	syl3anc 1396	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑈‘𝐹) ∈ 𝑇)
25		simpl2r 1244	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝑈 ≠ 𝑂)
26		simpr 489	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → 𝐹 ≠ ( I ↾ 𝐵))
27		tendotr.o	. . . . . . . . 9 ⊢ 𝑂 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))
28	3, 4, 16, 5, 27	tendoid0 41484	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑈 ∈ 𝐸 ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵))) → ((𝑈‘𝐹) = ( I ↾ 𝐵) ↔ 𝑈 = 𝑂))
29	12, 13, 14, 26, 28	syl112anc 1399	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → ((𝑈‘𝐹) = ( I ↾ 𝐵) ↔ 𝑈 = 𝑂))
30	29	necon3bid 3008	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → ((𝑈‘𝐹) ≠ ( I ↾ 𝐵) ↔ 𝑈 ≠ 𝑂))
31	25, 30	mpbird 260	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑈‘𝐹) ≠ ( I ↾ 𝐵))
32		eqid 2769	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
33	3, 32, 4, 16, 17	trlnidat 40832	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈‘𝐹) ∈ 𝑇 ∧ (𝑈‘𝐹) ≠ ( I ↾ 𝐵)) → (𝑅‘(𝑈‘𝐹)) ∈ (Atoms‘𝐾))
34	12, 24, 31, 33	syl3anc 1396	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘(𝑈‘𝐹)) ∈ (Atoms‘𝐾))
35	3, 32, 4, 16, 17	trlnidat 40832	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
36	12, 14, 26, 35	syl3anc 1396	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
37	15, 32	atcmp 39970	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ (𝑅‘(𝑈‘𝐹)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ∈ (Atoms‘𝐾)) → ((𝑅‘(𝑈‘𝐹))(le‘𝐾)(𝑅‘𝐹) ↔ (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹)))
38	22, 34, 36, 37	syl3anc 1396	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → ((𝑅‘(𝑈‘𝐹))(le‘𝐾)(𝑅‘𝐹) ↔ (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹)))
39	19, 38	mpbid 235	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹))
40	11, 39	pm2.61dane 3051	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑈 ≠ 𝑂) ∧ 𝐹 ∈ 𝑇) → (𝑅‘(𝑈‘𝐹)) = (𝑅‘𝐹))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964   class class class wbr 5110   ↦ cmpt 5193   I cid 5553   ↾ cres 5661  ‘cfv 6534  Basecbs 17265  lecple 17313  Atomscatm 39922  AtLatcal 39923  HLchlt 40009  LHypclh 40643  LTrncltrn 40760  trLctrl 40817  TEndoctendo 41411

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-riotaBAD 39612

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-1st 7982  df-2nd 7983  df-undef 8265  df-map 8822  df-proset 18346  df-poset 18365  df-plt 18380  df-lub 18396  df-glb 18397  df-join 18398  df-meet 18399  df-p0 18475  df-p1 18476  df-lat 18484  df-clat 18551  df-oposet 39835  df-ol 39837  df-oml 39838  df-covers 39925  df-ats 39926  df-atl 39957  df-cvlat 39981  df-hlat 40010  df-llines 40157  df-lplanes 40158  df-lvols 40159  df-lines 40160  df-psubsp 40162  df-pmap 40163  df-padd 40455  df-lhyp 40647  df-laut 40648  df-ldil 40763  df-ltrn 40764  df-trl 40818  df-tendo 41414

This theorem is referenced by:  cdleml6  41640