Theorem fourierdlem26 41269

Description: Periodic image of a point 𝑌 that's in the period that begins with the point 𝑋. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

Hypotheses

Ref	Expression
fourierdlem26.1	⊢ (𝜑 → 𝐴 ∈ ℝ)
fourierdlem26.2	⊢ (𝜑 → 𝐵 ∈ ℝ)
fourierdlem26.3	⊢ (𝜑 → 𝐴 < 𝐵)
fourierdlem26.4	⊢ 𝑇 = (𝐵 − 𝐴)
fourierdlem26.5	⊢ 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)))
fourierdlem26.6	⊢ (𝜑 → 𝑋 ∈ ℝ)
fourierdlem26.7	⊢ (𝜑 → (𝐸‘𝑋) = 𝐵)
fourierdlem26.8	⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑋 + 𝑇)))

Assertion

Ref	Expression
fourierdlem26	⊢ (𝜑 → (𝐸‘𝑌) = (𝐴 + (𝑌 − 𝑋)))

Distinct variable groups:   𝑥,𝐵   𝑥,𝑇   𝑥,𝑋   𝑥,𝑌   𝜑,𝑥

Allowed substitution hints:   𝐴(𝑥)   𝐸(𝑥)

Proof of Theorem fourierdlem26

Step	Hyp	Ref	Expression
1		fourierdlem26.5	. . . 4 ⊢ 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)))
2	1	a1i 11	. . 3 ⊢ (𝜑 → 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇))))
3		simpr 479	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
4	3	oveq2d 6938	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝐵 − 𝑥) = (𝐵 − 𝑌))
5	4	oveq1d 6937	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑌) / 𝑇))
6	5	fveq2d 6450	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑌) / 𝑇)))
7	6	oveq1d 6937	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇))
8	3, 7	oveq12d 6940	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
9		fourierdlem26.8	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑋 + 𝑇)))
10		fourierdlem26.6	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ℝ)
11	10	rexrd 10426	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ ℝ*)
12		fourierdlem26.4	. . . . . . . 8 ⊢ 𝑇 = (𝐵 − 𝐴)
13		fourierdlem26.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℝ)
14		fourierdlem26.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	13, 14	resubcld 10803	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝐴) ∈ ℝ)
16	12, 15	syl5eqel 2862	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ℝ)
17	10, 16	readdcld 10406	. . . . . 6 ⊢ (𝜑 → (𝑋 + 𝑇) ∈ ℝ)
18		elioc2 12548	. . . . . 6 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑋 + 𝑇) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
19	11, 17, 18	syl2anc 579	. . . . 5 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
20	9, 19	mpbid 224	. . . 4 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇)))
21	20	simp1d 1133	. . 3 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22	13, 21	resubcld 10803	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) ∈ ℝ)
23		fourierdlem26.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 𝐵)
24	14, 13	posdifd 10962	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵 − 𝐴)))
25	23, 24	mpbid 224	. . . . . . . . . 10 ⊢ (𝜑 → 0 < (𝐵 − 𝐴))
26	25, 12	syl6breqr 4928	. . . . . . . . 9 ⊢ (𝜑 → 0 < 𝑇)
27	26	gt0ne0d 10939	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ≠ 0)
28	22, 16, 27	redivcld 11203	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) ∈ ℝ)
29	28	flcld 12918	. . . . . 6 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℤ)
30	29	zred 11834	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℝ)
31	30, 16	remulcld 10407	. . . 4 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) ∈ ℝ)
32	21, 31	readdcld 10406	. . 3 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) ∈ ℝ)
33	2, 8, 21, 32	fvmptd 6548	. 2 ⊢ (𝜑 → (𝐸‘𝑌) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
34	10	recnd 10405	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ ℂ)
35	21	recnd 10405	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑌 ∈ ℂ)
36	34, 35	pncan3d 10737	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) = 𝑌)
37	36	eqcomd 2783	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 = (𝑋 + (𝑌 − 𝑋)))
38	37	oveq2d 6938	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑌) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
39	13	recnd 10405	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℂ)
40	35, 34	subcld 10734	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℂ)
41	39, 34, 40	subsub4d 10765	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) − (𝑌 − 𝑋)) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
42	38, 41	eqtr4d 2816	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) = ((𝐵 − 𝑋) − (𝑌 − 𝑋)))
43	42	oveq1d 6937	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇))
44	13, 10	resubcld 10803	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℝ)
45	44	recnd 10405	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℂ)
46	16	recnd 10405	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℂ)
47	45, 40, 46, 27	divsubdird 11190	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
48	40, 46, 27	divnegd 11164	. . . . . . . . . 10 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = (-(𝑌 − 𝑋) / 𝑇))
49	35, 34	negsubdi2d 10750	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑌 − 𝑋) = (𝑋 − 𝑌))
50	49	oveq1d 6937	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
51	48, 50	eqtrd 2813	. . . . . . . . 9 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
52	51	oveq2d 6938	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
53	44, 16, 27	redivcld 11203	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℝ)
54	53	recnd 10405	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℂ)
55	40, 46, 27	divcld 11151	. . . . . . . . 9 ⊢ (𝜑 → ((𝑌 − 𝑋) / 𝑇) ∈ ℂ)
56	54, 55	negsubd 10740	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
57		1cnd 10371	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
58	54, 57	npcand 10738	. . . . . . . . . . 11 ⊢ (𝜑 → ((((𝐵 − 𝑋) / 𝑇) − 1) + 1) = ((𝐵 − 𝑋) / 𝑇))
59	58	eqcomd 2783	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + 1))
60	59	oveq1d 6937	. . . . . . . . 9 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)))
61	54, 57	subcld 10734	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℂ)
62	34, 35	subcld 10734	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℂ)
63	62, 46, 27	divcld 11151	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℂ)
64	61, 57, 63	addassd 10399	. . . . . . . . 9 ⊢ (𝜑 → (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
65	60, 64	eqtrd 2813	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
66	52, 56, 65	3eqtr3d 2821	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
67	43, 47, 66	3eqtrd 2817	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
68	67	fveq2d 6450	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))))
69	10, 21	resubcld 10803	. . . . . . . . 9 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℝ)
70	16, 69	readdcld 10406	. . . . . . . 8 ⊢ (𝜑 → (𝑇 + (𝑋 − 𝑌)) ∈ ℝ)
71	16, 26	elrpd 12178	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℝ+)
72	34, 46	addcomd 10578	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + 𝑇) = (𝑇 + 𝑋))
73	72	oveq2d 6938	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋(,](𝑋 + 𝑇)) = (𝑋(,](𝑇 + 𝑋)))
74	9, 73	eleqtrd 2860	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑇 + 𝑋)))
75	16, 10	readdcld 10406	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 + 𝑋) ∈ ℝ)
76		elioc2 12548	. . . . . . . . . . . . . 14 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑇 + 𝑋) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
77	11, 75, 76	syl2anc 579	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
78	74, 77	mpbid 224	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋)))
79	78	simp3d 1135	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ≤ (𝑇 + 𝑋))
80	21, 10, 16	lesubaddd 10972	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌 − 𝑋) ≤ 𝑇 ↔ 𝑌 ≤ (𝑇 + 𝑋)))
81	79, 80	mpbird 249	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ≤ 𝑇)
82	21, 10	resubcld 10803	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℝ)
83	16, 82	subge0d 10965	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (𝑇 − (𝑌 − 𝑋)) ↔ (𝑌 − 𝑋) ≤ 𝑇))
84	81, 83	mpbird 249	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝑇 − (𝑌 − 𝑋)))
85	46, 35, 34	subsub2d 10763	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 − (𝑌 − 𝑋)) = (𝑇 + (𝑋 − 𝑌)))
86	84, 85	breqtrd 4912	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ (𝑇 + (𝑋 − 𝑌)))
87	70, 71, 86	divge0d 12221	. . . . . . 7 ⊢ (𝜑 → 0 ≤ ((𝑇 + (𝑋 − 𝑌)) / 𝑇))
88	46, 62, 46, 27	divdird 11189	. . . . . . . 8 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
89	46, 27	dividd 11149	. . . . . . . . . 10 ⊢ (𝜑 → (𝑇 / 𝑇) = 1)
90	89	eqcomd 2783	. . . . . . . . 9 ⊢ (𝜑 → 1 = (𝑇 / 𝑇))
91	90	oveq1d 6937	. . . . . . . 8 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
92	88, 91	eqtr4d 2816	. . . . . . 7 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = (1 + ((𝑋 − 𝑌) / 𝑇)))
93	87, 92	breqtrd 4912	. . . . . 6 ⊢ (𝜑 → 0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)))
94	20	simp2d 1134	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 < 𝑌)
95	10, 21	sublt0d 11001	. . . . . . . . 9 ⊢ (𝜑 → ((𝑋 − 𝑌) < 0 ↔ 𝑋 < 𝑌))
96	94, 95	mpbird 249	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − 𝑌) < 0)
97	69, 71, 96	divlt0gt0d 40400	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) < 0)
98	69, 16, 27	redivcld 11203	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℝ)
99		1red 10377	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
100		ltaddneg 10591	. . . . . . . 8 ⊢ ((((𝑋 − 𝑌) / 𝑇) ∈ ℝ ∧ 1 ∈ ℝ) → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
101	98, 99, 100	syl2anc 579	. . . . . . 7 ⊢ (𝜑 → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
102	97, 101	mpbid 224	. . . . . 6 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)
103	53	flcld 12918	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℤ)
104	103	zcnd 11835	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℂ)
105	104, 46	mulcld 10397	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℂ)
106	34, 105	pncan2d 10736	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
107	106	eqcomd 2783	. . . . . . . . . . 11 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋))
108	107	oveq1d 6937	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇))
109	104, 46, 27	divcan4d 11157	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
110		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
111		oveq2 6930	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑋 → (𝐵 − 𝑥) = (𝐵 − 𝑋))
112	111	oveq1d 6937	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑋 → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
113	112	fveq2d 6450	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑋 → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
114	113	oveq1d 6937	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
115	110, 114	oveq12d 6940	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
116	115	adantl 475	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
117		reflcl 12916	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 − 𝑋) / 𝑇) ∈ ℝ → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
118	53, 117	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
119	118, 16	remulcld 10407	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℝ)
120	10, 119	readdcld 10406	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) ∈ ℝ)
121	2, 116, 10, 120	fvmptd 6548	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸‘𝑋) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
122	121	eqcomd 2783	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = (𝐸‘𝑋))
123	122	oveq1d 6937	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((𝐸‘𝑋) − 𝑋))
124	123	oveq1d 6937	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = (((𝐸‘𝑋) − 𝑋) / 𝑇))
125		fourierdlem26.7	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸‘𝑋) = 𝐵)
126	125	oveq1d 6937	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑋) = (𝐵 − 𝑋))
127	126	oveq1d 6937	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
128	124, 127	eqtrd 2813	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
129	108, 109, 128	3eqtr3d 2821	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) = ((𝐵 − 𝑋) / 𝑇))
130	129, 103	eqeltrrd 2859	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℤ)
131		1zzd 11760	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
132	130, 131	zsubcld 11839	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ)
133	99, 98	readdcld 10406	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ)
134		flbi2 12937	. . . . . . 7 ⊢ (((((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ) → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
135	132, 133, 134	syl2anc 579	. . . . . 6 ⊢ (𝜑 → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
136	93, 102, 135	mpbir2and 703	. . . . 5 ⊢ (𝜑 → (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1))
137	129	eqcomd 2783	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
138	137	oveq1d 6937	. . . . 5 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
139	68, 136, 138	3eqtrd 2817	. . . 4 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
140	139	oveq1d 6937	. . 3 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇))
141	140	oveq2d 6938	. 2 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) = (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
142	37	oveq1d 6937	. . 3 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
143	104, 57, 46	subdird 10832	. . . . 5 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇)))
144	143	oveq2d 6938	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
145	34, 40	addcld 10396	. . . . . 6 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) ∈ ℂ)
146	57, 46	mulcld 10397	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) ∈ ℂ)
147	145, 105, 146	addsubassd 10754	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
148	147	eqcomd 2783	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))) = (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)))
149	34, 40, 105	add32d 10603	. . . . . 6 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)))
150	149	oveq1d 6937	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)))
151	122	oveq1d 6937	. . . . . 6 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) = ((𝐸‘𝑋) + (𝑌 − 𝑋)))
152	46	mulid2d 10395	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) = 𝑇)
153	151, 152	oveq12d 6940	. . . . 5 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)) = (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇))
154	125, 13	eqeltrd 2858	. . . . . . . 8 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℝ)
155	154	recnd 10405	. . . . . . 7 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℂ)
156	155, 40, 46	addsubd 10755	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)))
157	125	oveq1d 6937	. . . . . . . 8 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = (𝐵 − 𝑇))
158	12	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 = (𝐵 − 𝐴))
159	158	oveq2d 6938	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑇) = (𝐵 − (𝐵 − 𝐴)))
160	14	recnd 10405	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
161	39, 160	nncand 10739	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − (𝐵 − 𝐴)) = 𝐴)
162	157, 159, 161	3eqtrd 2817	. . . . . . 7 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = 𝐴)
163	162	oveq1d 6937	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)) = (𝐴 + (𝑌 − 𝑋)))
164	156, 163	eqtrd 2813	. . . . 5 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (𝐴 + (𝑌 − 𝑋)))
165	150, 153, 164	3eqtrd 2817	. . . 4 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
166	144, 148, 165	3eqtrd 2817	. . 3 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
167	142, 166	eqtrd 2813	. 2 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
168	33, 141, 167	3eqtrd 2817	1 ⊢ (𝜑 → (𝐸‘𝑌) = (𝐴 + (𝑌 − 𝑋)))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   ∧ w3a 1071   = wceq 1601   ∈ wcel 2106   class class class wbr 4886   ↦ cmpt 4965  ‘cfv 6135  (class class class)co 6922  ℝcr 10271  0cc0 10272  1c1 10273   + caddc 10275   · cmul 10277  ℝ^*cxr 10410   < clt 10411   ≤ cle 10412   − cmin 10606  -cneg 10607   / cdiv 11032  ℤcz 11728  (,]cioc 12488  ⌊cfl 12910

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2054  ax-8 2108  ax-9 2115  ax-10 2134  ax-11 2149  ax-12 2162  ax-13 2333  ax-ext 2753  ax-sep 5017  ax-nul 5025  ax-pow 5077  ax-pr 5138  ax-un 7226  ax-cnex 10328  ax-resscn 10329  ax-1cn 10330  ax-icn 10331  ax-addcl 10332  ax-addrcl 10333  ax-mulcl 10334  ax-mulrcl 10335  ax-mulcom 10336  ax-addass 10337  ax-mulass 10338  ax-distr 10339  ax-i2m1 10340  ax-1ne0 10341  ax-1rid 10342  ax-rnegex 10343  ax-rrecex 10344  ax-cnre 10345  ax-pre-lttri 10346  ax-pre-lttrn 10347  ax-pre-ltadd 10348  ax-pre-mulgt0 10349  ax-pre-sup 10350

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2550  df-eu 2586  df-clab 2763  df-cleq 2769  df-clel 2773  df-nfc 2920  df-ne 2969  df-nel 3075  df-ral 3094  df-rex 3095  df-reu 3096  df-rmo 3097  df-rab 3098  df-v 3399  df-sbc 3652  df-csb 3751  df-dif 3794  df-un 3796  df-in 3798  df-ss 3805  df-pss 3807  df-nul 4141  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-tp 4402  df-op 4404  df-uni 4672  df-iun 4755  df-br 4887  df-opab 4949  df-mpt 4966  df-tr 4988  df-id 5261  df-eprel 5266  df-po 5274  df-so 5275  df-fr 5314  df-we 5316  df-xp 5361  df-rel 5362  df-cnv 5363  df-co 5364  df-dm 5365  df-rn 5366  df-res 5367  df-ima 5368  df-pred 5933  df-ord 5979  df-on 5980  df-lim 5981  df-suc 5982  df-iota 6099  df-fun 6137  df-fn 6138  df-f 6139  df-f1 6140  df-fo 6141  df-f1o 6142  df-fv 6143  df-riota 6883  df-ov 6925  df-oprab 6926  df-mpt2 6927  df-om 7344  df-wrecs 7689  df-recs 7751  df-rdg 7789  df-er 8026  df-en 8242  df-dom 8243  df-sdom 8244  df-sup 8636  df-inf 8637  df-pnf 10413  df-mnf 10414  df-xr 10415  df-ltxr 10416  df-le 10417  df-sub 10608  df-neg 10609  df-div 11033  df-nn 11375  df-n0 11643  df-z 11729  df-uz 11993  df-rp 12138  df-ioc 12492  df-fl 12912

This theorem is referenced by:  fourierdlem65  41307  fourierdlem79  41321