Theorem fourierdlem26 46118

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 484	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → 𝑥 = 𝑌)
4	3	oveq2d 7365	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝐵 − 𝑥) = (𝐵 − 𝑌))
5	4	oveq1d 7364	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑌) / 𝑇))
6	5	fveq2d 6826	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑌) / 𝑇)))
7	6	oveq1d 7364	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇))
8	3, 7	oveq12d 7367	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑌) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
9		fourierdlem26.8	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑋 + 𝑇)))
10		fourierdlem26.6	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ ℝ)
11	10	rexrd 11165	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ ℝ*)
12		fourierdlem26.4	. . . . . . . 8 ⊢ 𝑇 = (𝐵 − 𝐴)
13		fourierdlem26.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℝ)
14		fourierdlem26.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	13, 14	resubcld 11548	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝐴) ∈ ℝ)
16	12, 15	eqeltrid 2832	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ℝ)
17	10, 16	readdcld 11144	. . . . . 6 ⊢ (𝜑 → (𝑋 + 𝑇) ∈ ℝ)
18		elioc2 13312	. . . . . 6 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑋 + 𝑇) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
19	11, 17, 18	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑋 + 𝑇)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇))))
20	9, 19	mpbid 232	. . . 4 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑋 + 𝑇)))
21	20	simp1d 1142	. . 3 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22	13, 21	resubcld 11548	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) ∈ ℝ)
23		fourierdlem26.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 𝐵)
24	14, 13	posdifd 11707	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵 − 𝐴)))
25	23, 24	mpbid 232	. . . . . . . . . 10 ⊢ (𝜑 → 0 < (𝐵 − 𝐴))
26	25, 12	breqtrrdi 5134	. . . . . . . . 9 ⊢ (𝜑 → 0 < 𝑇)
27	26	gt0ne0d 11684	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ≠ 0)
28	22, 16, 27	redivcld 11952	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) ∈ ℝ)
29	28	flcld 13702	. . . . . 6 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℤ)
30	29	zred 12580	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) ∈ ℝ)
31	30, 16	remulcld 11145	. . . 4 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) ∈ ℝ)
32	21, 31	readdcld 11144	. . 3 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) ∈ ℝ)
33	2, 8, 21, 32	fvmptd 6937	. 2 ⊢ (𝜑 → (𝐸‘𝑌) = (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)))
34	10	recnd 11143	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ ℂ)
35	21	recnd 11143	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑌 ∈ ℂ)
36	34, 35	pncan3d 11478	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) = 𝑌)
37	36	eqcomd 2735	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 = (𝑋 + (𝑌 − 𝑋)))
38	37	oveq2d 7365	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑌) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
39	13	recnd 11143	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℂ)
40	35, 34	subcld 11475	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℂ)
41	39, 34, 40	subsub4d 11506	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) − (𝑌 − 𝑋)) = (𝐵 − (𝑋 + (𝑌 − 𝑋))))
42	38, 41	eqtr4d 2767	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑌) = ((𝐵 − 𝑋) − (𝑌 − 𝑋)))
43	42	oveq1d 7364	. . . . . . 7 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇))
44	13, 10	resubcld 11548	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℝ)
45	44	recnd 11143	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑋) ∈ ℂ)
46	16	recnd 11143	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℂ)
47	45, 40, 46, 27	divsubdird 11939	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) − (𝑌 − 𝑋)) / 𝑇) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
48	40, 46, 27	divnegd 11913	. . . . . . . . . 10 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = (-(𝑌 − 𝑋) / 𝑇))
49	35, 34	negsubdi2d 11491	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑌 − 𝑋) = (𝑋 − 𝑌))
50	49	oveq1d 7364	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
51	48, 50	eqtrd 2764	. . . . . . . . 9 ⊢ (𝜑 → -((𝑌 − 𝑋) / 𝑇) = ((𝑋 − 𝑌) / 𝑇))
52	51	oveq2d 7365	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
53	44, 16, 27	redivcld 11952	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℝ)
54	53	recnd 11143	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℂ)
55	40, 46, 27	divcld 11900	. . . . . . . . 9 ⊢ (𝜑 → ((𝑌 − 𝑋) / 𝑇) ∈ ℂ)
56	54, 55	negsubd 11481	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + -((𝑌 − 𝑋) / 𝑇)) = (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)))
57		1cnd 11110	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
58	54, 57	npcand 11479	. . . . . . . . . . 11 ⊢ (𝜑 → ((((𝐵 − 𝑋) / 𝑇) − 1) + 1) = ((𝐵 − 𝑋) / 𝑇))
59	58	eqcomd 2735	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + 1))
60	59	oveq1d 7364	. . . . . . . . 9 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)))
61	54, 57	subcld 11475	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℂ)
62	34, 35	subcld 11475	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℂ)
63	62, 46, 27	divcld 11900	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℂ)
64	61, 57, 63	addassd 11137	. . . . . . . . 9 ⊢ (𝜑 → (((((𝐵 − 𝑋) / 𝑇) − 1) + 1) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
65	60, 64	eqtrd 2764	. . . . . . . 8 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) + ((𝑋 − 𝑌) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
66	52, 56, 65	3eqtr3d 2772	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − ((𝑌 − 𝑋) / 𝑇)) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
67	43, 47, 66	3eqtrd 2768	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑌) / 𝑇) = ((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇))))
68	67	fveq2d 6826	. . . . 5 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))))
69	10, 21	resubcld 11548	. . . . . . . . 9 ⊢ (𝜑 → (𝑋 − 𝑌) ∈ ℝ)
70	16, 69	readdcld 11144	. . . . . . . 8 ⊢ (𝜑 → (𝑇 + (𝑋 − 𝑌)) ∈ ℝ)
71	16, 26	elrpd 12934	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ ℝ+)
72	34, 46	addcomd 11318	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + 𝑇) = (𝑇 + 𝑋))
73	72	oveq2d 7365	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋(,](𝑋 + 𝑇)) = (𝑋(,](𝑇 + 𝑋)))
74	9, 73	eleqtrd 2830	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,](𝑇 + 𝑋)))
75	16, 10	readdcld 11144	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 + 𝑋) ∈ ℝ)
76		elioc2 13312	. . . . . . . . . . . . . 14 ⊢ ((𝑋 ∈ ℝ* ∧ (𝑇 + 𝑋) ∈ ℝ) → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
77	11, 75, 76	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑌 ∈ (𝑋(,](𝑇 + 𝑋)) ↔ (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋))))
78	74, 77	mpbid 232	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌 ∈ ℝ ∧ 𝑋 < 𝑌 ∧ 𝑌 ≤ (𝑇 + 𝑋)))
79	78	simp3d 1144	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ≤ (𝑇 + 𝑋))
80	21, 10, 16	lesubaddd 11717	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌 − 𝑋) ≤ 𝑇 ↔ 𝑌 ≤ (𝑇 + 𝑋)))
81	79, 80	mpbird 257	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌 − 𝑋) ≤ 𝑇)
82	21, 10	resubcld 11548	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℝ)
83	16, 82	subge0d 11710	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (𝑇 − (𝑌 − 𝑋)) ↔ (𝑌 − 𝑋) ≤ 𝑇))
84	81, 83	mpbird 257	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝑇 − (𝑌 − 𝑋)))
85	46, 35, 34	subsub2d 11504	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 − (𝑌 − 𝑋)) = (𝑇 + (𝑋 − 𝑌)))
86	84, 85	breqtrd 5118	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ (𝑇 + (𝑋 − 𝑌)))
87	70, 71, 86	divge0d 12977	. . . . . . 7 ⊢ (𝜑 → 0 ≤ ((𝑇 + (𝑋 − 𝑌)) / 𝑇))
88	46, 62, 46, 27	divdird 11938	. . . . . . . 8 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
89	46, 27	dividd 11898	. . . . . . . . . 10 ⊢ (𝜑 → (𝑇 / 𝑇) = 1)
90	89	eqcomd 2735	. . . . . . . . 9 ⊢ (𝜑 → 1 = (𝑇 / 𝑇))
91	90	oveq1d 7364	. . . . . . . 8 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) = ((𝑇 / 𝑇) + ((𝑋 − 𝑌) / 𝑇)))
92	88, 91	eqtr4d 2767	. . . . . . 7 ⊢ (𝜑 → ((𝑇 + (𝑋 − 𝑌)) / 𝑇) = (1 + ((𝑋 − 𝑌) / 𝑇)))
93	87, 92	breqtrd 5118	. . . . . 6 ⊢ (𝜑 → 0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)))
94	20	simp2d 1143	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 < 𝑌)
95	10, 21	sublt0d 11746	. . . . . . . . 9 ⊢ (𝜑 → ((𝑋 − 𝑌) < 0 ↔ 𝑋 < 𝑌))
96	94, 95	mpbird 257	. . . . . . . 8 ⊢ (𝜑 → (𝑋 − 𝑌) < 0)
97	69, 71, 96	divlt0gt0d 45272	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) < 0)
98	69, 16, 27	redivcld 11952	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 − 𝑌) / 𝑇) ∈ ℝ)
99		1red 11116	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
100		ltaddneg 11332	. . . . . . . 8 ⊢ ((((𝑋 − 𝑌) / 𝑇) ∈ ℝ ∧ 1 ∈ ℝ) → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
101	98, 99, 100	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (((𝑋 − 𝑌) / 𝑇) < 0 ↔ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1))
102	97, 101	mpbid 232	. . . . . 6 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)
103	53	flcld 13702	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℤ)
104	103	zcnd 12581	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℂ)
105	104, 46	mulcld 11135	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℂ)
106	34, 105	pncan2d 11477	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
107	106	eqcomd 2735	. . . . . . . . . . 11 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋))
108	107	oveq1d 7364	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇))
109	104, 46, 27	divcan4d 11906	. . . . . . . . . 10 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
110		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
111		oveq2 7357	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑋 → (𝐵 − 𝑥) = (𝐵 − 𝑋))
112	111	oveq1d 7364	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑋 → ((𝐵 − 𝑥) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
113	112	fveq2d 6826	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑋 → (⌊‘((𝐵 − 𝑥) / 𝑇)) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
114	113	oveq1d 7364	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑋 → ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇))
115	110, 114	oveq12d 7367	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑋 → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
116	115	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (𝑥 + ((⌊‘((𝐵 − 𝑥) / 𝑇)) · 𝑇)) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
117		reflcl 13700	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 − 𝑋) / 𝑇) ∈ ℝ → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
118	53, 117	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) ∈ ℝ)
119	118, 16	remulcld 11145	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) ∈ ℝ)
120	10, 119	readdcld 11144	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) ∈ ℝ)
121	2, 116, 10, 120	fvmptd 6937	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸‘𝑋) = (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)))
122	121	eqcomd 2735	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = (𝐸‘𝑋))
123	122	oveq1d 7364	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) = ((𝐸‘𝑋) − 𝑋))
124	123	oveq1d 7364	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = (((𝐸‘𝑋) − 𝑋) / 𝑇))
125		fourierdlem26.7	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸‘𝑋) = 𝐵)
126	125	oveq1d 7364	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑋) = (𝐵 − 𝑋))
127	126	oveq1d 7364	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
128	124, 127	eqtrd 2764	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − 𝑋) / 𝑇) = ((𝐵 − 𝑋) / 𝑇))
129	108, 109, 128	3eqtr3d 2772	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑋) / 𝑇)) = ((𝐵 − 𝑋) / 𝑇))
130	129, 103	eqeltrrd 2829	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) ∈ ℤ)
131		1zzd 12506	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℤ)
132	130, 131	zsubcld 12585	. . . . . . 7 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ)
133	99, 98	readdcld 11144	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ)
134		flbi2 13721	. . . . . . 7 ⊢ (((((𝐵 − 𝑋) / 𝑇) − 1) ∈ ℤ ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) ∈ ℝ) → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
135	132, 133, 134	syl2anc 584	. . . . . 6 ⊢ (𝜑 → ((⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1) ↔ (0 ≤ (1 + ((𝑋 − 𝑌) / 𝑇)) ∧ (1 + ((𝑋 − 𝑌) / 𝑇)) < 1)))
136	93, 102, 135	mpbir2and 713	. . . . 5 ⊢ (𝜑 → (⌊‘((((𝐵 − 𝑋) / 𝑇) − 1) + (1 + ((𝑋 − 𝑌) / 𝑇)))) = (((𝐵 − 𝑋) / 𝑇) − 1))
137	129	eqcomd 2735	. . . . . 6 ⊢ (𝜑 → ((𝐵 − 𝑋) / 𝑇) = (⌊‘((𝐵 − 𝑋) / 𝑇)))
138	137	oveq1d 7364	. . . . 5 ⊢ (𝜑 → (((𝐵 − 𝑋) / 𝑇) − 1) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
139	68, 136, 138	3eqtrd 2768	. . . 4 ⊢ (𝜑 → (⌊‘((𝐵 − 𝑌) / 𝑇)) = ((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1))
140	139	oveq1d 7364	. . 3 ⊢ (𝜑 → ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇))
141	140	oveq2d 7365	. 2 ⊢ (𝜑 → (𝑌 + ((⌊‘((𝐵 − 𝑌) / 𝑇)) · 𝑇)) = (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
142	37	oveq1d 7364	. . 3 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)))
143	104, 57, 46	subdird 11577	. . . . 5 ⊢ (𝜑 → (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇) = (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇)))
144	143	oveq2d 7365	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
145	34, 40	addcld 11134	. . . . . 6 ⊢ (𝜑 → (𝑋 + (𝑌 − 𝑋)) ∈ ℂ)
146	57, 46	mulcld 11135	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) ∈ ℂ)
147	145, 105, 146	addsubassd 11495	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))))
148	147	eqcomd 2735	. . . 4 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇) − (1 · 𝑇))) = (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)))
149	34, 40, 105	add32d 11344	. . . . . 6 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) = ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)))
150	149	oveq1d 7364	. . . . 5 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)))
151	122	oveq1d 7364	. . . . . 6 ⊢ (𝜑 → ((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) = ((𝐸‘𝑋) + (𝑌 − 𝑋)))
152	46	mullidd 11133	. . . . . 6 ⊢ (𝜑 → (1 · 𝑇) = 𝑇)
153	151, 152	oveq12d 7367	. . . . 5 ⊢ (𝜑 → (((𝑋 + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) + (𝑌 − 𝑋)) − (1 · 𝑇)) = (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇))
154	125, 13	eqeltrd 2828	. . . . . . . 8 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℝ)
155	154	recnd 11143	. . . . . . 7 ⊢ (𝜑 → (𝐸‘𝑋) ∈ ℂ)
156	155, 40, 46	addsubd 11496	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)))
157	125	oveq1d 7364	. . . . . . . 8 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = (𝐵 − 𝑇))
158	12	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑇 = (𝐵 − 𝐴))
159	158	oveq2d 7365	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − 𝑇) = (𝐵 − (𝐵 − 𝐴)))
160	14	recnd 11143	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
161	39, 160	nncand 11480	. . . . . . . 8 ⊢ (𝜑 → (𝐵 − (𝐵 − 𝐴)) = 𝐴)
162	157, 159, 161	3eqtrd 2768	. . . . . . 7 ⊢ (𝜑 → ((𝐸‘𝑋) − 𝑇) = 𝐴)
163	162	oveq1d 7364	. . . . . 6 ⊢ (𝜑 → (((𝐸‘𝑋) − 𝑇) + (𝑌 − 𝑋)) = (𝐴 + (𝑌 − 𝑋)))
164	156, 163	eqtrd 2764	. . . . 5 ⊢ (𝜑 → (((𝐸‘𝑋) + (𝑌 − 𝑋)) − 𝑇) = (𝐴 + (𝑌 − 𝑋)))
165	150, 153, 164	3eqtrd 2768	. . . 4 ⊢ (𝜑 → (((𝑋 + (𝑌 − 𝑋)) + ((⌊‘((𝐵 − 𝑋) / 𝑇)) · 𝑇)) − (1 · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
166	144, 148, 165	3eqtrd 2768	. . 3 ⊢ (𝜑 → ((𝑋 + (𝑌 − 𝑋)) + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
167	142, 166	eqtrd 2764	. 2 ⊢ (𝜑 → (𝑌 + (((⌊‘((𝐵 − 𝑋) / 𝑇)) − 1) · 𝑇)) = (𝐴 + (𝑌 − 𝑋)))
168	33, 141, 167	3eqtrd 2768	1 ⊢ (𝜑 → (𝐸‘𝑌) = (𝐴 + (𝑌 − 𝑋)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109   class class class wbr 5092   ↦ cmpt 5173  ‘cfv 6482  (class class class)co 7349  ℝcr 11008  0cc0 11009  1c1 11010   + caddc 11012   · cmul 11014  ℝ^*cxr 11148   < clt 11149   ≤ cle 11150   − cmin 11347  -cneg 11348   / cdiv 11777  ℤcz 12471  (,]cioc 13249  ⌊cfl 13694

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-pre-sup 11087

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-om 7800  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-er 8625  df-en 8873  df-dom 8874  df-sdom 8875  df-sup 9332  df-inf 9333  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-n0 12385  df-z 12472  df-uz 12736  df-rp 12894  df-ioc 13253  df-fl 13696

This theorem is referenced by:  fourierdlem65  46156  fourierdlem79  46170