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

Theorem trlcoabs2N 40894
Description: Absorption of the trace of a composition. (Contributed by NM, 29-Jul-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
trlcoabs.l = (le‘𝐾)
trlcoabs.j = (join‘𝐾)
trlcoabs.a 𝐴 = (Atoms‘𝐾)
trlcoabs.h 𝐻 = (LHyp‘𝐾)
trlcoabs.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
trlcoabs.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
trlcoabs2N (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝑅‘(𝐺𝐹))) = ((𝐹𝑃) (𝐺𝑃)))

Proof of Theorem trlcoabs2N
StepHypRef Expression
1 simp1 1136 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp2r 1201 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺𝑇)
3 simp2l 1200 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
4 trlcoabs.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
5 trlcoabs.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
64, 5ltrncnv 40318 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹𝑇)
71, 3, 6syl2anc 584 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
84, 5ltrnco 40891 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝐹𝑇) → (𝐺𝐹) ∈ 𝑇)
91, 2, 7, 8syl3anc 1373 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝐹) ∈ 𝑇)
10 trlcoabs.l . . . . . 6 = (le‘𝐾)
11 trlcoabs.a . . . . . 6 𝐴 = (Atoms‘𝐾)
1210, 11, 4, 5ltrnel 40311 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
13123adant2r 1180 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
14 trlcoabs.j . . . . 5 = (join‘𝐾)
15 eqid 2733 . . . . 5 (meet‘𝐾) = (meet‘𝐾)
16 trlcoabs.r . . . . 5 𝑅 = ((trL‘𝐾)‘𝑊)
1710, 14, 15, 11, 4, 5, 16trlval2 40335 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝐹) ∈ 𝑇 ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊)) → (𝑅‘(𝐺𝐹)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊))
181, 9, 13, 17syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑅‘(𝐺𝐹)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊))
1918oveq2d 7371 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝑅‘(𝐺𝐹))) = ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)))
20 simp1l 1198 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ HL)
21 simp3l 1202 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃𝐴)
2210, 11, 4, 5ltrnat 40312 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑃𝐴) → (𝐹𝑃) ∈ 𝐴)
231, 3, 21, 22syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝑃) ∈ 𝐴)
2410, 11, 4, 5ltrnat 40312 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝐹) ∈ 𝑇 ∧ (𝐹𝑃) ∈ 𝐴) → ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴)
251, 9, 23, 24syl3anc 1373 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴)
26 eqid 2733 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
2726, 14, 11hlatjcl 39539 . . . 4 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾))
2820, 23, 25, 27syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾))
29 simp1r 1199 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊𝐻)
3026, 4lhpbase 40170 . . . 4 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
3129, 30syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊 ∈ (Base‘𝐾))
3210, 14, 11hlatlej1 39547 . . . 4 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴) → (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))))
3320, 23, 25, 32syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))))
3426, 10, 14, 15, 11atmod3i1 40036 . . 3 ((𝐾 ∈ HL ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))) → ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)))
3520, 23, 28, 31, 33, 34syl131anc 1385 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)))
3610, 11, 4, 5ltrncoval 40317 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐺𝐹) ∈ 𝑇𝐹𝑇) ∧ 𝑃𝐴) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = ((𝐺𝐹)‘(𝐹𝑃)))
371, 9, 3, 21, 36syl121anc 1377 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = ((𝐺𝐹)‘(𝐹𝑃)))
38 coass 6221 . . . . . . . 8 ((𝐺𝐹) ∘ 𝐹) = (𝐺 ∘ (𝐹𝐹))
3926, 4, 5ltrn1o 40296 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
401, 3, 39syl2anc 584 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
41 f1ococnv1 6800 . . . . . . . . . . 11 (𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → (𝐹𝐹) = ( I ↾ (Base‘𝐾)))
4240, 41syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝐹) = ( I ↾ (Base‘𝐾)))
4342coeq2d 5808 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = (𝐺 ∘ ( I ↾ (Base‘𝐾))))
4426, 4, 5ltrn1o 40296 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
451, 2, 44syl2anc 584 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
46 f1of 6771 . . . . . . . . . 10 (𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐺:(Base‘𝐾)⟶(Base‘𝐾))
47 fcoi1 6705 . . . . . . . . . 10 (𝐺:(Base‘𝐾)⟶(Base‘𝐾) → (𝐺 ∘ ( I ↾ (Base‘𝐾))) = 𝐺)
4845, 46, 473syl 18 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ ( I ↾ (Base‘𝐾))) = 𝐺)
4943, 48eqtrd 2768 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = 𝐺)
5038, 49eqtrid 2780 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹) ∘ 𝐹) = 𝐺)
5150fveq1d 6833 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = (𝐺𝑃))
5237, 51eqtr3d 2770 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹)‘(𝐹𝑃)) = (𝐺𝑃))
5352oveq2d 7371 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) = ((𝐹𝑃) (𝐺𝑃)))
54 eqid 2733 . . . . . 6 (1.‘𝐾) = (1.‘𝐾)
5510, 14, 54, 11, 4lhpjat2 40193 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊)) → ((𝐹𝑃) 𝑊) = (1.‘𝐾))
561, 13, 55syl2anc 584 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) 𝑊) = (1.‘𝐾))
5753, 56oveq12d 7373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)) = (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)))
58 hlol 39533 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OL)
5920, 58syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ OL)
6010, 11, 4, 5ltrnat 40312 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝑃𝐴) → (𝐺𝑃) ∈ 𝐴)
611, 2, 21, 60syl3anc 1373 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝑃) ∈ 𝐴)
6226, 14, 11hlatjcl 39539 . . . . 5 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ (𝐺𝑃) ∈ 𝐴) → ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾))
6320, 23, 61, 62syl3anc 1373 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾))
6426, 15, 54olm11 39399 . . . 4 ((𝐾 ∈ OL ∧ ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾)) → (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)) = ((𝐹𝑃) (𝐺𝑃)))
6559, 63, 64syl2anc 584 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)) = ((𝐹𝑃) (𝐺𝑃)))
6657, 65eqtrd 2768 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)) = ((𝐹𝑃) (𝐺𝑃)))
6719, 35, 663eqtrd 2772 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝑅‘(𝐺𝐹))) = ((𝐹𝑃) (𝐺𝑃)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1541  wcel 2113   class class class wbr 5095   I cid 5515  ccnv 5620  cres 5623  ccom 5625  wf 6485  1-1-ontowf1o 6488  cfv 6489  (class class class)co 7355  Basecbs 17127  lecple 17175  joincjn 18225  meetcmee 18226  1.cp1 18336  OLcol 39346  Atomscatm 39435  HLchlt 39522  LHypclh 40156  LTrncltrn 40273  trLctrl 40330
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677  ax-riotaBAD 39125
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  df-iin 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-riota 7312  df-ov 7358  df-oprab 7359  df-mpo 7360  df-1st 7930  df-2nd 7931  df-undef 8212  df-map 8761  df-proset 18208  df-poset 18227  df-plt 18242  df-lub 18258  df-glb 18259  df-join 18260  df-meet 18261  df-p0 18337  df-p1 18338  df-lat 18346  df-clat 18413  df-oposet 39348  df-ol 39350  df-oml 39351  df-covers 39438  df-ats 39439  df-atl 39470  df-cvlat 39494  df-hlat 39523  df-llines 39670  df-lplanes 39671  df-lvols 39672  df-lines 39673  df-psubsp 39675  df-pmap 39676  df-padd 39968  df-lhyp 40160  df-laut 40161  df-ldil 40276  df-ltrn 40277  df-trl 40331
This theorem is referenced by:  cdlemkfid1N  41093
  Copyright terms: Public domain W3C validator