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 41095
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 1137 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp2r 1202 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺𝑇)
3 simp2l 1201 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
4 trlcoabs.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
5 trlcoabs.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
64, 5ltrncnv 40519 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹𝑇)
71, 3, 6syl2anc 585 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹𝑇)
84, 5ltrnco 41092 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝐹𝑇) → (𝐺𝐹) ∈ 𝑇)
91, 2, 7, 8syl3anc 1374 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝐹) ∈ 𝑇)
10 trlcoabs.l . . . . . 6 = (le‘𝐾)
11 trlcoabs.a . . . . . 6 𝐴 = (Atoms‘𝐾)
1210, 11, 4, 5ltrnel 40512 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
13123adant2r 1181 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
14 trlcoabs.j . . . . 5 = (join‘𝐾)
15 eqid 2737 . . . . 5 (meet‘𝐾) = (meet‘𝐾)
16 trlcoabs.r . . . . 5 𝑅 = ((trL‘𝐾)‘𝑊)
1710, 14, 15, 11, 4, 5, 16trlval2 40536 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝐹) ∈ 𝑇 ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊)) → (𝑅‘(𝐺𝐹)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊))
181, 9, 13, 17syl3anc 1374 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑅‘(𝐺𝐹)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊))
1918oveq2d 7384 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝑅‘(𝐺𝐹))) = ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)))
20 simp1l 1199 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ HL)
21 simp3l 1203 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃𝐴)
2210, 11, 4, 5ltrnat 40513 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑃𝐴) → (𝐹𝑃) ∈ 𝐴)
231, 3, 21, 22syl3anc 1374 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝑃) ∈ 𝐴)
2410, 11, 4, 5ltrnat 40513 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝐹) ∈ 𝑇 ∧ (𝐹𝑃) ∈ 𝐴) → ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴)
251, 9, 23, 24syl3anc 1374 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴)
26 eqid 2737 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
2726, 14, 11hlatjcl 39740 . . . 4 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾))
2820, 23, 25, 27syl3anc 1374 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾))
29 simp1r 1200 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊𝐻)
3026, 4lhpbase 40371 . . . 4 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
3129, 30syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊 ∈ (Base‘𝐾))
3210, 14, 11hlatlej1 39748 . . . 4 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ ((𝐺𝐹)‘(𝐹𝑃)) ∈ 𝐴) → (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))))
3320, 23, 25, 32syl3anc 1374 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))))
3426, 10, 14, 15, 11atmod3i1 40237 . . 3 ((𝐾 ∈ HL ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝐹𝑃) ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))) → ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)))
3520, 23, 28, 31, 33, 34syl131anc 1386 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)𝑊)) = (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)))
3610, 11, 4, 5ltrncoval 40518 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐺𝐹) ∈ 𝑇𝐹𝑇) ∧ 𝑃𝐴) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = ((𝐺𝐹)‘(𝐹𝑃)))
371, 9, 3, 21, 36syl121anc 1378 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = ((𝐺𝐹)‘(𝐹𝑃)))
38 coass 6232 . . . . . . . 8 ((𝐺𝐹) ∘ 𝐹) = (𝐺 ∘ (𝐹𝐹))
3926, 4, 5ltrn1o 40497 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
401, 3, 39syl2anc 585 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
41 f1ococnv1 6811 . . . . . . . . . . 11 (𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → (𝐹𝐹) = ( I ↾ (Base‘𝐾)))
4240, 41syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐹𝐹) = ( I ↾ (Base‘𝐾)))
4342coeq2d 5819 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = (𝐺 ∘ ( I ↾ (Base‘𝐾))))
4426, 4, 5ltrn1o 40497 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
451, 2, 44syl2anc 585 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
46 f1of 6782 . . . . . . . . . 10 (𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐺:(Base‘𝐾)⟶(Base‘𝐾))
47 fcoi1 6716 . . . . . . . . . 10 (𝐺:(Base‘𝐾)⟶(Base‘𝐾) → (𝐺 ∘ ( I ↾ (Base‘𝐾))) = 𝐺)
4845, 46, 473syl 18 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ ( I ↾ (Base‘𝐾))) = 𝐺)
4943, 48eqtrd 2772 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺 ∘ (𝐹𝐹)) = 𝐺)
5038, 49eqtrid 2784 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹) ∘ 𝐹) = 𝐺)
5150fveq1d 6844 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐺𝐹) ∘ 𝐹)‘𝑃) = (𝐺𝑃))
5237, 51eqtr3d 2774 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝐹)‘(𝐹𝑃)) = (𝐺𝑃))
5352oveq2d 7384 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃))) = ((𝐹𝑃) (𝐺𝑃)))
54 eqid 2737 . . . . . 6 (1.‘𝐾) = (1.‘𝐾)
5510, 14, 54, 11, 4lhpjat2 40394 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊)) → ((𝐹𝑃) 𝑊) = (1.‘𝐾))
561, 13, 55syl2anc 585 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) 𝑊) = (1.‘𝐾))
5753, 56oveq12d 7386 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)) = (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)))
58 hlol 39734 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OL)
5920, 58syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ OL)
6010, 11, 4, 5ltrnat 40513 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝑃𝐴) → (𝐺𝑃) ∈ 𝐴)
611, 2, 21, 60syl3anc 1374 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝑃) ∈ 𝐴)
6226, 14, 11hlatjcl 39740 . . . . 5 ((𝐾 ∈ HL ∧ (𝐹𝑃) ∈ 𝐴 ∧ (𝐺𝑃) ∈ 𝐴) → ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾))
6320, 23, 61, 62syl3anc 1374 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾))
6426, 15, 54olm11 39600 . . . 4 ((𝐾 ∈ OL ∧ ((𝐹𝑃) (𝐺𝑃)) ∈ (Base‘𝐾)) → (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)) = ((𝐹𝑃) (𝐺𝑃)))
6559, 63, 64syl2anc 585 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) (𝐺𝑃))(meet‘𝐾)(1.‘𝐾)) = ((𝐹𝑃) (𝐺𝑃)))
6657, 65eqtrd 2772 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝐹𝑃) ((𝐺𝐹)‘(𝐹𝑃)))(meet‘𝐾)((𝐹𝑃) 𝑊)) = ((𝐹𝑃) (𝐺𝑃)))
6719, 35, 663eqtrd 2776 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) (𝑅‘(𝐺𝐹))) = ((𝐹𝑃) (𝐺𝑃)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1087   = wceq 1542  wcel 2114   class class class wbr 5100   I cid 5526  ccnv 5631  cres 5634  ccom 5636  wf 6496  1-1-ontowf1o 6499  cfv 6500  (class class class)co 7368  Basecbs 17148  lecple 17196  joincjn 18246  meetcmee 18247  1.cp1 18357  OLcol 39547  Atomscatm 39636  HLchlt 39723  LHypclh 40357  LTrncltrn 40474  trLctrl 40531
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-riotaBAD 39326
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-undef 8225  df-map 8777  df-proset 18229  df-poset 18248  df-plt 18263  df-lub 18279  df-glb 18280  df-join 18281  df-meet 18282  df-p0 18358  df-p1 18359  df-lat 18367  df-clat 18434  df-oposet 39549  df-ol 39551  df-oml 39552  df-covers 39639  df-ats 39640  df-atl 39671  df-cvlat 39695  df-hlat 39724  df-llines 39871  df-lplanes 39872  df-lvols 39873  df-lines 39874  df-psubsp 39876  df-pmap 39877  df-padd 40169  df-lhyp 40361  df-laut 40362  df-ldil 40477  df-ltrn 40478  df-trl 40532
This theorem is referenced by:  cdlemkfid1N  41294
  Copyright terms: Public domain W3C validator