Theorem fourierdlem26 46576

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 485	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
4	3	oveq2d 7372	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝐵 − 𝑥) = (𝐵 − 𝑌))
5	4	oveq1d 7371	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑌) / 𝑇))
6	5	fveq2d 6831	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑌) / 𝑇)))
7	6	oveq1d 7371	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇))
8	3, 7	oveq12d 7374	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
9		fourierdlem26.8	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑋 + 𝑇)))
10		fourierdlem26.6	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ℝ)
11	10	rexrd 11186	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ ℝ*)
12		fourierdlem26.4	. . . . . . . 8 ⊢ 𝑇 = (𝐵 − 𝐴)
13		fourierdlem26.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℝ)
14		fourierdlem26.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	13, 14	resubcld 11569	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝐴) ∈ ℝ)
16	12, 15	eqeltrid 2843	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ℝ)
17	10, 16	readdcld 11165	. . . . . 6 ⊢ (𝜑 → (𝑋 + 𝑇) ∈ ℝ)
18		elioc2 13353	. . . . . 6 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑋 + 𝑇) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
19	11, 17, 18	syl2anc 590	. . . . 5 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
20	9, 19	mpbid 233	. . . 4 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇)))
21	20	simp1d 1148	. . 3 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22	13, 21	resubcld 11569	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) ∈ ℝ)
23		fourierdlem26.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 𝐵)
24	14, 13	posdifd 11728	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵 − 𝐴)))
25	23, 24	mpbid 233	. . . . . . . . . 10 ⊢ (𝜑 → 0 < (𝐵 − 𝐴))
26	25, 12	breqtrrdi 5114	. . . . . . . . 9 ⊢ (𝜑 → 0 < 𝑇)
27	26	gt0ne0d 11705	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ≠ 0)
28	22, 16, 27	redivcld 11974	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) ∈ ℝ)
29	28	flcld 13748	. . . . . 6 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℤ)
30	29	zred 12624	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℝ)
31	30, 16	remulcld 11166	. . . 4 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) ∈ ℝ)
32	21, 31	readdcld 11165	. . 3 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) ∈ ℝ)
33	2, 8, 21, 32	fvmptd 6943	. 2 ⊢ (𝜑 → (𝐸‘𝑌) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
34	10	recnd 11164	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ ℂ)
35	21	recnd 11164	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑌 ∈ ℂ)
36	34, 35	pncan3d 11499	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) = 𝑌)
37	36	eqcomd 2745	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 = (𝑋 + (𝑌 − 𝑋)))
38	37	oveq2d 7372	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑌) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
39	13	recnd 11164	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℂ)
40	35, 34	subcld 11496	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℂ)
41	39, 34, 40	subsub4d 11527	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) − (𝑌 − 𝑋)) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
42	38, 41	eqtr4d 2777	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) = ((𝐵 − 𝑋) − (𝑌 − 𝑋)))
43	42	oveq1d 7371	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇))
44	13, 10	resubcld 11569	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℝ)
45	44	recnd 11164	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℂ)
46	16	recnd 11164	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℂ)
47	45, 40, 46, 27	divsubdird 11961	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
48	40, 46, 27	divnegd 11935	. . . . . . . . . 10 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = (-(𝑌 − 𝑋) / 𝑇))
49	35, 34	negsubdi2d 11512	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑌 − 𝑋) = (𝑋 − 𝑌))
50	49	oveq1d 7371	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
51	48, 50	eqtrd 2774	. . . . . . . . 9 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
52	51	oveq2d 7372	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
53	44, 16, 27	redivcld 11974	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℝ)
54	53	recnd 11164	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℂ)
55	40, 46, 27	divcld 11922	. . . . . . . . 9 ⊢ (𝜑 → ((𝑌 − 𝑋) / 𝑇) ∈ ℂ)
56	54, 55	negsubd 11502	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
57		1cnd 11130	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
58	54, 57	npcand 11500	. . . . . . . . . . 11 ⊢ (𝜑 → ((((𝐵 − 𝑋) / 𝑇) − 1) + 1) = ((𝐵 − 𝑋) / 𝑇))
59	58	eqcomd 2745	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + 1))
60	59	oveq1d 7371	. . . . . . . . 9 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)))
61	54, 57	subcld 11496	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℂ)
62	34, 35	subcld 11496	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℂ)
63	62, 46, 27	divcld 11922	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℂ)
64	61, 57, 63	addassd 11158	. . . . . . . . 9 ⊢ (𝜑 → (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
65	60, 64	eqtrd 2774	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
66	52, 56, 65	3eqtr3d 2782	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
67	43, 47, 66	3eqtrd 2778	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
68	67	fveq2d 6831	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))))
69	10, 21	resubcld 11569	. . . . . . . . 9 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℝ)
70	16, 69	readdcld 11165	. . . . . . . 8 ⊢ (𝜑 → (𝑇 + (𝑋 − 𝑌)) ∈ ℝ)
71	16, 26	elrpd 12974	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℝ+)
72	34, 46	addcomd 11339	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + 𝑇) = (𝑇 + 𝑋))
73	72	oveq2d 7372	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋(,](𝑋 + 𝑇)) = (𝑋(,](𝑇 + 𝑋)))
74	9, 73	eleqtrd 2841	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑇 + 𝑋)))
75	16, 10	readdcld 11165	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 + 𝑋) ∈ ℝ)
76		elioc2 13353	. . . . . . . . . . . . . 14 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑇 + 𝑋) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
77	11, 75, 76	syl2anc 590	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
78	74, 77	mpbid 233	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋)))
79	78	simp3d 1150	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ≤ (𝑇 + 𝑋))
80	21, 10, 16	lesubaddd 11738	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌 − 𝑋) ≤ 𝑇 ↔ 𝑌 ≤ (𝑇 + 𝑋)))
81	79, 80	mpbird 258	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ≤ 𝑇)
82	21, 10	resubcld 11569	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℝ)
83	16, 82	subge0d 11731	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (𝑇 − (𝑌 − 𝑋)) ↔ (𝑌 − 𝑋) ≤ 𝑇))
84	81, 83	mpbird 258	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝑇 − (𝑌 − 𝑋)))
85	46, 35, 34	subsub2d 11525	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 − (𝑌 − 𝑋)) = (𝑇 + (𝑋 − 𝑌)))
86	84, 85	breqtrd 5098	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ (𝑇 + (𝑋 − 𝑌)))
87	70, 71, 86	divge0d 13017	. . . . . . 7 ⊢ (𝜑 → 0 ≤ ((𝑇 + (𝑋 − 𝑌)) / 𝑇))
88	46, 62, 46, 27	divdird 11960	. . . . . . . 8 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
89	46, 27	dividd 11920	. . . . . . . . . 10 ⊢ (𝜑 → (𝑇 / 𝑇) = 1)
90	89	eqcomd 2745	. . . . . . . . 9 ⊢ (𝜑 → 1 = (𝑇 / 𝑇))
91	90	oveq1d 7371	. . . . . . . 8 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
92	88, 91	eqtr4d 2777	. . . . . . 7 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = (1 + ((𝑋 − 𝑌) / 𝑇)))
93	87, 92	breqtrd 5098	. . . . . 6 ⊢ (𝜑 → 0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)))
94	20	simp2d 1149	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 < 𝑌)
95	10, 21	sublt0d 11767	. . . . . . . . 9 ⊢ (𝜑 → ((𝑋 − 𝑌) < 0 ↔ 𝑋 < 𝑌))
96	94, 95	mpbird 258	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − 𝑌) < 0)
97	69, 71, 96	divlt0gt0d 45734	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) < 0)
98	69, 16, 27	redivcld 11974	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℝ)
99		1red 11136	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
100		ltaddneg 11353	. . . . . . . 8 ⊢ ((((𝑋 − 𝑌) / 𝑇) ∈ ℝ ∧ 1 ∈ ℝ) → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
101	98, 99, 100	syl2anc 590	. . . . . . 7 ⊢ (𝜑 → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
102	97, 101	mpbid 233	. . . . . 6 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)
103	53	flcld 13748	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℤ)
104	103	zcnd 12625	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℂ)
105	104, 46	mulcld 11156	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℂ)
106	34, 105	pncan2d 11498	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
107	106	eqcomd 2745	. . . . . . . . . . 11 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋))
108	107	oveq1d 7371	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇))
109	104, 46, 27	divcan4d 11928	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
110		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
111		oveq2 7364	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑋 → (𝐵 − 𝑥) = (𝐵 − 𝑋))
112	111	oveq1d 7371	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑋 → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
113	112	fveq2d 6831	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑋 → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
114	113	oveq1d 7371	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
115	110, 114	oveq12d 7374	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
116	115	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
117		reflcl 13746	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 − 𝑋) / 𝑇) ∈ ℝ → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
118	53, 117	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
119	118, 16	remulcld 11166	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℝ)
120	10, 119	readdcld 11165	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) ∈ ℝ)
121	2, 116, 10, 120	fvmptd 6943	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸‘𝑋) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
122	121	eqcomd 2745	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = (𝐸‘𝑋))
123	122	oveq1d 7371	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((𝐸‘𝑋) − 𝑋))
124	123	oveq1d 7371	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = (((𝐸‘𝑋) − 𝑋) / 𝑇))
125		fourierdlem26.7	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸‘𝑋) = 𝐵)
126	125	oveq1d 7371	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑋) = (𝐵 − 𝑋))
127	126	oveq1d 7371	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
128	124, 127	eqtrd 2774	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
129	108, 109, 128	3eqtr3d 2782	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) = ((𝐵 − 𝑋) / 𝑇))
130	129, 103	eqeltrrd 2840	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℤ)
131		1zzd 12549	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
132	130, 131	zsubcld 12629	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ)
133	99, 98	readdcld 11165	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ)
134		flbi2 13767	. . . . . . 7 ⊢ (((((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ) → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
135	132, 133, 134	syl2anc 590	. . . . . 6 ⊢ (𝜑 → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
136	93, 102, 135	mpbir2and 719	. . . . 5 ⊢ (𝜑 → (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1))
137	129	eqcomd 2745	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
138	137	oveq1d 7371	. . . . 5 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
139	68, 136, 138	3eqtrd 2778	. . . 4 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
140	139	oveq1d 7371	. . 3 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇))
141	140	oveq2d 7372	. 2 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) = (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
142	37	oveq1d 7371	. . 3 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
143	104, 57, 46	subdird 11598	. . . . 5 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇)))
144	143	oveq2d 7372	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
145	34, 40	addcld 11155	. . . . . 6 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) ∈ ℂ)
146	57, 46	mulcld 11156	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) ∈ ℂ)
147	145, 105, 146	addsubassd 11516	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
148	147	eqcomd 2745	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))) = (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)))
149	34, 40, 105	add32d 11365	. . . . . 6 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)))
150	149	oveq1d 7371	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)))
151	122	oveq1d 7371	. . . . . 6 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) = ((𝐸‘𝑋) + (𝑌 − 𝑋)))
152	46	mullidd 11154	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) = 𝑇)
153	151, 152	oveq12d 7374	. . . . 5 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)) = (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇))
154	125, 13	eqeltrd 2839	. . . . . . . 8 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℝ)
155	154	recnd 11164	. . . . . . 7 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℂ)
156	155, 40, 46	addsubd 11517	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)))
157	125	oveq1d 7371	. . . . . . . 8 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = (𝐵 − 𝑇))
158	12	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 = (𝐵 − 𝐴))
159	158	oveq2d 7372	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑇) = (𝐵 − (𝐵 − 𝐴)))
160	14	recnd 11164	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
161	39, 160	nncand 11501	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − (𝐵 − 𝐴)) = 𝐴)
162	157, 159, 161	3eqtrd 2778	. . . . . . 7 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = 𝐴)
163	162	oveq1d 7371	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)) = (𝐴 + (𝑌 − 𝑋)))
164	156, 163	eqtrd 2774	. . . . 5 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (𝐴 + (𝑌 − 𝑋)))
165	150, 153, 164	3eqtrd 2778	. . . 4 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
166	144, 148, 165	3eqtrd 2778	. . 3 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
167	142, 166	eqtrd 2774	. 2 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
168	33, 141, 167	3eqtrd 2778	1 ⊢ (𝜑 → (𝐸‘𝑌) = (𝐴 + (𝑌 − 𝑋)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   class class class wbr 5072   ↦ cmpt 5153  ‘cfv 6485  (class class class)co 7356  ℝcr 11028  0cc0 11029  1c1 11030   + caddc 11032   · cmul 11034  ℝ^*cxr 11169   < clt 11170   ≤ cle 11171   − cmin 11368  -cneg 11369   / cdiv 11798  ℤcz 12515  (,]cioc 13290  ⌊cfl 13740

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-er 8633  df-en 8884  df-dom 8885  df-sdom 8886  df-sup 9345  df-inf 9346  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-n0 12429  df-z 12516  df-uz 12780  df-rp 12934  df-ioc 13294  df-fl 13742

This theorem is referenced by:  fourierdlem65  46614  fourierdlem79  46628