Theorem fourierdlem26 46962

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 490	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
4	3	oveq2d 7430	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝐵 − 𝑥) = (𝐵 − 𝑌))
5	4	oveq1d 7429	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑌) / 𝑇))
6	5	fveq2d 6883	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑌) / 𝑇)))
7	6	oveq1d 7429	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇))
8	3, 7	oveq12d 7432	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
9		fourierdlem26.8	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑋 + 𝑇)))
10		fourierdlem26.6	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ℝ)
11	10	rexrd 11284	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ ℝ*)
12		fourierdlem26.4	. . . . . . . 8 ⊢ 𝑇 = (𝐵 − 𝐴)
13		fourierdlem26.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℝ)
14		fourierdlem26.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	13, 14	resubcld 11667	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝐴) ∈ ℝ)
16	12, 15	eqeltrid 2864	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ℝ)
17	10, 16	readdcld 11263	. . . . . 6 ⊢ (𝜑 → (𝑋 + 𝑇) ∈ ℝ)
18		elioc2 13463	. . . . . 6 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑋 + 𝑇) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
19	11, 17, 18	syl2anc 596	. . . . 5 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
20	9, 19	mpbid 235	. . . 4 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇)))
21	20	simp1d 1160	. . 3 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22	13, 21	resubcld 11667	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) ∈ ℝ)
23		fourierdlem26.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 𝐵)
24	14, 13	posdifd 11826	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵 − 𝐴)))
25	23, 24	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → 0 < (𝐵 − 𝐴))
26	25, 12	breqtrrdi 5147	. . . . . . . . 9 ⊢ (𝜑 → 0 < 𝑇)
27	26	gt0ne0d 11803	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ≠ 0)
28	22, 16, 27	redivcld 12068	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) ∈ ℝ)
29	28	flcld 13860	. . . . . 6 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℤ)
30	29	zred 12726	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℝ)
31	30, 16	remulcld 11264	. . . 4 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) ∈ ℝ)
32	21, 31	readdcld 11263	. . 3 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) ∈ ℝ)
33	2, 8, 21, 32	fvmptd 6995	. 2 ⊢ (𝜑 → (𝐸‘𝑌) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
34	10	recnd 11262	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ ℂ)
35	21	recnd 11262	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑌 ∈ ℂ)
36	34, 35	pncan3d 11597	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) = 𝑌)
37	36	eqcomd 2766	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 = (𝑋 + (𝑌 − 𝑋)))
38	37	oveq2d 7430	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑌) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
39	13	recnd 11262	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℂ)
40	35, 34	subcld 11594	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℂ)
41	39, 34, 40	subsub4d 11625	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) − (𝑌 − 𝑋)) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
42	38, 41	eqtr4d 2798	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) = ((𝐵 − 𝑋) − (𝑌 − 𝑋)))
43	42	oveq1d 7429	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇))
44	13, 10	resubcld 11667	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℝ)
45	44	recnd 11262	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℂ)
46	16	recnd 11262	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℂ)
47	45, 40, 46, 27	divsubdird 12055	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
48	40, 46, 27	divnegd 12029	. . . . . . . . . 10 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = (-(𝑌 − 𝑋) / 𝑇))
49	35, 34	negsubdi2d 11610	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑌 − 𝑋) = (𝑋 − 𝑌))
50	49	oveq1d 7429	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
51	48, 50	eqtrd 2795	. . . . . . . . 9 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
52	51	oveq2d 7430	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
53	44, 16, 27	redivcld 12068	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℝ)
54	53	recnd 11262	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℂ)
55	40, 46, 27	divcld 12016	. . . . . . . . 9 ⊢ (𝜑 → ((𝑌 − 𝑋) / 𝑇) ∈ ℂ)
56	54, 55	negsubd 11600	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
57		1cnd 11227	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
58	54, 57	npcand 11598	. . . . . . . . . . 11 ⊢ (𝜑 → ((((𝐵 − 𝑋) / 𝑇) − 1) + 1) = ((𝐵 − 𝑋) / 𝑇))
59	58	eqcomd 2766	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + 1))
60	59	oveq1d 7429	. . . . . . . . 9 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)))
61	54, 57	subcld 11594	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℂ)
62	34, 35	subcld 11594	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℂ)
63	62, 46, 27	divcld 12016	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℂ)
64	61, 57, 63	addassd 11256	. . . . . . . . 9 ⊢ (𝜑 → (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
65	60, 64	eqtrd 2795	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
66	52, 56, 65	3eqtr3d 2803	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
67	43, 47, 66	3eqtrd 2799	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
68	67	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))))
69	10, 21	resubcld 11667	. . . . . . . . 9 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℝ)
70	16, 69	readdcld 11263	. . . . . . . 8 ⊢ (𝜑 → (𝑇 + (𝑋 − 𝑌)) ∈ ℝ)
71	16, 26	elrpd 13084	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℝ+)
72	34, 46	addcomd 11437	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + 𝑇) = (𝑇 + 𝑋))
73	72	oveq2d 7430	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋(,](𝑋 + 𝑇)) = (𝑋(,](𝑇 + 𝑋)))
74	9, 73	eleqtrd 2862	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑇 + 𝑋)))
75	16, 10	readdcld 11263	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 + 𝑋) ∈ ℝ)
76		elioc2 13463	. . . . . . . . . . . . . 14 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑇 + 𝑋) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
77	11, 75, 76	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
78	74, 77	mpbid 235	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋)))
79	78	simp3d 1162	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ≤ (𝑇 + 𝑋))
80	21, 10, 16	lesubaddd 11836	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌 − 𝑋) ≤ 𝑇 ↔ 𝑌 ≤ (𝑇 + 𝑋)))
81	79, 80	mpbird 260	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ≤ 𝑇)
82	21, 10	resubcld 11667	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℝ)
83	16, 82	subge0d 11829	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (𝑇 − (𝑌 − 𝑋)) ↔ (𝑌 − 𝑋) ≤ 𝑇))
84	81, 83	mpbird 260	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝑇 − (𝑌 − 𝑋)))
85	46, 35, 34	subsub2d 11623	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 − (𝑌 − 𝑋)) = (𝑇 + (𝑋 − 𝑌)))
86	84, 85	breqtrd 5131	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ (𝑇 + (𝑋 − 𝑌)))
87	70, 71, 86	divge0d 13127	. . . . . . 7 ⊢ (𝜑 → 0 ≤ ((𝑇 + (𝑋 − 𝑌)) / 𝑇))
88	46, 62, 46, 27	divdird 12054	. . . . . . . 8 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
89	46, 27	dividd 12014	. . . . . . . . . 10 ⊢ (𝜑 → (𝑇 / 𝑇) = 1)
90	89	eqcomd 2766	. . . . . . . . 9 ⊢ (𝜑 → 1 = (𝑇 / 𝑇))
91	90	oveq1d 7429	. . . . . . . 8 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
92	88, 91	eqtr4d 2798	. . . . . . 7 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = (1 + ((𝑋 − 𝑌) / 𝑇)))
93	87, 92	breqtrd 5131	. . . . . 6 ⊢ (𝜑 → 0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)))
94	20	simp2d 1161	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 < 𝑌)
95	10, 21	sublt0d 11865	. . . . . . . . 9 ⊢ (𝜑 → ((𝑋 − 𝑌) < 0 ↔ 𝑋 < 𝑌))
96	94, 95	mpbird 260	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − 𝑌) < 0)
97	69, 71, 96	divlt0gt0d 46120	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) < 0)
98	69, 16, 27	redivcld 12068	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℝ)
99		1red 11234	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
100		ltaddneg 11451	. . . . . . . 8 ⊢ ((((𝑋 − 𝑌) / 𝑇) ∈ ℝ ∧ 1 ∈ ℝ) → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
101	98, 99, 100	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
102	97, 101	mpbid 235	. . . . . 6 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)
103	53	flcld 13860	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℤ)
104	103	zcnd 12727	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℂ)
105	104, 46	mulcld 11254	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℂ)
106	34, 105	pncan2d 11596	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
107	106	eqcomd 2766	. . . . . . . . . . 11 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋))
108	107	oveq1d 7429	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇))
109	104, 46, 27	divcan4d 12022	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
110		id 23	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
111		oveq2 7422	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑋 → (𝐵 − 𝑥) = (𝐵 − 𝑋))
112	111	oveq1d 7429	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑋 → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
113	112	fveq2d 6883	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑋 → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
114	113	oveq1d 7429	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
115	110, 114	oveq12d 7432	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
116	115	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
117		reflcl 13858	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 − 𝑋) / 𝑇) ∈ ℝ → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
118	53, 117	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
119	118, 16	remulcld 11264	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℝ)
120	10, 119	readdcld 11263	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) ∈ ℝ)
121	2, 116, 10, 120	fvmptd 6995	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸‘𝑋) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
122	121	eqcomd 2766	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = (𝐸‘𝑋))
123	122	oveq1d 7429	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((𝐸‘𝑋) − 𝑋))
124	123	oveq1d 7429	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = (((𝐸‘𝑋) − 𝑋) / 𝑇))
125		fourierdlem26.7	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸‘𝑋) = 𝐵)
126	125	oveq1d 7429	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑋) = (𝐵 − 𝑋))
127	126	oveq1d 7429	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
128	124, 127	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
129	108, 109, 128	3eqtr3d 2803	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) = ((𝐵 − 𝑋) / 𝑇))
130	129, 103	eqeltrrd 2861	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℤ)
131		1zzd 12650	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
132	130, 131	zsubcld 12731	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ)
133	99, 98	readdcld 11263	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ)
134		flbi2 13879	. . . . . . 7 ⊢ (((((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ) → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
135	132, 133, 134	syl2anc 596	. . . . . 6 ⊢ (𝜑 → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
136	93, 102, 135	mpbir2and 726	. . . . 5 ⊢ (𝜑 → (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1))
137	129	eqcomd 2766	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
138	137	oveq1d 7429	. . . . 5 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
139	68, 136, 138	3eqtrd 2799	. . . 4 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
140	139	oveq1d 7429	. . 3 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇))
141	140	oveq2d 7430	. 2 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) = (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
142	37	oveq1d 7429	. . 3 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
143	104, 57, 46	subdird 11696	. . . . 5 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇)))
144	143	oveq2d 7430	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
145	34, 40	addcld 11253	. . . . . 6 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) ∈ ℂ)
146	57, 46	mulcld 11254	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) ∈ ℂ)
147	145, 105, 146	addsubassd 11614	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
148	147	eqcomd 2766	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))) = (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)))
149	34, 40, 105	add32d 11463	. . . . . 6 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)))
150	149	oveq1d 7429	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)))
151	122	oveq1d 7429	. . . . . 6 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) = ((𝐸‘𝑋) + (𝑌 − 𝑋)))
152	46	mullidd 11252	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) = 𝑇)
153	151, 152	oveq12d 7432	. . . . 5 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)) = (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇))
154	125, 13	eqeltrd 2860	. . . . . . . 8 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℝ)
155	154	recnd 11262	. . . . . . 7 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℂ)
156	155, 40, 46	addsubd 11615	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)))
157	125	oveq1d 7429	. . . . . . . 8 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = (𝐵 − 𝑇))
158	12	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 = (𝐵 − 𝐴))
159	158	oveq2d 7430	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑇) = (𝐵 − (𝐵 − 𝐴)))
160	14	recnd 11262	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
161	39, 160	nncand 11599	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − (𝐵 − 𝐴)) = 𝐴)
162	157, 159, 161	3eqtrd 2799	. . . . . . 7 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = 𝐴)
163	162	oveq1d 7429	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)) = (𝐴 + (𝑌 − 𝑋)))
164	156, 163	eqtrd 2795	. . . . 5 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (𝐴 + (𝑌 − 𝑋)))
165	150, 153, 164	3eqtrd 2799	. . . 4 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
166	144, 148, 165	3eqtrd 2799	. . 3 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
167	142, 166	eqtrd 2795	. 2 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
168	33, 141, 167	3eqtrd 2799	1 ⊢ (𝜑 → (𝐸‘𝑌) = (𝐴 + (𝑌 − 𝑋)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   class class class wbr 5103   ↦ cmpt 5186  ‘cfv 6533  (class class class)co 7414  ℝcr 11124  0cc0 11125  1c1 11126   + caddc 11128   · cmul 11130  ℝ^*cxr 11267   < clt 11268   ≤ cle 11269   − cmin 11466  -cneg 11467   / cdiv 11896  ℤcz 12616  (,]cioc 13400  ⌊cfl 13852

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202  ax-pre-sup 11203

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-er 8697  df-en 8954  df-dom 8955  df-sdom 8956  df-sup 9413  df-inf 9414  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-div 11897  df-nn 12259  df-n0 12530  df-z 12617  df-uz 12889  df-rp 13044  df-ioc 13404  df-fl 13854

This theorem is used by:  fourierdlem65  47000  fourierdlem79  47014