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

Theorem pcorevlem 24926
Description: Lemma for pcorev 24927. Prove continuity of the homotopy function. (Contributed by Jeff Madsen, 11-Jun-2010.) (Proof shortened by Mario Carneiro, 8-Jun-2014.)
Hypotheses
Ref Expression
pcorev.1 𝐺 = (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥)))
pcorev.2 𝑃 = ((0[,]1) × {(𝐹‘1)})
pcorevlem.3 𝐻 = (𝑠 ∈ (0[,]1), 𝑡 ∈ (0[,]1) ↦ (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))))
Assertion
Ref Expression
pcorevlem (𝐹 ∈ (II Cn 𝐽) → (𝐻 ∈ ((𝐺(*𝑝𝐽)𝐹)(PHtpy‘𝐽)𝑃) ∧ (𝐺(*𝑝𝐽)𝐹)( ≃ph𝐽)𝑃))
Distinct variable groups:   𝑡,𝑠,𝑥,𝐹   𝐺,𝑠,𝑡   𝐽,𝑠,𝑡,𝑥   𝑃,𝑠,𝑡,𝑥
Allowed substitution hints:   𝐺(𝑥)   𝐻(𝑥,𝑡,𝑠)

Proof of Theorem pcorevlem
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 pcorev.1 . . . . 5 𝐺 = (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥)))
2 iitopon 24772 . . . . . . 7 II ∈ (TopOn‘(0[,]1))
32a1i 11 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → II ∈ (TopOn‘(0[,]1)))
4 iirevcn 24824 . . . . . . 7 (𝑥 ∈ (0[,]1) ↦ (1 − 𝑥)) ∈ (II Cn II)
54a1i 11 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → (𝑥 ∈ (0[,]1) ↦ (1 − 𝑥)) ∈ (II Cn II))
6 id 22 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → 𝐹 ∈ (II Cn 𝐽))
73, 5, 6cnmpt11f 23551 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥))) ∈ (II Cn 𝐽))
81, 7eqeltrid 2832 . . . 4 (𝐹 ∈ (II Cn 𝐽) → 𝐺 ∈ (II Cn 𝐽))
9 1elunit 13431 . . . . 5 1 ∈ (0[,]1)
10 oveq2 7395 . . . . . . . 8 (𝑥 = 1 → (1 − 𝑥) = (1 − 1))
11 1m1e0 12258 . . . . . . . 8 (1 − 1) = 0
1210, 11eqtrdi 2780 . . . . . . 7 (𝑥 = 1 → (1 − 𝑥) = 0)
1312fveq2d 6862 . . . . . 6 (𝑥 = 1 → (𝐹‘(1 − 𝑥)) = (𝐹‘0))
14 fvex 6871 . . . . . 6 (𝐹‘0) ∈ V
1513, 1, 14fvmpt 6968 . . . . 5 (1 ∈ (0[,]1) → (𝐺‘1) = (𝐹‘0))
169, 15mp1i 13 . . . 4 (𝐹 ∈ (II Cn 𝐽) → (𝐺‘1) = (𝐹‘0))
178, 6, 16pcocn 24917 . . 3 (𝐹 ∈ (II Cn 𝐽) → (𝐺(*𝑝𝐽)𝐹) ∈ (II Cn 𝐽))
18 cntop2 23128 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → 𝐽 ∈ Top)
19 toptopon2 22805 . . . . . 6 (𝐽 ∈ Top ↔ 𝐽 ∈ (TopOn‘ 𝐽))
2018, 19sylib 218 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → 𝐽 ∈ (TopOn‘ 𝐽))
21 iiuni 24774 . . . . . . 7 (0[,]1) = II
22 eqid 2729 . . . . . . 7 𝐽 = 𝐽
2321, 22cnf 23133 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → 𝐹:(0[,]1)⟶ 𝐽)
24 ffvelcdm 7053 . . . . . 6 ((𝐹:(0[,]1)⟶ 𝐽 ∧ 1 ∈ (0[,]1)) → (𝐹‘1) ∈ 𝐽)
2523, 9, 24sylancl 586 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → (𝐹‘1) ∈ 𝐽)
26 pcorev.2 . . . . . 6 𝑃 = ((0[,]1) × {(𝐹‘1)})
2726pcoptcl 24921 . . . . 5 ((𝐽 ∈ (TopOn‘ 𝐽) ∧ (𝐹‘1) ∈ 𝐽) → (𝑃 ∈ (II Cn 𝐽) ∧ (𝑃‘0) = (𝐹‘1) ∧ (𝑃‘1) = (𝐹‘1)))
2820, 25, 27syl2anc 584 . . . 4 (𝐹 ∈ (II Cn 𝐽) → (𝑃 ∈ (II Cn 𝐽) ∧ (𝑃‘0) = (𝐹‘1) ∧ (𝑃‘1) = (𝐹‘1)))
2928simp1d 1142 . . 3 (𝐹 ∈ (II Cn 𝐽) → 𝑃 ∈ (II Cn 𝐽))
30 pcorevlem.3 . . . 4 𝐻 = (𝑠 ∈ (0[,]1), 𝑡 ∈ (0[,]1) ↦ (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))))
31 eqid 2729 . . . . . 6 (topGen‘ran (,)) = (topGen‘ran (,))
32 eqid 2729 . . . . . 6 ((topGen‘ran (,)) ↾t (0[,](1 / 2))) = ((topGen‘ran (,)) ↾t (0[,](1 / 2)))
33 eqid 2729 . . . . . 6 ((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) = ((topGen‘ran (,)) ↾t ((1 / 2)[,]1))
34 dfii2 24775 . . . . . 6 II = ((topGen‘ran (,)) ↾t (0[,]1))
35 0red 11177 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → 0 ∈ ℝ)
36 1red 11175 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → 1 ∈ ℝ)
37 halfre 12395 . . . . . . . 8 (1 / 2) ∈ ℝ
38 halfge0 12398 . . . . . . . 8 0 ≤ (1 / 2)
39 1re 11174 . . . . . . . . 9 1 ∈ ℝ
40 halflt1 12399 . . . . . . . . 9 (1 / 2) < 1
4137, 39, 40ltleii 11297 . . . . . . . 8 (1 / 2) ≤ 1
42 elicc01 13427 . . . . . . . 8 ((1 / 2) ∈ (0[,]1) ↔ ((1 / 2) ∈ ℝ ∧ 0 ≤ (1 / 2) ∧ (1 / 2) ≤ 1))
4337, 38, 41, 42mpbir3an 1342 . . . . . . 7 (1 / 2) ∈ (0[,]1)
4443a1i 11 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → (1 / 2) ∈ (0[,]1))
45 simprl 770 . . . . . . . . . . 11 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → 𝑠 = (1 / 2))
4645oveq2d 7403 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (2 · 𝑠) = (2 · (1 / 2)))
47 2cn 12261 . . . . . . . . . . 11 2 ∈ ℂ
48 2ne0 12290 . . . . . . . . . . 11 2 ≠ 0
4947, 48recidi 11913 . . . . . . . . . 10 (2 · (1 / 2)) = 1
5046, 49eqtrdi 2780 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (2 · 𝑠) = 1)
5150oveq1d 7402 . . . . . . . . . . . 12 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → ((2 · 𝑠) − 1) = (1 − 1))
5251, 11eqtrdi 2780 . . . . . . . . . . 11 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → ((2 · 𝑠) − 1) = 0)
5352oveq2d 7403 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (1 − ((2 · 𝑠) − 1)) = (1 − 0))
54 1m0e1 12302 . . . . . . . . . 10 (1 − 0) = 1
5553, 54eqtrdi 2780 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (1 − ((2 · 𝑠) − 1)) = 1)
5650, 55eqtr4d 2767 . . . . . . . 8 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (2 · 𝑠) = (1 − ((2 · 𝑠) − 1)))
5756oveq2d 7403 . . . . . . 7 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → ((1 − 𝑡) · (2 · 𝑠)) = ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))
5857oveq2d 7403 . . . . . 6 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑠 = (1 / 2) ∧ 𝑡 ∈ (0[,]1))) → (1 − ((1 − 𝑡) · (2 · 𝑠))) = (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))
59 retopon 24651 . . . . . . . . 9 (topGen‘ran (,)) ∈ (TopOn‘ℝ)
60 0re 11176 . . . . . . . . . 10 0 ∈ ℝ
61 iccssre 13390 . . . . . . . . . 10 ((0 ∈ ℝ ∧ (1 / 2) ∈ ℝ) → (0[,](1 / 2)) ⊆ ℝ)
6260, 37, 61mp2an 692 . . . . . . . . 9 (0[,](1 / 2)) ⊆ ℝ
63 resttopon 23048 . . . . . . . . 9 (((topGen‘ran (,)) ∈ (TopOn‘ℝ) ∧ (0[,](1 / 2)) ⊆ ℝ) → ((topGen‘ran (,)) ↾t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2))))
6459, 62, 63mp2an 692 . . . . . . . 8 ((topGen‘ran (,)) ↾t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2)))
6564a1i 11 . . . . . . 7 (𝐹 ∈ (II Cn 𝐽) → ((topGen‘ran (,)) ↾t (0[,](1 / 2))) ∈ (TopOn‘(0[,](1 / 2))))
6665, 3cnmpt2nd 23556 . . . . . . . . 9 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ 𝑡) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn II))
67 oveq2 7395 . . . . . . . . 9 (𝑥 = 𝑡 → (1 − 𝑥) = (1 − 𝑡))
6865, 3, 66, 3, 5, 67cnmpt21 23558 . . . . . . . 8 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ (1 − 𝑡)) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn II))
6965, 3cnmpt1st 23555 . . . . . . . . 9 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ 𝑠) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn ((topGen‘ran (,)) ↾t (0[,](1 / 2)))))
7032iihalf1cn 24826 . . . . . . . . . 10 (𝑥 ∈ (0[,](1 / 2)) ↦ (2 · 𝑥)) ∈ (((topGen‘ran (,)) ↾t (0[,](1 / 2))) Cn II)
7170a1i 11 . . . . . . . . 9 (𝐹 ∈ (II Cn 𝐽) → (𝑥 ∈ (0[,](1 / 2)) ↦ (2 · 𝑥)) ∈ (((topGen‘ran (,)) ↾t (0[,](1 / 2))) Cn II))
72 oveq2 7395 . . . . . . . . 9 (𝑥 = 𝑠 → (2 · 𝑥) = (2 · 𝑠))
7365, 3, 69, 65, 71, 72cnmpt21 23558 . . . . . . . 8 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ (2 · 𝑠)) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn II))
74 iimulcn 24834 . . . . . . . . 9 (𝑥 ∈ (0[,]1), 𝑦 ∈ (0[,]1) ↦ (𝑥 · 𝑦)) ∈ ((II ×t II) Cn II)
7574a1i 11 . . . . . . . 8 (𝐹 ∈ (II Cn 𝐽) → (𝑥 ∈ (0[,]1), 𝑦 ∈ (0[,]1) ↦ (𝑥 · 𝑦)) ∈ ((II ×t II) Cn II))
76 oveq12 7396 . . . . . . . 8 ((𝑥 = (1 − 𝑡) ∧ 𝑦 = (2 · 𝑠)) → (𝑥 · 𝑦) = ((1 − 𝑡) · (2 · 𝑠)))
7765, 3, 68, 73, 3, 3, 75, 76cnmpt22 23561 . . . . . . 7 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ ((1 − 𝑡) · (2 · 𝑠))) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn II))
78 oveq2 7395 . . . . . . 7 (𝑥 = ((1 − 𝑡) · (2 · 𝑠)) → (1 − 𝑥) = (1 − ((1 − 𝑡) · (2 · 𝑠))))
7965, 3, 77, 3, 5, 78cnmpt21 23558 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,](1 / 2)), 𝑡 ∈ (0[,]1) ↦ (1 − ((1 − 𝑡) · (2 · 𝑠)))) ∈ ((((topGen‘ran (,)) ↾t (0[,](1 / 2))) ×t II) Cn II))
80 iccssre 13390 . . . . . . . . . 10 (((1 / 2) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 / 2)[,]1) ⊆ ℝ)
8137, 39, 80mp2an 692 . . . . . . . . 9 ((1 / 2)[,]1) ⊆ ℝ
82 resttopon 23048 . . . . . . . . 9 (((topGen‘ran (,)) ∈ (TopOn‘ℝ) ∧ ((1 / 2)[,]1) ⊆ ℝ) → ((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1)))
8359, 81, 82mp2an 692 . . . . . . . 8 ((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1))
8483a1i 11 . . . . . . 7 (𝐹 ∈ (II Cn 𝐽) → ((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ∈ (TopOn‘((1 / 2)[,]1)))
8584, 3cnmpt2nd 23556 . . . . . . . . 9 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ 𝑡) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
8684, 3, 85, 3, 5, 67cnmpt21 23558 . . . . . . . 8 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ (1 − 𝑡)) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
8784, 3cnmpt1st 23555 . . . . . . . . . 10 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ 𝑠) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn ((topGen‘ran (,)) ↾t ((1 / 2)[,]1))))
8833iihalf2cn 24829 . . . . . . . . . . 11 (𝑥 ∈ ((1 / 2)[,]1) ↦ ((2 · 𝑥) − 1)) ∈ (((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) Cn II)
8988a1i 11 . . . . . . . . . 10 (𝐹 ∈ (II Cn 𝐽) → (𝑥 ∈ ((1 / 2)[,]1) ↦ ((2 · 𝑥) − 1)) ∈ (((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) Cn II))
9072oveq1d 7402 . . . . . . . . . 10 (𝑥 = 𝑠 → ((2 · 𝑥) − 1) = ((2 · 𝑠) − 1))
9184, 3, 87, 84, 89, 90cnmpt21 23558 . . . . . . . . 9 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ ((2 · 𝑠) − 1)) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
92 oveq2 7395 . . . . . . . . 9 (𝑥 = ((2 · 𝑠) − 1) → (1 − 𝑥) = (1 − ((2 · 𝑠) − 1)))
9384, 3, 91, 3, 5, 92cnmpt21 23558 . . . . . . . 8 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ (1 − ((2 · 𝑠) − 1))) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
94 oveq12 7396 . . . . . . . 8 ((𝑥 = (1 − 𝑡) ∧ 𝑦 = (1 − ((2 · 𝑠) − 1))) → (𝑥 · 𝑦) = ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))
9584, 3, 86, 93, 3, 3, 75, 94cnmpt22 23561 . . . . . . 7 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
96 oveq2 7395 . . . . . . 7 (𝑥 = ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))) → (1 − 𝑥) = (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))
9784, 3, 95, 3, 5, 96cnmpt21 23558 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ ((1 / 2)[,]1), 𝑡 ∈ (0[,]1) ↦ (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) ∈ ((((topGen‘ran (,)) ↾t ((1 / 2)[,]1)) ×t II) Cn II))
9831, 32, 33, 34, 35, 36, 44, 3, 58, 79, 97cnmpopc 24822 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,]1), 𝑡 ∈ (0[,]1) ↦ if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))) ∈ ((II ×t II) Cn II))
993, 3, 98, 6cnmpt21f 23559 . . . 4 (𝐹 ∈ (II Cn 𝐽) → (𝑠 ∈ (0[,]1), 𝑡 ∈ (0[,]1) ↦ (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))))) ∈ ((II ×t II) Cn 𝐽))
10030, 99eqeltrid 2832 . . 3 (𝐹 ∈ (II Cn 𝐽) → 𝐻 ∈ ((II ×t II) Cn 𝐽))
101 simpr 484 . . . . 5 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → 𝑦 ∈ (0[,]1))
102 0elunit 13430 . . . . 5 0 ∈ (0[,]1)
103 simpl 482 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 0) → 𝑠 = 𝑦)
104103breq1d 5117 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 0) → (𝑠 ≤ (1 / 2) ↔ 𝑦 ≤ (1 / 2)))
105 simpr 484 . . . . . . . . . . . 12 ((𝑠 = 𝑦𝑡 = 0) → 𝑡 = 0)
106105oveq2d 7403 . . . . . . . . . . 11 ((𝑠 = 𝑦𝑡 = 0) → (1 − 𝑡) = (1 − 0))
107106, 54eqtrdi 2780 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 0) → (1 − 𝑡) = 1)
108103oveq2d 7403 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 0) → (2 · 𝑠) = (2 · 𝑦))
109107, 108oveq12d 7405 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 0) → ((1 − 𝑡) · (2 · 𝑠)) = (1 · (2 · 𝑦)))
110109oveq2d 7403 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 0) → (1 − ((1 − 𝑡) · (2 · 𝑠))) = (1 − (1 · (2 · 𝑦))))
111108oveq1d 7402 . . . . . . . . . . 11 ((𝑠 = 𝑦𝑡 = 0) → ((2 · 𝑠) − 1) = ((2 · 𝑦) − 1))
112111oveq2d 7403 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 0) → (1 − ((2 · 𝑠) − 1)) = (1 − ((2 · 𝑦) − 1)))
113107, 112oveq12d 7405 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 0) → ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))) = (1 · (1 − ((2 · 𝑦) − 1))))
114113oveq2d 7403 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 0) → (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))) = (1 − (1 · (1 − ((2 · 𝑦) − 1)))))
115104, 110, 114ifbieq12d 4517 . . . . . . 7 ((𝑠 = 𝑦𝑡 = 0) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1))))))
116115fveq2d 6862 . . . . . 6 ((𝑠 = 𝑦𝑡 = 0) → (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))))
117 fvex 6871 . . . . . 6 (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) ∈ V
118116, 30, 117ovmpoa 7544 . . . . 5 ((𝑦 ∈ (0[,]1) ∧ 0 ∈ (0[,]1)) → (𝑦𝐻0) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))))
119101, 102, 118sylancl 586 . . . 4 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝑦𝐻0) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))))
120 iftrue 4494 . . . . . . . 8 (𝑦 ≤ (1 / 2) → if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1))))) = (1 − (1 · (2 · 𝑦))))
121120adantl 481 . . . . . . 7 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ 𝑦 ≤ (1 / 2)) → if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1))))) = (1 − (1 · (2 · 𝑦))))
122121fveq2d 6862 . . . . . 6 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ 𝑦 ≤ (1 / 2)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
123 elii1 24831 . . . . . . . 8 (𝑦 ∈ (0[,](1 / 2)) ↔ (𝑦 ∈ (0[,]1) ∧ 𝑦 ≤ (1 / 2)))
1248, 6pcoval1 24913 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,](1 / 2))) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐺‘(2 · 𝑦)))
125 iihalf1 24825 . . . . . . . . . . 11 (𝑦 ∈ (0[,](1 / 2)) → (2 · 𝑦) ∈ (0[,]1))
126125adantl 481 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,](1 / 2))) → (2 · 𝑦) ∈ (0[,]1))
127 oveq2 7395 . . . . . . . . . . . . 13 (𝑥 = (2 · 𝑦) → (1 − 𝑥) = (1 − (2 · 𝑦)))
128127fveq2d 6862 . . . . . . . . . . . 12 (𝑥 = (2 · 𝑦) → (𝐹‘(1 − 𝑥)) = (𝐹‘(1 − (2 · 𝑦))))
129 fvex 6871 . . . . . . . . . . . 12 (𝐹‘(1 − (2 · 𝑦))) ∈ V
130128, 1, 129fvmpt 6968 . . . . . . . . . . 11 ((2 · 𝑦) ∈ (0[,]1) → (𝐺‘(2 · 𝑦)) = (𝐹‘(1 − (2 · 𝑦))))
131 unitssre 13460 . . . . . . . . . . . . . . . 16 (0[,]1) ⊆ ℝ
132131sseli 3942 . . . . . . . . . . . . . . 15 ((2 · 𝑦) ∈ (0[,]1) → (2 · 𝑦) ∈ ℝ)
133132recnd 11202 . . . . . . . . . . . . . 14 ((2 · 𝑦) ∈ (0[,]1) → (2 · 𝑦) ∈ ℂ)
134133mullidd 11192 . . . . . . . . . . . . 13 ((2 · 𝑦) ∈ (0[,]1) → (1 · (2 · 𝑦)) = (2 · 𝑦))
135134oveq2d 7403 . . . . . . . . . . . 12 ((2 · 𝑦) ∈ (0[,]1) → (1 − (1 · (2 · 𝑦))) = (1 − (2 · 𝑦)))
136135fveq2d 6862 . . . . . . . . . . 11 ((2 · 𝑦) ∈ (0[,]1) → (𝐹‘(1 − (1 · (2 · 𝑦)))) = (𝐹‘(1 − (2 · 𝑦))))
137130, 136eqtr4d 2767 . . . . . . . . . 10 ((2 · 𝑦) ∈ (0[,]1) → (𝐺‘(2 · 𝑦)) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
138126, 137syl 17 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,](1 / 2))) → (𝐺‘(2 · 𝑦)) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
139124, 138eqtrd 2764 . . . . . . . 8 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,](1 / 2))) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
140123, 139sylan2br 595 . . . . . . 7 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑦 ∈ (0[,]1) ∧ 𝑦 ≤ (1 / 2))) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
141140anassrs 467 . . . . . 6 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ 𝑦 ≤ (1 / 2)) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (2 · 𝑦)))))
142122, 141eqtr4d 2767 . . . . 5 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ 𝑦 ≤ (1 / 2)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) = ((𝐺(*𝑝𝐽)𝐹)‘𝑦))
143 iffalse 4497 . . . . . . . 8 𝑦 ≤ (1 / 2) → if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1))))) = (1 − (1 · (1 − ((2 · 𝑦) − 1)))))
144143adantl 481 . . . . . . 7 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ ¬ 𝑦 ≤ (1 / 2)) → if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1))))) = (1 − (1 · (1 − ((2 · 𝑦) − 1)))))
145144fveq2d 6862 . . . . . 6 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ ¬ 𝑦 ≤ (1 / 2)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) = (𝐹‘(1 − (1 · (1 − ((2 · 𝑦) − 1))))))
146 elii2 24832 . . . . . . . 8 ((𝑦 ∈ (0[,]1) ∧ ¬ 𝑦 ≤ (1 / 2)) → 𝑦 ∈ ((1 / 2)[,]1))
1478, 6, 16pcoval2 24916 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ ((1 / 2)[,]1)) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘((2 · 𝑦) − 1)))
148 iihalf2 24828 . . . . . . . . . . . 12 (𝑦 ∈ ((1 / 2)[,]1) → ((2 · 𝑦) − 1) ∈ (0[,]1))
149148adantl 481 . . . . . . . . . . 11 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ ((1 / 2)[,]1)) → ((2 · 𝑦) − 1) ∈ (0[,]1))
150 ax-1cn 11126 . . . . . . . . . . . . . . 15 1 ∈ ℂ
151131sseli 3942 . . . . . . . . . . . . . . . 16 (((2 · 𝑦) − 1) ∈ (0[,]1) → ((2 · 𝑦) − 1) ∈ ℝ)
152151recnd 11202 . . . . . . . . . . . . . . 15 (((2 · 𝑦) − 1) ∈ (0[,]1) → ((2 · 𝑦) − 1) ∈ ℂ)
153 subcl 11420 . . . . . . . . . . . . . . 15 ((1 ∈ ℂ ∧ ((2 · 𝑦) − 1) ∈ ℂ) → (1 − ((2 · 𝑦) − 1)) ∈ ℂ)
154150, 152, 153sylancr 587 . . . . . . . . . . . . . 14 (((2 · 𝑦) − 1) ∈ (0[,]1) → (1 − ((2 · 𝑦) − 1)) ∈ ℂ)
155154mullidd 11192 . . . . . . . . . . . . 13 (((2 · 𝑦) − 1) ∈ (0[,]1) → (1 · (1 − ((2 · 𝑦) − 1))) = (1 − ((2 · 𝑦) − 1)))
156155oveq2d 7403 . . . . . . . . . . . 12 (((2 · 𝑦) − 1) ∈ (0[,]1) → (1 − (1 · (1 − ((2 · 𝑦) − 1)))) = (1 − (1 − ((2 · 𝑦) − 1))))
157 nncan 11451 . . . . . . . . . . . . 13 ((1 ∈ ℂ ∧ ((2 · 𝑦) − 1) ∈ ℂ) → (1 − (1 − ((2 · 𝑦) − 1))) = ((2 · 𝑦) − 1))
158150, 152, 157sylancr 587 . . . . . . . . . . . 12 (((2 · 𝑦) − 1) ∈ (0[,]1) → (1 − (1 − ((2 · 𝑦) − 1))) = ((2 · 𝑦) − 1))
159156, 158eqtr2d 2765 . . . . . . . . . . 11 (((2 · 𝑦) − 1) ∈ (0[,]1) → ((2 · 𝑦) − 1) = (1 − (1 · (1 − ((2 · 𝑦) − 1)))))
160149, 159syl 17 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ ((1 / 2)[,]1)) → ((2 · 𝑦) − 1) = (1 − (1 · (1 − ((2 · 𝑦) − 1)))))
161160fveq2d 6862 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ ((1 / 2)[,]1)) → (𝐹‘((2 · 𝑦) − 1)) = (𝐹‘(1 − (1 · (1 − ((2 · 𝑦) − 1))))))
162147, 161eqtrd 2764 . . . . . . . 8 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ ((1 / 2)[,]1)) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (1 − ((2 · 𝑦) − 1))))))
163146, 162sylan2 593 . . . . . . 7 ((𝐹 ∈ (II Cn 𝐽) ∧ (𝑦 ∈ (0[,]1) ∧ ¬ 𝑦 ≤ (1 / 2))) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (1 − ((2 · 𝑦) − 1))))))
164163anassrs 467 . . . . . 6 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ ¬ 𝑦 ≤ (1 / 2)) → ((𝐺(*𝑝𝐽)𝐹)‘𝑦) = (𝐹‘(1 − (1 · (1 − ((2 · 𝑦) − 1))))))
165145, 164eqtr4d 2767 . . . . 5 (((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) ∧ ¬ 𝑦 ≤ (1 / 2)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) = ((𝐺(*𝑝𝐽)𝐹)‘𝑦))
166142, 165pm2.61dan 812 . . . 4 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (1 · (2 · 𝑦))), (1 − (1 · (1 − ((2 · 𝑦) − 1)))))) = ((𝐺(*𝑝𝐽)𝐹)‘𝑦))
167119, 166eqtrd 2764 . . 3 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝑦𝐻0) = ((𝐺(*𝑝𝐽)𝐹)‘𝑦))
168131sseli 3942 . . . . . . . . . . . . 13 (𝑦 ∈ (0[,]1) → 𝑦 ∈ ℝ)
169168recnd 11202 . . . . . . . . . . . 12 (𝑦 ∈ (0[,]1) → 𝑦 ∈ ℂ)
170 mulcl 11152 . . . . . . . . . . . 12 ((2 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (2 · 𝑦) ∈ ℂ)
17147, 169, 170sylancr 587 . . . . . . . . . . 11 (𝑦 ∈ (0[,]1) → (2 · 𝑦) ∈ ℂ)
172171adantl 481 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (2 · 𝑦) ∈ ℂ)
173172mul02d 11372 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (0 · (2 · 𝑦)) = 0)
174173oveq2d 7403 . . . . . . . 8 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1 − (0 · (2 · 𝑦))) = (1 − 0))
175174, 54eqtrdi 2780 . . . . . . 7 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1 − (0 · (2 · 𝑦))) = 1)
176 subcl 11420 . . . . . . . . . . . 12 (((2 · 𝑦) ∈ ℂ ∧ 1 ∈ ℂ) → ((2 · 𝑦) − 1) ∈ ℂ)
177172, 150, 176sylancl 586 . . . . . . . . . . 11 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → ((2 · 𝑦) − 1) ∈ ℂ)
178150, 177, 153sylancr 587 . . . . . . . . . 10 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1 − ((2 · 𝑦) − 1)) ∈ ℂ)
179178mul02d 11372 . . . . . . . . 9 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (0 · (1 − ((2 · 𝑦) − 1))) = 0)
180179oveq2d 7403 . . . . . . . 8 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1 − (0 · (1 − ((2 · 𝑦) − 1)))) = (1 − 0))
181180, 54eqtrdi 2780 . . . . . . 7 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1 − (0 · (1 − ((2 · 𝑦) − 1)))) = 1)
182175, 181ifeq12d 4510 . . . . . 6 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1))))) = if(𝑦 ≤ (1 / 2), 1, 1))
183 ifid 4529 . . . . . 6 if(𝑦 ≤ (1 / 2), 1, 1) = 1
184182, 183eqtrdi 2780 . . . . 5 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1))))) = 1)
185184fveq2d 6862 . . . 4 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1)))))) = (𝐹‘1))
186 simpl 482 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 1) → 𝑠 = 𝑦)
187186breq1d 5117 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 1) → (𝑠 ≤ (1 / 2) ↔ 𝑦 ≤ (1 / 2)))
188 simpr 484 . . . . . . . . . . . 12 ((𝑠 = 𝑦𝑡 = 1) → 𝑡 = 1)
189188oveq2d 7403 . . . . . . . . . . 11 ((𝑠 = 𝑦𝑡 = 1) → (1 − 𝑡) = (1 − 1))
190189, 11eqtrdi 2780 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 1) → (1 − 𝑡) = 0)
191186oveq2d 7403 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 1) → (2 · 𝑠) = (2 · 𝑦))
192190, 191oveq12d 7405 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 1) → ((1 − 𝑡) · (2 · 𝑠)) = (0 · (2 · 𝑦)))
193192oveq2d 7403 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 1) → (1 − ((1 − 𝑡) · (2 · 𝑠))) = (1 − (0 · (2 · 𝑦))))
194191oveq1d 7402 . . . . . . . . . . 11 ((𝑠 = 𝑦𝑡 = 1) → ((2 · 𝑠) − 1) = ((2 · 𝑦) − 1))
195194oveq2d 7403 . . . . . . . . . 10 ((𝑠 = 𝑦𝑡 = 1) → (1 − ((2 · 𝑠) − 1)) = (1 − ((2 · 𝑦) − 1)))
196190, 195oveq12d 7405 . . . . . . . . 9 ((𝑠 = 𝑦𝑡 = 1) → ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))) = (0 · (1 − ((2 · 𝑦) − 1))))
197196oveq2d 7403 . . . . . . . 8 ((𝑠 = 𝑦𝑡 = 1) → (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))) = (1 − (0 · (1 − ((2 · 𝑦) − 1)))))
198187, 193, 197ifbieq12d 4517 . . . . . . 7 ((𝑠 = 𝑦𝑡 = 1) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1))))))
199198fveq2d 6862 . . . . . 6 ((𝑠 = 𝑦𝑡 = 1) → (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1)))))))
200 fvex 6871 . . . . . 6 (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1)))))) ∈ V
201199, 30, 200ovmpoa 7544 . . . . 5 ((𝑦 ∈ (0[,]1) ∧ 1 ∈ (0[,]1)) → (𝑦𝐻1) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1)))))))
202101, 9, 201sylancl 586 . . . 4 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝑦𝐻1) = (𝐹‘if(𝑦 ≤ (1 / 2), (1 − (0 · (2 · 𝑦))), (1 − (0 · (1 − ((2 · 𝑦) − 1)))))))
20326fveq1i 6859 . . . . 5 (𝑃𝑦) = (((0[,]1) × {(𝐹‘1)})‘𝑦)
204 fvex 6871 . . . . . . 7 (𝐹‘1) ∈ V
205204fvconst2 7178 . . . . . 6 (𝑦 ∈ (0[,]1) → (((0[,]1) × {(𝐹‘1)})‘𝑦) = (𝐹‘1))
206205adantl 481 . . . . 5 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (((0[,]1) × {(𝐹‘1)})‘𝑦) = (𝐹‘1))
207203, 206eqtrid 2776 . . . 4 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝑃𝑦) = (𝐹‘1))
208185, 202, 2073eqtr4d 2774 . . 3 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (𝑦𝐻1) = (𝑃𝑦))
209 simpl 482 . . . . . . . . . . 11 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → 𝑠 = 0)
210209, 38eqbrtrdi 5146 . . . . . . . . . 10 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → 𝑠 ≤ (1 / 2))
211210iftrued 4496 . . . . . . . . 9 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = (1 − ((1 − 𝑡) · (2 · 𝑠))))
212 simpr 484 . . . . . . . . . . . 12 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → 𝑡 = 𝑦)
213212oveq2d 7403 . . . . . . . . . . 11 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → (1 − 𝑡) = (1 − 𝑦))
214209oveq2d 7403 . . . . . . . . . . . 12 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → (2 · 𝑠) = (2 · 0))
215 2t0e0 12350 . . . . . . . . . . . 12 (2 · 0) = 0
216214, 215eqtrdi 2780 . . . . . . . . . . 11 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → (2 · 𝑠) = 0)
217213, 216oveq12d 7405 . . . . . . . . . 10 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → ((1 − 𝑡) · (2 · 𝑠)) = ((1 − 𝑦) · 0))
218217oveq2d 7403 . . . . . . . . 9 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → (1 − ((1 − 𝑡) · (2 · 𝑠))) = (1 − ((1 − 𝑦) · 0)))
219211, 218eqtrd 2764 . . . . . . . 8 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = (1 − ((1 − 𝑦) · 0)))
220219fveq2d 6862 . . . . . . 7 ((𝑠 = 0 ∧ 𝑡 = 𝑦) → (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
221 fvex 6871 . . . . . . 7 (𝐹‘(1 − ((1 − 𝑦) · 0))) ∈ V
222220, 30, 221ovmpoa 7544 . . . . . 6 ((0 ∈ (0[,]1) ∧ 𝑦 ∈ (0[,]1)) → (0𝐻𝑦) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
223102, 222mpan 690 . . . . 5 (𝑦 ∈ (0[,]1) → (0𝐻𝑦) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
224 subcl 11420 . . . . . . . . . 10 ((1 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (1 − 𝑦) ∈ ℂ)
225150, 169, 224sylancr 587 . . . . . . . . 9 (𝑦 ∈ (0[,]1) → (1 − 𝑦) ∈ ℂ)
226225mul01d 11373 . . . . . . . 8 (𝑦 ∈ (0[,]1) → ((1 − 𝑦) · 0) = 0)
227226oveq2d 7403 . . . . . . 7 (𝑦 ∈ (0[,]1) → (1 − ((1 − 𝑦) · 0)) = (1 − 0))
228227, 54eqtrdi 2780 . . . . . 6 (𝑦 ∈ (0[,]1) → (1 − ((1 − 𝑦) · 0)) = 1)
229228fveq2d 6862 . . . . 5 (𝑦 ∈ (0[,]1) → (𝐹‘(1 − ((1 − 𝑦) · 0))) = (𝐹‘1))
230223, 229eqtrd 2764 . . . 4 (𝑦 ∈ (0[,]1) → (0𝐻𝑦) = (𝐹‘1))
2318, 6pco0 24914 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → ((𝐺(*𝑝𝐽)𝐹)‘0) = (𝐺‘0))
232 oveq2 7395 . . . . . . . . 9 (𝑥 = 0 → (1 − 𝑥) = (1 − 0))
233232, 54eqtrdi 2780 . . . . . . . 8 (𝑥 = 0 → (1 − 𝑥) = 1)
234233fveq2d 6862 . . . . . . 7 (𝑥 = 0 → (𝐹‘(1 − 𝑥)) = (𝐹‘1))
235234, 1, 204fvmpt 6968 . . . . . 6 (0 ∈ (0[,]1) → (𝐺‘0) = (𝐹‘1))
236102, 235ax-mp 5 . . . . 5 (𝐺‘0) = (𝐹‘1)
237231, 236eqtr2di 2781 . . . 4 (𝐹 ∈ (II Cn 𝐽) → (𝐹‘1) = ((𝐺(*𝑝𝐽)𝐹)‘0))
238230, 237sylan9eqr 2786 . . 3 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (0𝐻𝑦) = ((𝐺(*𝑝𝐽)𝐹)‘0))
23937, 39ltnlei 11295 . . . . . . . . . . . 12 ((1 / 2) < 1 ↔ ¬ 1 ≤ (1 / 2))
24040, 239mpbi 230 . . . . . . . . . . 11 ¬ 1 ≤ (1 / 2)
241 simpl 482 . . . . . . . . . . . 12 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → 𝑠 = 1)
242241breq1d 5117 . . . . . . . . . . 11 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (𝑠 ≤ (1 / 2) ↔ 1 ≤ (1 / 2)))
243240, 242mtbiri 327 . . . . . . . . . 10 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → ¬ 𝑠 ≤ (1 / 2))
244243iffalsed 4499 . . . . . . . . 9 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))
245 simpr 484 . . . . . . . . . . . 12 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → 𝑡 = 𝑦)
246245oveq2d 7403 . . . . . . . . . . 11 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (1 − 𝑡) = (1 − 𝑦))
247241oveq2d 7403 . . . . . . . . . . . . . . . 16 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (2 · 𝑠) = (2 · 1))
248 2t1e2 12344 . . . . . . . . . . . . . . . 16 (2 · 1) = 2
249247, 248eqtrdi 2780 . . . . . . . . . . . . . . 15 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (2 · 𝑠) = 2)
250249oveq1d 7402 . . . . . . . . . . . . . 14 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → ((2 · 𝑠) − 1) = (2 − 1))
251 2m1e1 12307 . . . . . . . . . . . . . 14 (2 − 1) = 1
252250, 251eqtrdi 2780 . . . . . . . . . . . . 13 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → ((2 · 𝑠) − 1) = 1)
253252oveq2d 7403 . . . . . . . . . . . 12 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (1 − ((2 · 𝑠) − 1)) = (1 − 1))
254253, 11eqtrdi 2780 . . . . . . . . . . 11 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (1 − ((2 · 𝑠) − 1)) = 0)
255246, 254oveq12d 7405 . . . . . . . . . 10 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))) = ((1 − 𝑦) · 0))
256255oveq2d 7403 . . . . . . . . 9 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))) = (1 − ((1 − 𝑦) · 0)))
257244, 256eqtrd 2764 . . . . . . . 8 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1))))) = (1 − ((1 − 𝑦) · 0)))
258257fveq2d 6862 . . . . . . 7 ((𝑠 = 1 ∧ 𝑡 = 𝑦) → (𝐹‘if(𝑠 ≤ (1 / 2), (1 − ((1 − 𝑡) · (2 · 𝑠))), (1 − ((1 − 𝑡) · (1 − ((2 · 𝑠) − 1)))))) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
259258, 30, 221ovmpoa 7544 . . . . . 6 ((1 ∈ (0[,]1) ∧ 𝑦 ∈ (0[,]1)) → (1𝐻𝑦) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
2609, 259mpan 690 . . . . 5 (𝑦 ∈ (0[,]1) → (1𝐻𝑦) = (𝐹‘(1 − ((1 − 𝑦) · 0))))
261260, 229eqtrd 2764 . . . 4 (𝑦 ∈ (0[,]1) → (1𝐻𝑦) = (𝐹‘1))
2628, 6pco1 24915 . . . . 5 (𝐹 ∈ (II Cn 𝐽) → ((𝐺(*𝑝𝐽)𝐹)‘1) = (𝐹‘1))
263262eqcomd 2735 . . . 4 (𝐹 ∈ (II Cn 𝐽) → (𝐹‘1) = ((𝐺(*𝑝𝐽)𝐹)‘1))
264261, 263sylan9eqr 2786 . . 3 ((𝐹 ∈ (II Cn 𝐽) ∧ 𝑦 ∈ (0[,]1)) → (1𝐻𝑦) = ((𝐺(*𝑝𝐽)𝐹)‘1))
26517, 29, 100, 167, 208, 238, 264isphtpy2d 24886 . 2 (𝐹 ∈ (II Cn 𝐽) → 𝐻 ∈ ((𝐺(*𝑝𝐽)𝐹)(PHtpy‘𝐽)𝑃))
266265ne0d 4305 . . 3 (𝐹 ∈ (II Cn 𝐽) → ((𝐺(*𝑝𝐽)𝐹)(PHtpy‘𝐽)𝑃) ≠ ∅)
267 isphtpc 24893 . . 3 ((𝐺(*𝑝𝐽)𝐹)( ≃ph𝐽)𝑃 ↔ ((𝐺(*𝑝𝐽)𝐹) ∈ (II Cn 𝐽) ∧ 𝑃 ∈ (II Cn 𝐽) ∧ ((𝐺(*𝑝𝐽)𝐹)(PHtpy‘𝐽)𝑃) ≠ ∅))
26817, 29, 266, 267syl3anbrc 1344 . 2 (𝐹 ∈ (II Cn 𝐽) → (𝐺(*𝑝𝐽)𝐹)( ≃ph𝐽)𝑃)
269265, 268jca 511 1 (𝐹 ∈ (II Cn 𝐽) → (𝐻 ∈ ((𝐺(*𝑝𝐽)𝐹)(PHtpy‘𝐽)𝑃) ∧ (𝐺(*𝑝𝐽)𝐹)( ≃ph𝐽)𝑃))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wss 3914  c0 4296  ifcif 4488  {csn 4589   cuni 4871   class class class wbr 5107  cmpt 5188   × cxp 5636  ran crn 5639  wf 6507  cfv 6511  (class class class)co 7387  cmpo 7389  cc 11066  cr 11067  0cc0 11068  1c1 11069   · cmul 11073   < clt 11208  cle 11209  cmin 11405   / cdiv 11835  2c2 12241  (,)cioo 13306  [,]cicc 13309  t crest 17383  topGenctg 17400  Topctop 22780  TopOnctopon 22797   Cn ccn 23111   ×t ctx 23447  IIcii 24768  PHtpycphtpy 24867  phcphtpc 24868  *𝑝cpco 24900
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-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-cnex 11124  ax-resscn 11125  ax-1cn 11126  ax-icn 11127  ax-addcl 11128  ax-addrcl 11129  ax-mulcl 11130  ax-mulrcl 11131  ax-mulcom 11132  ax-addass 11133  ax-mulass 11134  ax-distr 11135  ax-i2m1 11136  ax-1ne0 11137  ax-1rid 11138  ax-rnegex 11139  ax-rrecex 11140  ax-cnre 11141  ax-pre-lttri 11142  ax-pre-lttrn 11143  ax-pre-ltadd 11144  ax-pre-mulgt0 11145  ax-pre-sup 11146
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 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4872  df-int 4911  df-iun 4957  df-iin 4958  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-se 5592  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-isom 6520  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-of 7653  df-om 7843  df-1st 7968  df-2nd 7969  df-supp 8140  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-2o 8435  df-er 8671  df-map 8801  df-ixp 8871  df-en 8919  df-dom 8920  df-sdom 8921  df-fin 8922  df-fsupp 9313  df-fi 9362  df-sup 9393  df-inf 9394  df-oi 9463  df-card 9892  df-pnf 11210  df-mnf 11211  df-xr 11212  df-ltxr 11213  df-le 11214  df-sub 11407  df-neg 11408  df-div 11836  df-nn 12187  df-2 12249  df-3 12250  df-4 12251  df-5 12252  df-6 12253  df-7 12254  df-8 12255  df-9 12256  df-n0 12443  df-z 12530  df-dec 12650  df-uz 12794  df-q 12908  df-rp 12952  df-xneg 13072  df-xadd 13073  df-xmul 13074  df-ioo 13310  df-icc 13313  df-fz 13469  df-fzo 13616  df-seq 13967  df-exp 14027  df-hash 14296  df-cj 15065  df-re 15066  df-im 15067  df-sqrt 15201  df-abs 15202  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-starv 17235  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ds 17242  df-unif 17243  df-hom 17244  df-cco 17245  df-rest 17385  df-topn 17386  df-0g 17404  df-gsum 17405  df-topgen 17406  df-pt 17407  df-prds 17410  df-xrs 17465  df-qtop 17470  df-imas 17471  df-xps 17473  df-mre 17547  df-mrc 17548  df-acs 17550  df-mgm 18567  df-sgrp 18646  df-mnd 18662  df-submnd 18711  df-mulg 19000  df-cntz 19249  df-cmn 19712  df-psmet 21256  df-xmet 21257  df-met 21258  df-bl 21259  df-mopn 21260  df-cnfld 21265  df-top 22781  df-topon 22798  df-topsp 22820  df-bases 22833  df-cld 22906  df-cn 23114  df-cnp 23115  df-tx 23449  df-hmeo 23642  df-xms 24208  df-ms 24209  df-tms 24210  df-ii 24770  df-htpy 24869  df-phtpy 24870  df-phtpc 24891  df-pco 24905
This theorem is referenced by:  pcorev  24927
  Copyright terms: Public domain W3C validator