pcohtpylem - Metamath Proof Explorer

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

Theorem pcohtpylem 25320

Description: Lemma for pcohtpy 25321. (Contributed by Jeff Madsen, 15-Jun-2010.) (Revised by Mario Carneiro, 24-Feb-2015.)

**Hypotheses**
Ref	Expression
pcohtpy.4	⊢ (𝜑 → (𝐹‘1) = (𝐺‘0))
pcohtpy.5	⊢ (𝜑 → 𝐹( ≃_ph‘𝐽)𝐻)
pcohtpy.6	⊢ (𝜑 → 𝐺( ≃_ph‘𝐽)𝐾)
pcohtpylem.7	⊢ 𝑃 = (𝑥 ∈ (0[,]1), 𝑦 ∈ (0[,]1) ↦ if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)))
pcohtpylem.8	⊢ (𝜑 → 𝑀 ∈ (𝐹(PHtpy‘𝐽)𝐻))
pcohtpylem.9	⊢ (𝜑 → 𝑁 ∈ (𝐺(PHtpy‘𝐽)𝐾))

**Assertion**
Ref	Expression
pcohtpylem	⊢ (𝜑 → 𝑃 ∈ ((𝐹(_𝑝‘𝐽)𝐺)(PHtpy‘𝐽)(𝐻(_𝑝‘𝐽)𝐾)))

Distinct variable groups: 𝑥,𝑦,𝐹 𝑥,𝑀,𝑦 𝑥,𝑁,𝑦 𝜑,𝑥,𝑦 𝑥,𝐺,𝑦 𝑥,𝐻,𝑦 𝑥,𝐽,𝑦 𝑥,𝐾,𝑦 Allowed substitution hints: 𝑃(𝑥, 𝑦)

Proof of Theorem pcohtpylem Dummy variables 𝑠 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pcohtpy.5	. . . . 5 ⊢ (𝜑 → 𝐹( ≃_ph‘𝐽)𝐻)
2		isphtpc 25295	. . . . 5 ⊢ (𝐹( ≃_ph‘𝐽)𝐻 ↔ (𝐹 ∈ (II Cn 𝐽) ∧ 𝐻 ∈ (II Cn 𝐽) ∧ (𝐹(PHtpy‘𝐽)𝐻) ≠ ∅))
3	1, 2	sylib 221	. . . 4 ⊢ (𝜑 → (𝐹 ∈ (II Cn 𝐽) ∧ 𝐻 ∈ (II Cn 𝐽) ∧ (𝐹(PHtpy‘𝐽)𝐻) ≠ ∅))
4	3	simp1d 1160	. . 3 ⊢ (𝜑 → 𝐹 ∈ (II Cn 𝐽))
5		pcohtpy.6	. . . . 5 ⊢ (𝜑 → 𝐺( ≃_ph‘𝐽)𝐾)
6		isphtpc 25295	. . . . 5 ⊢ (𝐺( ≃_ph‘𝐽)𝐾 ↔ (𝐺 ∈ (II Cn 𝐽) ∧ 𝐾 ∈ (II Cn 𝐽) ∧ (𝐺(PHtpy‘𝐽)𝐾) ≠ ∅))
7	5, 6	sylib 221	. . . 4 ⊢ (𝜑 → (𝐺 ∈ (II Cn 𝐽) ∧ 𝐾 ∈ (II Cn 𝐽) ∧ (𝐺(PHtpy‘𝐽)𝐾) ≠ ∅))
8	7	simp1d 1160	. . 3 ⊢ (𝜑 → 𝐺 ∈ (II Cn 𝐽))
9		pcohtpy.4	. . 3 ⊢ (𝜑 → (𝐹‘1) = (𝐺‘0))
10	4, 8, 9	pcocn 25318	. 2 ⊢ (𝜑 → (𝐹(*_𝑝‘𝐽)𝐺) ∈ (II Cn 𝐽))
11	3	simp2d 1161	. . 3 ⊢ (𝜑 → 𝐻 ∈ (II Cn 𝐽))
12	7	simp2d 1161	. . 3 ⊢ (𝜑 → 𝐾 ∈ (II Cn 𝐽))
13		pcohtpylem.8	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (𝐹(PHtpy‘𝐽)𝐻))
14	4, 11, 13	phtpy01 25286	. . . . 5 ⊢ (𝜑 → ((𝐹‘0) = (𝐻‘0) ∧ (𝐹‘1) = (𝐻‘1)))
15	14	simprd 501	. . . 4 ⊢ (𝜑 → (𝐹‘1) = (𝐻‘1))
16		pcohtpylem.9	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ (𝐺(PHtpy‘𝐽)𝐾))
17	8, 12, 16	phtpy01 25286	. . . . 5 ⊢ (𝜑 → ((𝐺‘0) = (𝐾‘0) ∧ (𝐺‘1) = (𝐾‘1)))
18	17	simpld 500	. . . 4 ⊢ (𝜑 → (𝐺‘0) = (𝐾‘0))
19	9, 15, 18	3eqtr3d 2804	. . 3 ⊢ (𝜑 → (𝐻‘1) = (𝐾‘0))
20	11, 12, 19	pcocn 25318	. 2 ⊢ (𝜑 → (𝐻(*_𝑝‘𝐽)𝐾) ∈ (II Cn 𝐽))
21		pcohtpylem.7	. . 3 ⊢ 𝑃 = (𝑥 ∈ (0[,]1), 𝑦 ∈ (0[,]1) ↦ if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)))
22		eqid 2761	. . . 4 ⊢ (topGen‘ran (,)) = (topGen‘ran (,))
23		eqid 2761	. . . 4 ⊢ ((topGen‘ran (,)) ↾_t (0[,](1 / 2))) = ((topGen‘ran (,)) ↾_t (0[,](1 / 2)))
24		eqid 2761	. . . 4 ⊢ ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) = ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1))
25		dfii2 25183	. . . 4 ⊢ II = ((topGen‘ran (,)) ↾_t (0[,]1))
26		0red 11292	. . . 4 ⊢ (𝜑 → 0 ∈ ℝ)
27		1red 11290	. . . 4 ⊢ (𝜑 → 1 ∈ ℝ)
28		halfre 12540	. . . . . 6 ⊢ (1 / 2) ∈ ℝ
29		halfge0 12543	. . . . . 6 ⊢ 0 ≤ (1 / 2)
30		1re 11289	. . . . . . 7 ⊢ 1 ∈ ℝ
31		halflt1 12544	. . . . . . 7 ⊢ (1 / 2) < 1
32	28, 30, 31	ltleii 11414	. . . . . 6 ⊢ (1 / 2) ≤ 1
33		elicc01 13578	. . . . . 6 ⊢ ((1 / 2) ∈ (0[,]1) ↔ ((1 / 2) ∈ ℝ ∧ 0 ≤ (1 / 2) ∧ (1 / 2) ≤ 1))
34	28, 29, 32, 33	mpbir3an 1360	. . . . 5 ⊢ (1 / 2) ∈ (0[,]1)
35	34	a1i 11	. . . 4 ⊢ (𝜑 → (1 / 2) ∈ (0[,]1))
36		iitopon 25180	. . . . 5 ⊢ II ∈ (TopOn‘(0[,]1))
37	36	a1i 11	. . . 4 ⊢ (𝜑 → II ∈ (TopOn‘(0[,]1)))
38	9	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (𝐹‘1) = (𝐺‘0))
39	4, 11, 13	phtpyi 25285	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (0[,]1)) → ((0𝑀𝑦) = (𝐹‘0) ∧ (1𝑀𝑦) = (𝐹‘1)))
40	39	simprd 501	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (0[,]1)) → (1𝑀𝑦) = (𝐹‘1))
41	40	adantrl 729	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (1𝑀𝑦) = (𝐹‘1))
42	8, 12, 16	phtpyi 25285	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (0[,]1)) → ((0𝑁𝑦) = (𝐺‘0) ∧ (1𝑁𝑦) = (𝐺‘1)))
43	42	simpld 500	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (0[,]1)) → (0𝑁𝑦) = (𝐺‘0))
44	43	adantrl 729	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (0𝑁𝑦) = (𝐺‘0))
45	38, 41, 44	3eqtr4d 2806	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (1𝑀𝑦) = (0𝑁𝑦))
46		simprl 783	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → 𝑥 = (1 / 2))
47	46	oveq2d 7428	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (2 · 𝑥) = (2 · (1 / 2)))
48		2thalfe1 12431	. . . . . . 7 ⊢ (2 · (1 / 2)) = 1
49	47, 48	eqtrdi 2812	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (2 · 𝑥) = 1)
50	49	oveq1d 7427	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → ((2 · 𝑥)𝑀𝑦) = (1𝑀𝑦))
51	49	oveq1d 7427	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → ((2 · 𝑥) − 1) = (1 − 1))
52		1m1e0 12396	. . . . . . 7 ⊢ (1 − 1) = 0
53	51, 52	eqtrdi 2812	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → ((2 · 𝑥) − 1) = 0)
54	53	oveq1d 7427	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → (((2 · 𝑥) − 1)𝑁𝑦) = (0𝑁𝑦))
55	45, 50, 54	3eqtr4d 2806	. . . 4 ⊢ ((𝜑 ∧ (𝑥 = (1 / 2) ∧ 𝑦 ∈ (0[,]1))) → ((2 · 𝑥)𝑀𝑦) = (((2 · 𝑥) − 1)𝑁𝑦))
56		retopon 25062	. . . . . . 7 ⊢ (topGen‘ran (,)) ∈ (TopOn‘ℝ)
57		0re 11291	. . . . . . . 8 ⊢ 0 ∈ ℝ
58		iccssre 13541	. . . . . . . 8 ⊢ ((0 ∈ ℝ ∧ (1 / 2) ∈ ℝ) → (0[,](1 / 2)) ⊆ ℝ)
59	57, 28, 58	mp2an 705	. . . . . . 7 ⊢ (0[,](1 / 2)) ⊆ ℝ
60		resttopon 23459	. . . . . . 7 ⊢ (((topGen‘ran (,)) ∈ (TopOn‘ℝ) ∧ (0[,](1 / 2)) ⊆ ℝ) → ((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2))))
61	56, 59, 60	mp2an 705	. . . . . 6 ⊢ ((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2)))
62	61	a1i 11	. . . . 5 ⊢ (𝜑 → ((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2))))
63	62, 37	cnmpt1st 23967	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ (0[,](1 / 2)), 𝑦 ∈ (0[,]1) ↦ 𝑥) ∈ ((((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ×_t II) Cn ((topGen‘ran (,)) ↾_t (0[,](1 / 2)))))
64	23	iihalf1cn 25233	. . . . . . 7 ⊢ (𝑧 ∈ (0[,](1 / 2)) ↦ (2 · 𝑧)) ∈ (((topGen‘ran (,)) ↾_t (0[,](1 / 2))) Cn II)
65	64	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ (0[,](1 / 2)) ↦ (2 · 𝑧)) ∈ (((topGen‘ran (,)) ↾_t (0[,](1 / 2))) Cn II))
66		oveq2 7420	. . . . . 6 ⊢ (𝑧 = 𝑥 → (2 · 𝑧) = (2 · 𝑥))
67	62, 37, 63, 62, 65, 66	cnmpt21 23970	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ (0[,](1 / 2)), 𝑦 ∈ (0[,]1) ↦ (2 · 𝑥)) ∈ ((((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ×_t II) Cn II))
68	62, 37	cnmpt2nd 23968	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ (0[,](1 / 2)), 𝑦 ∈ (0[,]1) ↦ 𝑦) ∈ ((((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ×_t II) Cn II))
69	4, 11	phtpycn 25284	. . . . . 6 ⊢ (𝜑 → (𝐹(PHtpy‘𝐽)𝐻) ⊆ ((II ×_t II) Cn 𝐽))
70	69, 13	sseldd 3932	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ((II ×_t II) Cn 𝐽))
71	62, 37, 67, 68, 70	cnmpt22f 23974	. . . 4 ⊢ (𝜑 → (𝑥 ∈ (0[,](1 / 2)), 𝑦 ∈ (0[,]1) ↦ ((2 · 𝑥)𝑀𝑦)) ∈ ((((topGen‘ran (,)) ↾_t (0[,](1 / 2))) ×_t II) Cn 𝐽))
72		iccssre 13541	. . . . . . . 8 ⊢ (((1 / 2) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 / 2)[,]1) ⊆ ℝ)
73	28, 30, 72	mp2an 705	. . . . . . 7 ⊢ ((1 / 2)[,]1) ⊆ ℝ
74		resttopon 23459	. . . . . . 7 ⊢ (((topGen‘ran (,)) ∈ (TopOn‘ℝ) ∧ ((1 / 2)[,]1) ⊆ ℝ) → ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1)))
75	56, 73, 74	mp2an 705	. . . . . 6 ⊢ ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1))
76	75	a1i 11	. . . . 5 ⊢ (𝜑 → ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1)))
77	76, 37	cnmpt1st 23967	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((1 / 2)[,]1), 𝑦 ∈ (0[,]1) ↦ 𝑥) ∈ ((((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ×_t II) Cn ((topGen‘ran (,)) ↾_t ((1 / 2)[,]1))))
78	24	iihalf2cn 25235	. . . . . . 7 ⊢ (𝑧 ∈ ((1 / 2)[,]1) ↦ ((2 · 𝑧) − 1)) ∈ (((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) Cn II)
79	78	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ ((1 / 2)[,]1) ↦ ((2 · 𝑧) − 1)) ∈ (((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) Cn II))
80	66	oveq1d 7427	. . . . . 6 ⊢ (𝑧 = 𝑥 → ((2 · 𝑧) − 1) = ((2 · 𝑥) − 1))
81	76, 37, 77, 76, 79, 80	cnmpt21 23970	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ ((1 / 2)[,]1), 𝑦 ∈ (0[,]1) ↦ ((2 · 𝑥) − 1)) ∈ ((((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ×_t II) Cn II))
82	76, 37	cnmpt2nd 23968	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ ((1 / 2)[,]1), 𝑦 ∈ (0[,]1) ↦ 𝑦) ∈ ((((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ×_t II) Cn II))
83	8, 12	phtpycn 25284	. . . . . 6 ⊢ (𝜑 → (𝐺(PHtpy‘𝐽)𝐾) ⊆ ((II ×_t II) Cn 𝐽))
84	83, 16	sseldd 3932	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ((II ×_t II) Cn 𝐽))
85	76, 37, 81, 82, 84	cnmpt22f 23974	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ((1 / 2)[,]1), 𝑦 ∈ (0[,]1) ↦ (((2 · 𝑥) − 1)𝑁𝑦)) ∈ ((((topGen‘ran (,)) ↾_t ((1 / 2)[,]1)) ×_t II) Cn 𝐽))
86	22, 23, 24, 25, 26, 27, 35, 37, 55, 71, 85	cnmpopc 25229	. . 3 ⊢ (𝜑 → (𝑥 ∈ (0[,]1), 𝑦 ∈ (0[,]1) ↦ if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦))) ∈ ((II ×_t II) Cn 𝐽))
87	21, 86	eqeltrid 2865	. 2 ⊢ (𝜑 → 𝑃 ∈ ((II ×_t II) Cn 𝐽))
88		simpll 779	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ 𝑠 ≤ (1 / 2)) → 𝜑)
89		elii1 25236	. . . . . . . 8 ⊢ (𝑠 ∈ (0[,](1 / 2)) ↔ (𝑠 ∈ (0[,]1) ∧ 𝑠 ≤ (1 / 2)))
90		iihalf1 25232	. . . . . . . 8 ⊢ (𝑠 ∈ (0[,](1 / 2)) → (2 · 𝑠) ∈ (0[,]1))
91	89, 90	sylbir 238	. . . . . . 7 ⊢ ((𝑠 ∈ (0[,]1) ∧ 𝑠 ≤ (1 / 2)) → (2 · 𝑠) ∈ (0[,]1))
92	91	adantll 727	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ 𝑠 ≤ (1 / 2)) → (2 · 𝑠) ∈ (0[,]1))
93	4, 11	phtpyhtpy 25283	. . . . . . . 8 ⊢ (𝜑 → (𝐹(PHtpy‘𝐽)𝐻) ⊆ (𝐹(II Htpy 𝐽)𝐻))
94	93, 13	sseldd 3932	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (𝐹(II Htpy 𝐽)𝐻))
95	37, 4, 11, 94	htpyi 25275	. . . . . 6 ⊢ ((𝜑 ∧ (2 · 𝑠) ∈ (0[,]1)) → (((2 · 𝑠)𝑀0) = (𝐹‘(2 · 𝑠)) ∧ ((2 · 𝑠)𝑀1) = (𝐻‘(2 · 𝑠))))
96	88, 92, 95	syl2anc 596	. . . . 5 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ 𝑠 ≤ (1 / 2)) → (((2 · 𝑠)𝑀0) = (𝐹‘(2 · 𝑠)) ∧ ((2 · 𝑠)𝑀1) = (𝐻‘(2 · 𝑠))))
97	96	simpld 500	. . . 4 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ 𝑠 ≤ (1 / 2)) → ((2 · 𝑠)𝑀0) = (𝐹‘(2 · 𝑠)))
98		simpll 779	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → 𝜑)
99		elii2 25237	. . . . . . . 8 ⊢ ((𝑠 ∈ (0[,]1) ∧ ¬ 𝑠 ≤ (1 / 2)) → 𝑠 ∈ ((1 / 2)[,]1))
100	99	adantll 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → 𝑠 ∈ ((1 / 2)[,]1))
101		iihalf2 25234	. . . . . . 7 ⊢ (𝑠 ∈ ((1 / 2)[,]1) → ((2 · 𝑠) − 1) ∈ (0[,]1))
102	100, 101	syl 18	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → ((2 · 𝑠) − 1) ∈ (0[,]1))
103	8, 12	phtpyhtpy 25283	. . . . . . . 8 ⊢ (𝜑 → (𝐺(PHtpy‘𝐽)𝐾) ⊆ (𝐺(II Htpy 𝐽)𝐾))
104	103, 16	sseldd 3932	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ (𝐺(II Htpy 𝐽)𝐾))
105	37, 8, 12, 104	htpyi 25275	. . . . . 6 ⊢ ((𝜑 ∧ ((2 · 𝑠) − 1) ∈ (0[,]1)) → ((((2 · 𝑠) − 1)𝑁0) = (𝐺‘((2 · 𝑠) − 1)) ∧ (((2 · 𝑠) − 1)𝑁1) = (𝐾‘((2 · 𝑠) − 1))))
106	98, 102, 105	syl2anc 596	. . . . 5 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → ((((2 · 𝑠) − 1)𝑁0) = (𝐺‘((2 · 𝑠) − 1)) ∧ (((2 · 𝑠) − 1)𝑁1) = (𝐾‘((2 · 𝑠) − 1))))
107	106	simpld 500	. . . 4 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → (((2 · 𝑠) − 1)𝑁0) = (𝐺‘((2 · 𝑠) − 1)))
108	97, 107	ifeq12da 4516	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀0), (((2 · 𝑠) − 1)𝑁0)) = if(𝑠 ≤ (1 / 2), (𝐹‘(2 · 𝑠)), (𝐺‘((2 · 𝑠) − 1))))
109		simpr 490	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → 𝑠 ∈ (0[,]1))
110		0elunit 13581	. . . 4 ⊢ 0 ∈ (0[,]1)
111		simpl 488	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → 𝑥 = 𝑠)
112	111	breq1d 5113	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → (𝑥 ≤ (1 / 2) ↔ 𝑠 ≤ (1 / 2)))
113	111	oveq2d 7428	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → (2 · 𝑥) = (2 · 𝑠))
114		simpr 490	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → 𝑦 = 0)
115	113, 114	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → ((2 · 𝑥)𝑀𝑦) = ((2 · 𝑠)𝑀0))
116	113	oveq1d 7427	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → ((2 · 𝑥) − 1) = ((2 · 𝑠) − 1))
117	116, 114	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → (((2 · 𝑥) − 1)𝑁𝑦) = (((2 · 𝑠) − 1)𝑁0))
118	112, 115, 117	ifbieq12d 4511	. . . . 5 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 0) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀0), (((2 · 𝑠) − 1)𝑁0)))
119		ovex 7445	. . . . . 6 ⊢ ((2 · 𝑠)𝑀0) ∈ V
120		ovex 7445	. . . . . 6 ⊢ (((2 · 𝑠) − 1)𝑁0) ∈ V
121	119, 120	ifex 4533	. . . . 5 ⊢ if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀0), (((2 · 𝑠) − 1)𝑁0)) ∈ V
122	118, 21, 121	ovmpoa 7567	. . . 4 ⊢ ((𝑠 ∈ (0[,]1) ∧ 0 ∈ (0[,]1)) → (𝑠𝑃0) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀0), (((2 · 𝑠) − 1)𝑁0)))
123	109, 110, 122	sylancl 598	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (𝑠𝑃0) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀0), (((2 · 𝑠) − 1)𝑁0)))
124	4, 8	pcovalg 25313	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((𝐹(*_𝑝‘𝐽)𝐺)‘𝑠) = if(𝑠 ≤ (1 / 2), (𝐹‘(2 · 𝑠)), (𝐺‘((2 · 𝑠) − 1))))
125	108, 123, 124	3eqtr4d 2806	. 2 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (𝑠𝑃0) = ((𝐹(*_𝑝‘𝐽)𝐺)‘𝑠))
126	96	simprd 501	. . . 4 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ 𝑠 ≤ (1 / 2)) → ((2 · 𝑠)𝑀1) = (𝐻‘(2 · 𝑠)))
127	106	simprd 501	. . . 4 ⊢ (((𝜑 ∧ 𝑠 ∈ (0[,]1)) ∧ ¬ 𝑠 ≤ (1 / 2)) → (((2 · 𝑠) − 1)𝑁1) = (𝐾‘((2 · 𝑠) − 1)))
128	126, 127	ifeq12da 4516	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀1), (((2 · 𝑠) − 1)𝑁1)) = if(𝑠 ≤ (1 / 2), (𝐻‘(2 · 𝑠)), (𝐾‘((2 · 𝑠) − 1))))
129		1elunit 13582	. . . 4 ⊢ 1 ∈ (0[,]1)
130		simpl 488	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → 𝑥 = 𝑠)
131	130	breq1d 5113	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → (𝑥 ≤ (1 / 2) ↔ 𝑠 ≤ (1 / 2)))
132	130	oveq2d 7428	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → (2 · 𝑥) = (2 · 𝑠))
133		simpr 490	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → 𝑦 = 1)
134	132, 133	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → ((2 · 𝑥)𝑀𝑦) = ((2 · 𝑠)𝑀1))
135	132	oveq1d 7427	. . . . . . 7 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → ((2 · 𝑥) − 1) = ((2 · 𝑠) − 1))
136	135, 133	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → (((2 · 𝑥) − 1)𝑁𝑦) = (((2 · 𝑠) − 1)𝑁1))
137	131, 134, 136	ifbieq12d 4511	. . . . 5 ⊢ ((𝑥 = 𝑠 ∧ 𝑦 = 1) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀1), (((2 · 𝑠) − 1)𝑁1)))
138		ovex 7445	. . . . . 6 ⊢ ((2 · 𝑠)𝑀1) ∈ V
139		ovex 7445	. . . . . 6 ⊢ (((2 · 𝑠) − 1)𝑁1) ∈ V
140	138, 139	ifex 4533	. . . . 5 ⊢ if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀1), (((2 · 𝑠) − 1)𝑁1)) ∈ V
141	137, 21, 140	ovmpoa 7567	. . . 4 ⊢ ((𝑠 ∈ (0[,]1) ∧ 1 ∈ (0[,]1)) → (𝑠𝑃1) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀1), (((2 · 𝑠) − 1)𝑁1)))
142	109, 129, 141	sylancl 598	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (𝑠𝑃1) = if(𝑠 ≤ (1 / 2), ((2 · 𝑠)𝑀1), (((2 · 𝑠) − 1)𝑁1)))
143	11, 12	pcovalg 25313	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((𝐻(*_𝑝‘𝐽)𝐾)‘𝑠) = if(𝑠 ≤ (1 / 2), (𝐻‘(2 · 𝑠)), (𝐾‘((2 · 𝑠) − 1))))
144	128, 142, 143	3eqtr4d 2806	. 2 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (𝑠𝑃1) = ((𝐻(*_𝑝‘𝐽)𝐾)‘𝑠))
145	4, 11, 13	phtpyi 25285	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((0𝑀𝑠) = (𝐹‘0) ∧ (1𝑀𝑠) = (𝐹‘1)))
146	145	simpld 500	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (0𝑀𝑠) = (𝐹‘0))
147		simpl 488	. . . . . . . 8 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → 𝑥 = 0)
148	147, 29	eqbrtrdi 5144	. . . . . . 7 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → 𝑥 ≤ (1 / 2))
149	148	iftrued 4490	. . . . . 6 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = ((2 · 𝑥)𝑀𝑦))
150	147	oveq2d 7428	. . . . . . . 8 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → (2 · 𝑥) = (2 · 0))
151		2t0e0 12494	. . . . . . . 8 ⊢ (2 · 0) = 0
152	150, 151	eqtrdi 2812	. . . . . . 7 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → (2 · 𝑥) = 0)
153		simpr 490	. . . . . . 7 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → 𝑦 = 𝑠)
154	152, 153	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → ((2 · 𝑥)𝑀𝑦) = (0𝑀𝑠))
155	149, 154	eqtrd 2796	. . . . 5 ⊢ ((𝑥 = 0 ∧ 𝑦 = 𝑠) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = (0𝑀𝑠))
156		ovex 7445	. . . . 5 ⊢ (0𝑀𝑠) ∈ V
157	155, 21, 156	ovmpoa 7567	. . . 4 ⊢ ((0 ∈ (0[,]1) ∧ 𝑠 ∈ (0[,]1)) → (0𝑃𝑠) = (0𝑀𝑠))
158	110, 109, 157	sylancr 599	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (0𝑃𝑠) = (0𝑀𝑠))
159	4, 8	pco0 25315	. . . 4 ⊢ (𝜑 → ((𝐹(*_𝑝‘𝐽)𝐺)‘0) = (𝐹‘0))
160	159	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((𝐹(*_𝑝‘𝐽)𝐺)‘0) = (𝐹‘0))
161	146, 158, 160	3eqtr4d 2806	. 2 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (0𝑃𝑠) = ((𝐹(*_𝑝‘𝐽)𝐺)‘0))
162	8, 12, 16	phtpyi 25285	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((0𝑁𝑠) = (𝐺‘0) ∧ (1𝑁𝑠) = (𝐺‘1)))
163	162	simprd 501	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (1𝑁𝑠) = (𝐺‘1))
164	28, 30	ltnlei 11412	. . . . . . . . 9 ⊢ ((1 / 2) < 1 ↔ ¬ 1 ≤ (1 / 2))
165	31, 164	mpbi 233	. . . . . . . 8 ⊢ ¬ 1 ≤ (1 / 2)
166		simpl 488	. . . . . . . . 9 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → 𝑥 = 1)
167	166	breq1d 5113	. . . . . . . 8 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → (𝑥 ≤ (1 / 2) ↔ 1 ≤ (1 / 2)))
168	165, 167	mtbiri 330	. . . . . . 7 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → ¬ 𝑥 ≤ (1 / 2))
169	168	iffalsed 4493	. . . . . 6 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = (((2 · 𝑥) − 1)𝑁𝑦))
170	166	oveq2d 7428	. . . . . . . . . 10 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → (2 · 𝑥) = (2 · 1))
171		2t1e2 12486	. . . . . . . . . 10 ⊢ (2 · 1) = 2
172	170, 171	eqtrdi 2812	. . . . . . . . 9 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → (2 · 𝑥) = 2)
173	172	oveq1d 7427	. . . . . . . 8 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → ((2 · 𝑥) − 1) = (2 − 1))
174		2m1e1 12448	. . . . . . . 8 ⊢ (2 − 1) = 1
175	173, 174	eqtrdi 2812	. . . . . . 7 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → ((2 · 𝑥) − 1) = 1)
176		simpr 490	. . . . . . 7 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → 𝑦 = 𝑠)
177	175, 176	oveq12d 7430	. . . . . 6 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → (((2 · 𝑥) − 1)𝑁𝑦) = (1𝑁𝑠))
178	169, 177	eqtrd 2796	. . . . 5 ⊢ ((𝑥 = 1 ∧ 𝑦 = 𝑠) → if(𝑥 ≤ (1 / 2), ((2 · 𝑥)𝑀𝑦), (((2 · 𝑥) − 1)𝑁𝑦)) = (1𝑁𝑠))
179		ovex 7445	. . . . 5 ⊢ (1𝑁𝑠) ∈ V
180	178, 21, 179	ovmpoa 7567	. . . 4 ⊢ ((1 ∈ (0[,]1) ∧ 𝑠 ∈ (0[,]1)) → (1𝑃𝑠) = (1𝑁𝑠))
181	129, 109, 180	sylancr 599	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (1𝑃𝑠) = (1𝑁𝑠))
182	4, 8	pco1 25316	. . . 4 ⊢ (𝜑 → ((𝐹(*_𝑝‘𝐽)𝐺)‘1) = (𝐺‘1))
183	182	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → ((𝐹(*_𝑝‘𝐽)𝐺)‘1) = (𝐺‘1))
184	163, 181, 183	3eqtr4d 2806	. 2 ⊢ ((𝜑 ∧ 𝑠 ∈ (0[,]1)) → (1𝑃𝑠) = ((𝐹(*_𝑝‘𝐽)𝐺)‘1))
185	10, 20, 87, 125, 144, 161, 184	isphtpy2d 25288	1 ⊢ (𝜑 → 𝑃 ∈ ((𝐹(_𝑝‘𝐽)𝐺)(PHtpy‘𝐽)(𝐻(_𝑝‘𝐽)𝐾)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2956 ⊆ wss 3899 ∅c0 4279 ifcif 4482 class class class wbr 5103 ↦ cmpt 5186 ran crn 5652 ‘cfv 6531 (class class class)co 7412 ∈ cmpo 7414 ℝcr 11180 0cc0 11181 1c1 11182 · cmul 11186 < clt 11324 ≤ cle 11325 − cmin 11522 / cdiv 11954 2c2 12378 (,)cioo 13457 [,]cicc 13460 ↾_t crest 17571 topGenctg 17588 TopOnctopon 23208 Cn ccn 23522 ×_t ctx 23859 IIcii 25176 Htpy chtpy 25268 PHtpycphtpy 25269 ≃_phcphtpc 25270 *_𝑝cpco 25301

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 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740 ax-cnex 11237 ax-resscn 11238 ax-1cn 11239 ax-icn 11240 ax-addcl 11241 ax-addrcl 11242 ax-mulcl 11243 ax-mulrcl 11244 ax-mulcom 11245 ax-addass 11246 ax-mulass 11247 ax-distr 11248 ax-i2m1 11249 ax-1ne0 11250 ax-1rid 11251 ax-rnegex 11252 ax-rrecex 11253 ax-cnre 11254 ax-pre-lttri 11255 ax-pre-lttrn 11256 ax-pre-ltadd 11257 ax-pre-mulgt0 11258 ax-pre-sup 11259

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 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 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-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-lim 6360 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-isom 6540 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-of 7682 df-om 7867 df-1st 7990 df-2nd 7991 df-supp 8162 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8460 df-2o 8461 df-er 8701 df-map 8833 df-ixp 8910 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-fsupp 9338 df-fi 9387 df-sup 9418 df-inf 9419 df-oi 9488 df-card 10001 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11524 df-neg 11525 df-div 11955 df-nn 12317 df-2 12386 df-3 12387 df-4 12388 df-5 12389 df-6 12390 df-7 12391 df-8 12392 df-9 12393 df-n0 12588 df-z 12675 df-dec 12796 df-uz 12947 df-q 13057 df-rp 13102 df-xneg 13222 df-xadd 13223 df-xmul 13224 df-ioo 13461 df-icc 13464 df-fz 13621 df-fzo 13769 df-seq 14125 df-exp 14185 df-hash 14455 df-cj 15246 df-re 15247 df-im 15248 df-sqrt 15382 df-abs 15383 df-struct 17305 df-sets 17322 df-slot 17340 df-ndx 17352 df-base 17368 df-ress 17389 df-plusg 17421 df-mulr 17422 df-starv 17423 df-sca 17424 df-vsca 17425 df-ip 17426 df-tset 17427 df-ple 17428 df-ds 17430 df-unif 17431 df-hom 17432 df-cco 17433 df-rest 17573 df-topn 17574 df-0g 17592 df-gsum 17593 df-topgen 17594 df-pt 17595 df-prds 17598 df-xrs 17654 df-qtop 17659 df-imas 17660 df-xps 17662 df-mre 17736 df-mrc 17737 df-acs 17739 df-mgm 18796 df-sgrp 18888 df-mnd 18904 df-submnd 18959 df-mulg 19258 df-cntz 19511 df-cmn 19976 df-psmet 21650 df-xmet 21651 df-met 21652 df-bl 21653 df-mopn 21654 df-cnfld 21659 df-top 23192 df-topon 23209 df-topsp 23231 df-bases 23244 df-cld 23317 df-cn 23525 df-cnp 23526 df-tx 23861 df-hmeo 24054 df-xms 24619 df-ms 24620 df-tms 24621 df-ii 25178 df-htpy 25271 df-phtpy 25272 df-phtpc 25293 df-pco 25306

This theorem is used by: pcohtpy 25321

W3C validator