MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ttgcontlem1 Structured version   Visualization version   GIF version

Theorem ttgcontlem1 27833
Description: Lemma for % ttgcont . (Contributed by Thierry Arnoux, 24-May-2019.)
Hypotheses
Ref Expression
ttgval.n 𝐺 = (toTG‘𝐻)
ttgitvval.i 𝐼 = (Itv‘𝐺)
ttgitvval.b 𝑃 = (Base‘𝐻)
ttgitvval.m = (-g𝐻)
ttgitvval.s · = ( ·𝑠𝐻)
ttgelitv.x (𝜑𝑋𝑃)
ttgelitv.y (𝜑𝑌𝑃)
ttgbtwnid.r 𝑅 = (Base‘(Scalar‘𝐻))
ttgbtwnid.2 (𝜑 → (0[,]1) ⊆ 𝑅)
ttgitvval.p + = (+g𝐻)
ttgcontlem1.h (𝜑𝐻 ∈ ℂVec)
ttgcontlem1.a (𝜑𝐴𝑃)
ttgcontlem1.n (𝜑𝑁𝑃)
ttgcontlem1.o (𝜑𝑀 ≠ 0)
ttgcontlem1.p (𝜑𝐾 ≠ 0)
ttgcontlem1.q (𝜑𝐾 ≠ 1)
ttgcontlem1.r (𝜑𝐿𝑀)
ttgcontlem1.s (𝜑𝐿 ≤ (𝑀 / 𝐾))
ttgcontlem1.l (𝜑𝐿 ∈ (0[,]1))
ttgcontlem1.k (𝜑𝐾 ∈ (0[,]1))
ttgcontlem1.m (𝜑𝑀 ∈ (0[,]𝐿))
ttgcontlem1.y (𝜑 → (𝑋 𝐴) = (𝐾 · (𝑌 𝐴)))
ttgcontlem1.x (𝜑 → (𝑋 𝐴) = (𝑀 · (𝑁 𝐴)))
ttgcontlem1.b (𝜑𝐵 = (𝐴 + (𝐿 · (𝑁 𝐴))))
Assertion
Ref Expression
ttgcontlem1 (𝜑𝐵 ∈ (𝑋𝐼𝑌))

Proof of Theorem ttgcontlem1
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 unitssre 13416 . . . . . . . 8 (0[,]1) ⊆ ℝ
2 ttgcontlem1.l . . . . . . . 8 (𝜑𝐿 ∈ (0[,]1))
31, 2sselid 3942 . . . . . . 7 (𝜑𝐿 ∈ ℝ)
4 ttgcontlem1.k . . . . . . . 8 (𝜑𝐾 ∈ (0[,]1))
51, 4sselid 3942 . . . . . . 7 (𝜑𝐾 ∈ ℝ)
63, 5remulcld 11185 . . . . . 6 (𝜑 → (𝐿 · 𝐾) ∈ ℝ)
7 0re 11157 . . . . . . . . 9 0 ∈ ℝ
8 iccssre 13346 . . . . . . . . 9 ((0 ∈ ℝ ∧ 𝐿 ∈ ℝ) → (0[,]𝐿) ⊆ ℝ)
97, 3, 8sylancr 587 . . . . . . . 8 (𝜑 → (0[,]𝐿) ⊆ ℝ)
10 ttgcontlem1.m . . . . . . . 8 (𝜑𝑀 ∈ (0[,]𝐿))
119, 10sseldd 3945 . . . . . . 7 (𝜑𝑀 ∈ ℝ)
1211, 5remulcld 11185 . . . . . 6 (𝜑 → (𝑀 · 𝐾) ∈ ℝ)
136, 12resubcld 11583 . . . . 5 (𝜑 → ((𝐿 · 𝐾) − (𝑀 · 𝐾)) ∈ ℝ)
14 1red 11156 . . . . . . 7 (𝜑 → 1 ∈ ℝ)
1511, 14remulcld 11185 . . . . . 6 (𝜑 → (𝑀 · 1) ∈ ℝ)
1615, 12resubcld 11583 . . . . 5 (𝜑 → ((𝑀 · 1) − (𝑀 · 𝐾)) ∈ ℝ)
1711recnd 11183 . . . . . . 7 (𝜑𝑀 ∈ ℂ)
18 1cnd 11150 . . . . . . 7 (𝜑 → 1 ∈ ℂ)
195recnd 11183 . . . . . . 7 (𝜑𝐾 ∈ ℂ)
2017, 18, 19subdid 11611 . . . . . 6 (𝜑 → (𝑀 · (1 − 𝐾)) = ((𝑀 · 1) − (𝑀 · 𝐾)))
2118, 19subcld 11512 . . . . . . 7 (𝜑 → (1 − 𝐾) ∈ ℂ)
22 ttgcontlem1.o . . . . . . 7 (𝜑𝑀 ≠ 0)
23 ttgcontlem1.q . . . . . . . . 9 (𝜑𝐾 ≠ 1)
2423necomd 2999 . . . . . . . 8 (𝜑 → 1 ≠ 𝐾)
2518, 19, 24subne0d 11521 . . . . . . 7 (𝜑 → (1 − 𝐾) ≠ 0)
2617, 21, 22, 25mulne0d 11807 . . . . . 6 (𝜑 → (𝑀 · (1 − 𝐾)) ≠ 0)
2720, 26eqnetrrd 3012 . . . . 5 (𝜑 → ((𝑀 · 1) − (𝑀 · 𝐾)) ≠ 0)
2813, 16, 27redivcld 11983 . . . 4 (𝜑 → (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∈ ℝ)
29 0xr 11202 . . . . . . . . . 10 0 ∈ ℝ*
303rexrd 11205 . . . . . . . . . 10 (𝜑𝐿 ∈ ℝ*)
31 iccgelb 13320 . . . . . . . . . 10 ((0 ∈ ℝ*𝐿 ∈ ℝ*𝑀 ∈ (0[,]𝐿)) → 0 ≤ 𝑀)
3229, 30, 10, 31mp3an2i 1466 . . . . . . . . 9 (𝜑 → 0 ≤ 𝑀)
3311, 32, 22ne0gt0d 11292 . . . . . . . 8 (𝜑 → 0 < 𝑀)
3411, 33elrpd 12954 . . . . . . 7 (𝜑𝑀 ∈ ℝ+)
3514rexrd 11205 . . . . . . . . . 10 (𝜑 → 1 ∈ ℝ*)
36 iccleub 13319 . . . . . . . . . 10 ((0 ∈ ℝ* ∧ 1 ∈ ℝ*𝐾 ∈ (0[,]1)) → 𝐾 ≤ 1)
3729, 35, 4, 36mp3an2i 1466 . . . . . . . . 9 (𝜑𝐾 ≤ 1)
385, 14, 37, 24leneltd 11309 . . . . . . . 8 (𝜑𝐾 < 1)
39 difrp 12953 . . . . . . . . 9 ((𝐾 ∈ ℝ ∧ 1 ∈ ℝ) → (𝐾 < 1 ↔ (1 − 𝐾) ∈ ℝ+))
405, 14, 39syl2anc 584 . . . . . . . 8 (𝜑 → (𝐾 < 1 ↔ (1 − 𝐾) ∈ ℝ+))
4138, 40mpbid 231 . . . . . . 7 (𝜑 → (1 − 𝐾) ∈ ℝ+)
4234, 41rpmulcld 12973 . . . . . 6 (𝜑 → (𝑀 · (1 − 𝐾)) ∈ ℝ+)
4320, 42eqeltrrd 2839 . . . . 5 (𝜑 → ((𝑀 · 1) − (𝑀 · 𝐾)) ∈ ℝ+)
443, 11resubcld 11583 . . . . . . 7 (𝜑 → (𝐿𝑀) ∈ ℝ)
45 iccleub 13319 . . . . . . . . 9 ((0 ∈ ℝ*𝐿 ∈ ℝ*𝑀 ∈ (0[,]𝐿)) → 𝑀𝐿)
4629, 30, 10, 45mp3an2i 1466 . . . . . . . 8 (𝜑𝑀𝐿)
473, 11subge0d 11745 . . . . . . . 8 (𝜑 → (0 ≤ (𝐿𝑀) ↔ 𝑀𝐿))
4846, 47mpbird 256 . . . . . . 7 (𝜑 → 0 ≤ (𝐿𝑀))
49 iccgelb 13320 . . . . . . . 8 ((0 ∈ ℝ* ∧ 1 ∈ ℝ*𝐾 ∈ (0[,]1)) → 0 ≤ 𝐾)
5029, 35, 4, 49mp3an2i 1466 . . . . . . 7 (𝜑 → 0 ≤ 𝐾)
5144, 5, 48, 50mulge0d 11732 . . . . . 6 (𝜑 → 0 ≤ ((𝐿𝑀) · 𝐾))
523recnd 11183 . . . . . . 7 (𝜑𝐿 ∈ ℂ)
5352, 17, 19subdird 11612 . . . . . 6 (𝜑 → ((𝐿𝑀) · 𝐾) = ((𝐿 · 𝐾) − (𝑀 · 𝐾)))
5451, 53breqtrd 5131 . . . . 5 (𝜑 → 0 ≤ ((𝐿 · 𝐾) − (𝑀 · 𝐾)))
5513, 43, 54divge0d 12997 . . . 4 (𝜑 → 0 ≤ (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))))
56 ttgcontlem1.s . . . . . . . . 9 (𝜑𝐿 ≤ (𝑀 / 𝐾))
57 ttgcontlem1.p . . . . . . . . . . . 12 (𝜑𝐾 ≠ 0)
585, 50, 57ne0gt0d 11292 . . . . . . . . . . 11 (𝜑 → 0 < 𝐾)
595, 58elrpd 12954 . . . . . . . . . 10 (𝜑𝐾 ∈ ℝ+)
603, 11, 59lemuldivd 13006 . . . . . . . . 9 (𝜑 → ((𝐿 · 𝐾) ≤ 𝑀𝐿 ≤ (𝑀 / 𝐾)))
6156, 60mpbird 256 . . . . . . . 8 (𝜑 → (𝐿 · 𝐾) ≤ 𝑀)
6217mulid1d 11172 . . . . . . . 8 (𝜑 → (𝑀 · 1) = 𝑀)
6361, 62breqtrrd 5133 . . . . . . 7 (𝜑 → (𝐿 · 𝐾) ≤ (𝑀 · 1))
646, 15, 12, 63lesub1dd 11771 . . . . . 6 (𝜑 → ((𝐿 · 𝐾) − (𝑀 · 𝐾)) ≤ ((𝑀 · 1) − (𝑀 · 𝐾)))
6517, 18mulcld 11175 . . . . . . . 8 (𝜑 → (𝑀 · 1) ∈ ℂ)
6617, 19mulcld 11175 . . . . . . . 8 (𝜑 → (𝑀 · 𝐾) ∈ ℂ)
6765, 66subcld 11512 . . . . . . 7 (𝜑 → ((𝑀 · 1) − (𝑀 · 𝐾)) ∈ ℂ)
6867mulid1d 11172 . . . . . 6 (𝜑 → (((𝑀 · 1) − (𝑀 · 𝐾)) · 1) = ((𝑀 · 1) − (𝑀 · 𝐾)))
6964, 68breqtrrd 5133 . . . . 5 (𝜑 → ((𝐿 · 𝐾) − (𝑀 · 𝐾)) ≤ (((𝑀 · 1) − (𝑀 · 𝐾)) · 1))
7013, 14, 43ledivmuld 13010 . . . . 5 (𝜑 → ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ≤ 1 ↔ ((𝐿 · 𝐾) − (𝑀 · 𝐾)) ≤ (((𝑀 · 1) − (𝑀 · 𝐾)) · 1)))
7169, 70mpbird 256 . . . 4 (𝜑 → (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ≤ 1)
72 elicc01 13383 . . . 4 ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∈ (0[,]1) ↔ ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∈ ℝ ∧ 0 ≤ (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∧ (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ≤ 1))
7328, 55, 71, 72syl3anbrc 1343 . . 3 (𝜑 → (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∈ (0[,]1))
74 ttgcontlem1.h . . . . . 6 (𝜑𝐻 ∈ ℂVec)
7574cvsclm 24489 . . . . 5 (𝜑𝐻 ∈ ℂMod)
76 ttgbtwnid.2 . . . . . . . 8 (𝜑 → (0[,]1) ⊆ 𝑅)
7776, 2sseldd 3945 . . . . . . 7 (𝜑𝐿𝑅)
78 0elunit 13386 . . . . . . . . . 10 0 ∈ (0[,]1)
79 iccss2 13335 . . . . . . . . . 10 ((0 ∈ (0[,]1) ∧ 𝐿 ∈ (0[,]1)) → (0[,]𝐿) ⊆ (0[,]1))
8078, 2, 79sylancr 587 . . . . . . . . 9 (𝜑 → (0[,]𝐿) ⊆ (0[,]1))
8180, 76sstrd 3954 . . . . . . . 8 (𝜑 → (0[,]𝐿) ⊆ 𝑅)
8281, 10sseldd 3945 . . . . . . 7 (𝜑𝑀𝑅)
83 eqid 2736 . . . . . . . 8 (Scalar‘𝐻) = (Scalar‘𝐻)
84 ttgbtwnid.r . . . . . . . 8 𝑅 = (Base‘(Scalar‘𝐻))
8583, 84clmsubcl 24449 . . . . . . 7 ((𝐻 ∈ ℂMod ∧ 𝐿𝑅𝑀𝑅) → (𝐿𝑀) ∈ 𝑅)
8675, 77, 82, 85syl3anc 1371 . . . . . 6 (𝜑 → (𝐿𝑀) ∈ 𝑅)
8783, 84cvsdivcl 24496 . . . . . 6 ((𝐻 ∈ ℂVec ∧ ((𝐿𝑀) ∈ 𝑅𝑀𝑅𝑀 ≠ 0)) → ((𝐿𝑀) / 𝑀) ∈ 𝑅)
8874, 86, 82, 22, 87syl13anc 1372 . . . . 5 (𝜑 → ((𝐿𝑀) / 𝑀) ∈ 𝑅)
8976, 4sseldd 3945 . . . . . 6 (𝜑𝐾𝑅)
90 1elunit 13387 . . . . . . . . 9 1 ∈ (0[,]1)
9190a1i 11 . . . . . . . 8 (𝜑 → 1 ∈ (0[,]1))
9276, 91sseldd 3945 . . . . . . 7 (𝜑 → 1 ∈ 𝑅)
9383, 84clmsubcl 24449 . . . . . . 7 ((𝐻 ∈ ℂMod ∧ 1 ∈ 𝑅𝐾𝑅) → (1 − 𝐾) ∈ 𝑅)
9475, 92, 89, 93syl3anc 1371 . . . . . 6 (𝜑 → (1 − 𝐾) ∈ 𝑅)
9583, 84cvsdivcl 24496 . . . . . 6 ((𝐻 ∈ ℂVec ∧ (𝐾𝑅 ∧ (1 − 𝐾) ∈ 𝑅 ∧ (1 − 𝐾) ≠ 0)) → (𝐾 / (1 − 𝐾)) ∈ 𝑅)
9674, 89, 94, 25, 95syl13anc 1372 . . . . 5 (𝜑 → (𝐾 / (1 − 𝐾)) ∈ 𝑅)
97 clmgrp 24431 . . . . . . 7 (𝐻 ∈ ℂMod → 𝐻 ∈ Grp)
9875, 97syl 17 . . . . . 6 (𝜑𝐻 ∈ Grp)
99 ttgelitv.y . . . . . 6 (𝜑𝑌𝑃)
100 ttgelitv.x . . . . . 6 (𝜑𝑋𝑃)
101 ttgitvval.b . . . . . . 7 𝑃 = (Base‘𝐻)
102 ttgitvval.m . . . . . . 7 = (-g𝐻)
103101, 102grpsubcl 18827 . . . . . 6 ((𝐻 ∈ Grp ∧ 𝑌𝑃𝑋𝑃) → (𝑌 𝑋) ∈ 𝑃)
10498, 99, 100, 103syl3anc 1371 . . . . 5 (𝜑 → (𝑌 𝑋) ∈ 𝑃)
105 ttgitvval.s . . . . . 6 · = ( ·𝑠𝐻)
106101, 83, 105, 84clmvsass 24452 . . . . 5 ((𝐻 ∈ ℂMod ∧ (((𝐿𝑀) / 𝑀) ∈ 𝑅 ∧ (𝐾 / (1 − 𝐾)) ∈ 𝑅 ∧ (𝑌 𝑋) ∈ 𝑃)) → ((((𝐿𝑀) / 𝑀) · (𝐾 / (1 − 𝐾))) · (𝑌 𝑋)) = (((𝐿𝑀) / 𝑀) · ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋))))
10775, 88, 96, 104, 106syl13anc 1372 . . . 4 (𝜑 → ((((𝐿𝑀) / 𝑀) · (𝐾 / (1 − 𝐾))) · (𝑌 𝑋)) = (((𝐿𝑀) / 𝑀) · ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋))))
10844recnd 11183 . . . . . . 7 (𝜑 → (𝐿𝑀) ∈ ℂ)
109108, 17, 19, 21, 22, 25divmuldivd 11972 . . . . . 6 (𝜑 → (((𝐿𝑀) / 𝑀) · (𝐾 / (1 − 𝐾))) = (((𝐿𝑀) · 𝐾) / (𝑀 · (1 − 𝐾))))
11053, 20oveq12d 7375 . . . . . 6 (𝜑 → (((𝐿𝑀) · 𝐾) / (𝑀 · (1 − 𝐾))) = (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))))
111109, 110eqtrd 2776 . . . . 5 (𝜑 → (((𝐿𝑀) / 𝑀) · (𝐾 / (1 − 𝐾))) = (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))))
112111oveq1d 7372 . . . 4 (𝜑 → ((((𝐿𝑀) / 𝑀) · (𝐾 / (1 − 𝐾))) · (𝑌 𝑋)) = ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) · (𝑌 𝑋)))
113 ttgcontlem1.a . . . . . . . 8 (𝜑𝐴𝑃)
114101, 102grpsubcl 18827 . . . . . . . 8 ((𝐻 ∈ Grp ∧ 𝑋𝑃𝐴𝑃) → (𝑋 𝐴) ∈ 𝑃)
11598, 100, 113, 114syl3anc 1371 . . . . . . 7 (𝜑 → (𝑋 𝐴) ∈ 𝑃)
116 ttgcontlem1.y . . . . . . . . . 10 (𝜑 → (𝑋 𝐴) = (𝐾 · (𝑌 𝐴)))
117116oveq2d 7373 . . . . . . . . 9 (𝜑 → ((1 − 𝐾) · (𝑋 𝐴)) = ((1 − 𝐾) · (𝐾 · (𝑌 𝐴))))
11819, 21mulcomd 11176 . . . . . . . . . . 11 (𝜑 → (𝐾 · (1 − 𝐾)) = ((1 − 𝐾) · 𝐾))
119118oveq1d 7372 . . . . . . . . . 10 (𝜑 → ((𝐾 · (1 − 𝐾)) · (𝑌 𝐴)) = (((1 − 𝐾) · 𝐾) · (𝑌 𝐴)))
120101, 102grpsubcl 18827 . . . . . . . . . . . 12 ((𝐻 ∈ Grp ∧ 𝑌𝑃𝐴𝑃) → (𝑌 𝐴) ∈ 𝑃)
12198, 99, 113, 120syl3anc 1371 . . . . . . . . . . 11 (𝜑 → (𝑌 𝐴) ∈ 𝑃)
122101, 83, 105, 84clmvsass 24452 . . . . . . . . . . 11 ((𝐻 ∈ ℂMod ∧ (𝐾𝑅 ∧ (1 − 𝐾) ∈ 𝑅 ∧ (𝑌 𝐴) ∈ 𝑃)) → ((𝐾 · (1 − 𝐾)) · (𝑌 𝐴)) = (𝐾 · ((1 − 𝐾) · (𝑌 𝐴))))
12375, 89, 94, 121, 122syl13anc 1372 . . . . . . . . . 10 (𝜑 → ((𝐾 · (1 − 𝐾)) · (𝑌 𝐴)) = (𝐾 · ((1 − 𝐾) · (𝑌 𝐴))))
124101, 83, 105, 84clmvsass 24452 . . . . . . . . . . 11 ((𝐻 ∈ ℂMod ∧ ((1 − 𝐾) ∈ 𝑅𝐾𝑅 ∧ (𝑌 𝐴) ∈ 𝑃)) → (((1 − 𝐾) · 𝐾) · (𝑌 𝐴)) = ((1 − 𝐾) · (𝐾 · (𝑌 𝐴))))
12575, 94, 89, 121, 124syl13anc 1372 . . . . . . . . . 10 (𝜑 → (((1 − 𝐾) · 𝐾) · (𝑌 𝐴)) = ((1 − 𝐾) · (𝐾 · (𝑌 𝐴))))
126119, 123, 1253eqtr3d 2784 . . . . . . . . 9 (𝜑 → (𝐾 · ((1 − 𝐾) · (𝑌 𝐴))) = ((1 − 𝐾) · (𝐾 · (𝑌 𝐴))))
127 eqid 2736 . . . . . . . . . . . . 13 (-g‘(Scalar‘𝐻)) = (-g‘(Scalar‘𝐻))
128 clmlmod 24430 . . . . . . . . . . . . . 14 (𝐻 ∈ ℂMod → 𝐻 ∈ LMod)
12975, 128syl 17 . . . . . . . . . . . . 13 (𝜑𝐻 ∈ LMod)
130101, 105, 83, 84, 102, 127, 129, 92, 89, 121lmodsubdir 20380 . . . . . . . . . . . 12 (𝜑 → ((1(-g‘(Scalar‘𝐻))𝐾) · (𝑌 𝐴)) = ((1 · (𝑌 𝐴)) (𝐾 · (𝑌 𝐴))))
13183, 84clmsub 24443 . . . . . . . . . . . . . 14 ((𝐻 ∈ ℂMod ∧ 1 ∈ 𝑅𝐾𝑅) → (1 − 𝐾) = (1(-g‘(Scalar‘𝐻))𝐾))
13275, 92, 89, 131syl3anc 1371 . . . . . . . . . . . . 13 (𝜑 → (1 − 𝐾) = (1(-g‘(Scalar‘𝐻))𝐾))
133132oveq1d 7372 . . . . . . . . . . . 12 (𝜑 → ((1 − 𝐾) · (𝑌 𝐴)) = ((1(-g‘(Scalar‘𝐻))𝐾) · (𝑌 𝐴)))
134101, 105clmvs1 24456 . . . . . . . . . . . . . . 15 ((𝐻 ∈ ℂMod ∧ (𝑌 𝐴) ∈ 𝑃) → (1 · (𝑌 𝐴)) = (𝑌 𝐴))
13575, 121, 134syl2anc 584 . . . . . . . . . . . . . 14 (𝜑 → (1 · (𝑌 𝐴)) = (𝑌 𝐴))
136135eqcomd 2742 . . . . . . . . . . . . 13 (𝜑 → (𝑌 𝐴) = (1 · (𝑌 𝐴)))
137136, 116oveq12d 7375 . . . . . . . . . . . 12 (𝜑 → ((𝑌 𝐴) (𝑋 𝐴)) = ((1 · (𝑌 𝐴)) (𝐾 · (𝑌 𝐴))))
138130, 133, 1373eqtr4d 2786 . . . . . . . . . . 11 (𝜑 → ((1 − 𝐾) · (𝑌 𝐴)) = ((𝑌 𝐴) (𝑋 𝐴)))
139101, 102grpnnncan2 18844 . . . . . . . . . . . 12 ((𝐻 ∈ Grp ∧ (𝑌𝑃𝑋𝑃𝐴𝑃)) → ((𝑌 𝐴) (𝑋 𝐴)) = (𝑌 𝑋))
14098, 99, 100, 113, 139syl13anc 1372 . . . . . . . . . . 11 (𝜑 → ((𝑌 𝐴) (𝑋 𝐴)) = (𝑌 𝑋))
141138, 140eqtrd 2776 . . . . . . . . . 10 (𝜑 → ((1 − 𝐾) · (𝑌 𝐴)) = (𝑌 𝑋))
142141oveq2d 7373 . . . . . . . . 9 (𝜑 → (𝐾 · ((1 − 𝐾) · (𝑌 𝐴))) = (𝐾 · (𝑌 𝑋)))
143117, 126, 1423eqtr2rd 2783 . . . . . . . 8 (𝜑 → (𝐾 · (𝑌 𝑋)) = ((1 − 𝐾) · (𝑋 𝐴)))
144101, 105, 83, 84, 74, 89, 94, 104, 115, 57, 143cvsmuleqdivd 24497 . . . . . . 7 (𝜑 → (𝑌 𝑋) = (((1 − 𝐾) / 𝐾) · (𝑋 𝐴)))
145101, 105, 83, 84, 74, 94, 89, 104, 115, 25, 57, 144cvsdiveqd 24498 . . . . . 6 (𝜑 → ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋)) = (𝑋 𝐴))
146145, 115eqeltrd 2838 . . . . 5 (𝜑 → ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋)) ∈ 𝑃)
147 ttgcontlem1.b . . . . . . 7 (𝜑𝐵 = (𝐴 + (𝐿 · (𝑁 𝐴))))
148 ttgcontlem1.n . . . . . . . . . 10 (𝜑𝑁𝑃)
149101, 102grpsubcl 18827 . . . . . . . . . 10 ((𝐻 ∈ Grp ∧ 𝑁𝑃𝐴𝑃) → (𝑁 𝐴) ∈ 𝑃)
15098, 148, 113, 149syl3anc 1371 . . . . . . . . 9 (𝜑 → (𝑁 𝐴) ∈ 𝑃)
151101, 83, 105, 84lmodvscl 20339 . . . . . . . . 9 ((𝐻 ∈ LMod ∧ 𝐿𝑅 ∧ (𝑁 𝐴) ∈ 𝑃) → (𝐿 · (𝑁 𝐴)) ∈ 𝑃)
152129, 77, 150, 151syl3anc 1371 . . . . . . . 8 (𝜑 → (𝐿 · (𝑁 𝐴)) ∈ 𝑃)
153 ttgitvval.p . . . . . . . . 9 + = (+g𝐻)
154101, 153grpcl 18756 . . . . . . . 8 ((𝐻 ∈ Grp ∧ 𝐴𝑃 ∧ (𝐿 · (𝑁 𝐴)) ∈ 𝑃) → (𝐴 + (𝐿 · (𝑁 𝐴))) ∈ 𝑃)
15598, 113, 152, 154syl3anc 1371 . . . . . . 7 (𝜑 → (𝐴 + (𝐿 · (𝑁 𝐴))) ∈ 𝑃)
156147, 155eqeltrd 2838 . . . . . 6 (𝜑𝐵𝑃)
157101, 102grpsubcl 18827 . . . . . 6 ((𝐻 ∈ Grp ∧ 𝐵𝑃𝑋𝑃) → (𝐵 𝑋) ∈ 𝑃)
15898, 156, 100, 157syl3anc 1371 . . . . 5 (𝜑 → (𝐵 𝑋) ∈ 𝑃)
159 ttgcontlem1.r . . . . . 6 (𝜑𝐿𝑀)
16052, 17, 159subne0d 11521 . . . . 5 (𝜑 → (𝐿𝑀) ≠ 0)
161 ttgcontlem1.x . . . . . . . . . 10 (𝜑 → (𝑋 𝐴) = (𝑀 · (𝑁 𝐴)))
162161oveq2d 7373 . . . . . . . . 9 (𝜑 → ((𝐿𝑀) · (𝑋 𝐴)) = ((𝐿𝑀) · (𝑀 · (𝑁 𝐴))))
16317, 108mulcomd 11176 . . . . . . . . . . 11 (𝜑 → (𝑀 · (𝐿𝑀)) = ((𝐿𝑀) · 𝑀))
164163oveq1d 7372 . . . . . . . . . 10 (𝜑 → ((𝑀 · (𝐿𝑀)) · (𝑁 𝐴)) = (((𝐿𝑀) · 𝑀) · (𝑁 𝐴)))
165101, 83, 105, 84clmvsass 24452 . . . . . . . . . . 11 ((𝐻 ∈ ℂMod ∧ (𝑀𝑅 ∧ (𝐿𝑀) ∈ 𝑅 ∧ (𝑁 𝐴) ∈ 𝑃)) → ((𝑀 · (𝐿𝑀)) · (𝑁 𝐴)) = (𝑀 · ((𝐿𝑀) · (𝑁 𝐴))))
16675, 82, 86, 150, 165syl13anc 1372 . . . . . . . . . 10 (𝜑 → ((𝑀 · (𝐿𝑀)) · (𝑁 𝐴)) = (𝑀 · ((𝐿𝑀) · (𝑁 𝐴))))
167101, 83, 105, 84clmvsass 24452 . . . . . . . . . . 11 ((𝐻 ∈ ℂMod ∧ ((𝐿𝑀) ∈ 𝑅𝑀𝑅 ∧ (𝑁 𝐴) ∈ 𝑃)) → (((𝐿𝑀) · 𝑀) · (𝑁 𝐴)) = ((𝐿𝑀) · (𝑀 · (𝑁 𝐴))))
16875, 86, 82, 150, 167syl13anc 1372 . . . . . . . . . 10 (𝜑 → (((𝐿𝑀) · 𝑀) · (𝑁 𝐴)) = ((𝐿𝑀) · (𝑀 · (𝑁 𝐴))))
169164, 166, 1683eqtr3d 2784 . . . . . . . . 9 (𝜑 → (𝑀 · ((𝐿𝑀) · (𝑁 𝐴))) = ((𝐿𝑀) · (𝑀 · (𝑁 𝐴))))
170101, 105, 83, 84, 102, 127, 129, 77, 82, 150lmodsubdir 20380 . . . . . . . . . . . 12 (𝜑 → ((𝐿(-g‘(Scalar‘𝐻))𝑀) · (𝑁 𝐴)) = ((𝐿 · (𝑁 𝐴)) (𝑀 · (𝑁 𝐴))))
17183, 84clmsub 24443 . . . . . . . . . . . . . 14 ((𝐻 ∈ ℂMod ∧ 𝐿𝑅𝑀𝑅) → (𝐿𝑀) = (𝐿(-g‘(Scalar‘𝐻))𝑀))
17275, 77, 82, 171syl3anc 1371 . . . . . . . . . . . . 13 (𝜑 → (𝐿𝑀) = (𝐿(-g‘(Scalar‘𝐻))𝑀))
173172oveq1d 7372 . . . . . . . . . . . 12 (𝜑 → ((𝐿𝑀) · (𝑁 𝐴)) = ((𝐿(-g‘(Scalar‘𝐻))𝑀) · (𝑁 𝐴)))
174147oveq1d 7372 . . . . . . . . . . . . . 14 (𝜑 → (𝐵 𝐴) = ((𝐴 + (𝐿 · (𝑁 𝐴))) 𝐴))
175 lmodabl 20369 . . . . . . . . . . . . . . . 16 (𝐻 ∈ LMod → 𝐻 ∈ Abel)
176129, 175syl 17 . . . . . . . . . . . . . . 15 (𝜑𝐻 ∈ Abel)
177101, 153, 102ablpncan2 19594 . . . . . . . . . . . . . . 15 ((𝐻 ∈ Abel ∧ 𝐴𝑃 ∧ (𝐿 · (𝑁 𝐴)) ∈ 𝑃) → ((𝐴 + (𝐿 · (𝑁 𝐴))) 𝐴) = (𝐿 · (𝑁 𝐴)))
178176, 113, 152, 177syl3anc 1371 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴 + (𝐿 · (𝑁 𝐴))) 𝐴) = (𝐿 · (𝑁 𝐴)))
179174, 178eqtrd 2776 . . . . . . . . . . . . 13 (𝜑 → (𝐵 𝐴) = (𝐿 · (𝑁 𝐴)))
180179, 161oveq12d 7375 . . . . . . . . . . . 12 (𝜑 → ((𝐵 𝐴) (𝑋 𝐴)) = ((𝐿 · (𝑁 𝐴)) (𝑀 · (𝑁 𝐴))))
181170, 173, 1803eqtr4d 2786 . . . . . . . . . . 11 (𝜑 → ((𝐿𝑀) · (𝑁 𝐴)) = ((𝐵 𝐴) (𝑋 𝐴)))
182101, 102grpnnncan2 18844 . . . . . . . . . . . 12 ((𝐻 ∈ Grp ∧ (𝐵𝑃𝑋𝑃𝐴𝑃)) → ((𝐵 𝐴) (𝑋 𝐴)) = (𝐵 𝑋))
18398, 156, 100, 113, 182syl13anc 1372 . . . . . . . . . . 11 (𝜑 → ((𝐵 𝐴) (𝑋 𝐴)) = (𝐵 𝑋))
184181, 183eqtrd 2776 . . . . . . . . . 10 (𝜑 → ((𝐿𝑀) · (𝑁 𝐴)) = (𝐵 𝑋))
185184oveq2d 7373 . . . . . . . . 9 (𝜑 → (𝑀 · ((𝐿𝑀) · (𝑁 𝐴))) = (𝑀 · (𝐵 𝑋)))
186162, 169, 1853eqtr2rd 2783 . . . . . . . 8 (𝜑 → (𝑀 · (𝐵 𝑋)) = ((𝐿𝑀) · (𝑋 𝐴)))
187101, 105, 83, 84, 74, 82, 86, 158, 115, 22, 186cvsmuleqdivd 24497 . . . . . . 7 (𝜑 → (𝐵 𝑋) = (((𝐿𝑀) / 𝑀) · (𝑋 𝐴)))
188101, 105, 83, 84, 74, 86, 82, 158, 115, 160, 22, 187cvsdiveqd 24498 . . . . . 6 (𝜑 → ((𝑀 / (𝐿𝑀)) · (𝐵 𝑋)) = (𝑋 𝐴))
189145, 188eqtr4d 2779 . . . . 5 (𝜑 → ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋)) = ((𝑀 / (𝐿𝑀)) · (𝐵 𝑋)))
190101, 105, 83, 84, 74, 82, 86, 146, 158, 22, 160, 189cvsdiveqd 24498 . . . 4 (𝜑 → (((𝐿𝑀) / 𝑀) · ((𝐾 / (1 − 𝐾)) · (𝑌 𝑋))) = (𝐵 𝑋))
191107, 112, 1903eqtr3rd 2785 . . 3 (𝜑 → (𝐵 𝑋) = ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) · (𝑌 𝑋)))
192 oveq1 7364 . . . 4 (𝑘 = (((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) → (𝑘 · (𝑌 𝑋)) = ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) · (𝑌 𝑋)))
193192rspceeqv 3595 . . 3 (((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) ∈ (0[,]1) ∧ (𝐵 𝑋) = ((((𝐿 · 𝐾) − (𝑀 · 𝐾)) / ((𝑀 · 1) − (𝑀 · 𝐾))) · (𝑌 𝑋))) → ∃𝑘 ∈ (0[,]1)(𝐵 𝑋) = (𝑘 · (𝑌 𝑋)))
19473, 191, 193syl2anc 584 . 2 (𝜑 → ∃𝑘 ∈ (0[,]1)(𝐵 𝑋) = (𝑘 · (𝑌 𝑋)))
195 ttgval.n . . 3 𝐺 = (toTG‘𝐻)
196 ttgitvval.i . . 3 𝐼 = (Itv‘𝐺)
197195, 196, 101, 102, 105, 100, 99, 74, 156ttgelitv 27831 . 2 (𝜑 → (𝐵 ∈ (𝑋𝐼𝑌) ↔ ∃𝑘 ∈ (0[,]1)(𝐵 𝑋) = (𝑘 · (𝑌 𝑋))))
198194, 197mpbird 256 1 (𝜑𝐵 ∈ (𝑋𝐼𝑌))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205   = wceq 1541  wcel 2106  wne 2943  wrex 3073  wss 3910   class class class wbr 5105  cfv 6496  (class class class)co 7357  cr 11050  0cc0 11051  1c1 11052   · cmul 11056  *cxr 11188   < clt 11189  cle 11190  cmin 11385   / cdiv 11812  +crp 12915  [,]cicc 13267  Basecbs 17083  +gcplusg 17133  Scalarcsca 17136   ·𝑠 cvsca 17137  Grpcgrp 18748  -gcsg 18750  Abelcabl 19563  LModclmod 20322  ℂModcclm 24425  ℂVecccvs 24486  Itvcitv 27375  toTGcttg 27815
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-addf 11130  ax-mulf 11131
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-tpos 8157  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-er 8648  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-rp 12916  df-icc 13271  df-fz 13425  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-starv 17148  df-tset 17152  df-ple 17153  df-ds 17155  df-unif 17156  df-0g 17323  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-grp 18751  df-minusg 18752  df-sbg 18753  df-subg 18925  df-cmn 19564  df-abl 19565  df-mgp 19897  df-ur 19914  df-ring 19966  df-cring 19967  df-oppr 20049  df-dvdsr 20070  df-unit 20071  df-invr 20101  df-dvr 20112  df-drng 20187  df-subrg 20220  df-lmod 20324  df-lvec 20564  df-cnfld 20797  df-clm 24426  df-cvs 24487  df-itv 27377  df-lng 27378  df-ttg 27816
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator