pi1xfr - Metamath Proof Explorer

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

Theorem pi1xfr 24933

Description: Given a path 𝐹 and its inverse 𝐼 between two basepoints, there is an induced group homomorphism on the fundamental groups. (Contributed by Mario Carneiro, 12-Feb-2015.)

**Hypotheses**
Ref	Expression
pi1xfr.p	⊢ 𝑃 = (𝐽 π₁ (𝐹‘0))
pi1xfr.q	⊢ 𝑄 = (𝐽 π₁ (𝐹‘1))
pi1xfr.b	⊢ 𝐵 = (Base‘𝑃)
pi1xfr.g	⊢ 𝐺 = ran (𝑔 ∈ ∪ 𝐵 ↦ ⟨[𝑔]( ≃_ph‘𝐽), [(𝐼(_𝑝‘𝐽)(𝑔(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)⟩)
pi1xfr.j	⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
pi1xfr.f	⊢ (𝜑 → 𝐹 ∈ (II Cn 𝐽))
pi1xfr.i	⊢ 𝐼 = (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥)))

**Assertion**
Ref	Expression
pi1xfr	⊢ (𝜑 → 𝐺 ∈ (𝑃 GrpHom 𝑄))

Distinct variable groups: 𝑥,𝑔,𝐵 𝑔,𝐹,𝑥 𝑔,𝐼,𝑥 𝜑,𝑔,𝑥 𝑔,𝐽,𝑥 𝑃,𝑔,𝑥 𝑄,𝑔,𝑥 Allowed substitution hints: 𝐺(𝑥,𝑔) 𝑋(𝑥,𝑔)

Proof of Theorem pi1xfr Dummy variables 𝑓 ℎ 𝑢 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pi1xfr.j	. . 3 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
2		iitopon 24750	. . . . 5 ⊢ II ∈ (TopOn‘(0[,]1))
3		pi1xfr.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (II Cn 𝐽))
4		cnf2 23104	. . . . 5 ⊢ ((II ∈ (TopOn‘(0[,]1)) ∧ 𝐽 ∈ (TopOn‘𝑋) ∧ 𝐹 ∈ (II Cn 𝐽)) → 𝐹:(0[,]1)⟶𝑋)
5	2, 1, 3, 4	mp3an2i 1462	. . . 4 ⊢ (𝜑 → 𝐹:(0[,]1)⟶𝑋)
6		0elunit 13449	. . . 4 ⊢ 0 ∈ (0[,]1)
7		ffvelcdm 7076	. . . 4 ⊢ ((𝐹:(0[,]1)⟶𝑋 ∧ 0 ∈ (0[,]1)) → (𝐹‘0) ∈ 𝑋)
8	5, 6, 7	sylancl 585	. . 3 ⊢ (𝜑 → (𝐹‘0) ∈ 𝑋)
9		pi1xfr.p	. . . 4 ⊢ 𝑃 = (𝐽 π₁ (𝐹‘0))
10	9	pi1grp 24928	. . 3 ⊢ ((𝐽 ∈ (TopOn‘𝑋) ∧ (𝐹‘0) ∈ 𝑋) → 𝑃 ∈ Grp)
11	1, 8, 10	syl2anc 583	. 2 ⊢ (𝜑 → 𝑃 ∈ Grp)
12		1elunit 13450	. . . 4 ⊢ 1 ∈ (0[,]1)
13		ffvelcdm 7076	. . . 4 ⊢ ((𝐹:(0[,]1)⟶𝑋 ∧ 1 ∈ (0[,]1)) → (𝐹‘1) ∈ 𝑋)
14	5, 12, 13	sylancl 585	. . 3 ⊢ (𝜑 → (𝐹‘1) ∈ 𝑋)
15		pi1xfr.q	. . . 4 ⊢ 𝑄 = (𝐽 π₁ (𝐹‘1))
16	15	pi1grp 24928	. . 3 ⊢ ((𝐽 ∈ (TopOn‘𝑋) ∧ (𝐹‘1) ∈ 𝑋) → 𝑄 ∈ Grp)
17	1, 14, 16	syl2anc 583	. 2 ⊢ (𝜑 → 𝑄 ∈ Grp)
18		pi1xfr.b	. . . 4 ⊢ 𝐵 = (Base‘𝑃)
19		pi1xfr.g	. . . 4 ⊢ 𝐺 = ran (𝑔 ∈ ∪ 𝐵 ↦ ⟨[𝑔]( ≃_ph‘𝐽), [(𝐼(_𝑝‘𝐽)(𝑔(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)⟩)
20		pi1xfr.i	. . . . . . 7 ⊢ 𝐼 = (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥)))
21	20	pcorevcl 24903	. . . . . 6 ⊢ (𝐹 ∈ (II Cn 𝐽) → (𝐼 ∈ (II Cn 𝐽) ∧ (𝐼‘0) = (𝐹‘1) ∧ (𝐼‘1) = (𝐹‘0)))
22	3, 21	syl 17	. . . . 5 ⊢ (𝜑 → (𝐼 ∈ (II Cn 𝐽) ∧ (𝐼‘0) = (𝐹‘1) ∧ (𝐼‘1) = (𝐹‘0)))
23	22	simp1d 1139	. . . 4 ⊢ (𝜑 → 𝐼 ∈ (II Cn 𝐽))
24	22	simp2d 1140	. . . . 5 ⊢ (𝜑 → (𝐼‘0) = (𝐹‘1))
25	24	eqcomd 2732	. . . 4 ⊢ (𝜑 → (𝐹‘1) = (𝐼‘0))
26	22	simp3d 1141	. . . 4 ⊢ (𝜑 → (𝐼‘1) = (𝐹‘0))
27	9, 15, 18, 19, 1, 3, 23, 25, 26	pi1xfrf 24931	. . 3 ⊢ (𝜑 → 𝐺:𝐵⟶(Base‘𝑄))
28	18	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝑃))
29	9, 1, 8, 28	pi1bas2 24919	. . . . . . 7 ⊢ (𝜑 → 𝐵 = (∪ 𝐵 / ( ≃_ph‘𝐽)))
30	29	eleq2d 2813	. . . . . 6 ⊢ (𝜑 → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽))))
31	30	biimpa 476	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽)))
32		eqid 2726	. . . . . 6 ⊢ (∪ 𝐵 / ( ≃_ph‘𝐽)) = (∪ 𝐵 / ( ≃_ph‘𝐽))
33		fvoveq1 7427	. . . . . . . 8 ⊢ ([𝑓]( ≃_ph‘𝐽) = 𝑦 → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = (𝐺‘(𝑦(+_g‘𝑃)𝑧)))
34		fveq2 6884	. . . . . . . . 9 ⊢ ([𝑓]( ≃_ph‘𝐽) = 𝑦 → (𝐺‘[𝑓]( ≃_ph‘𝐽)) = (𝐺‘𝑦))
35	34	oveq1d 7419	. . . . . . . 8 ⊢ ([𝑓]( ≃_ph‘𝐽) = 𝑦 → ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧)))
36	33, 35	eqeq12d 2742	. . . . . . 7 ⊢ ([𝑓]( ≃_ph‘𝐽) = 𝑦 → ((𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)) ↔ (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧))))
37	36	ralbidv 3171	. . . . . 6 ⊢ ([𝑓]( ≃_ph‘𝐽) = 𝑦 → (∀𝑧 ∈ 𝐵 (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)) ↔ ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧))))
38	29	eleq2d 2813	. . . . . . . . . 10 ⊢ (𝜑 → (𝑧 ∈ 𝐵 ↔ 𝑧 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽))))
39	38	biimpa 476	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽)))
40	39	adantlr 712	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽)))
41		oveq2 7412	. . . . . . . . . . 11 ⊢ ([ℎ]( ≃_ph‘𝐽) = 𝑧 → ([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽)) = ([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧))
42	41	fveq2d 6888	. . . . . . . . . 10 ⊢ ([ℎ]( ≃_ph‘𝐽) = 𝑧 → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽))) = (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)))
43		fveq2 6884	. . . . . . . . . . 11 ⊢ ([ℎ]( ≃_ph‘𝐽) = 𝑧 → (𝐺‘[ℎ]( ≃_ph‘𝐽)) = (𝐺‘𝑧))
44	43	oveq2d 7420	. . . . . . . . . 10 ⊢ ([ℎ]( ≃_ph‘𝐽) = 𝑧 → ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘[ℎ]( ≃_ph‘𝐽))) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)))
45	42, 44	eqeq12d 2742	. . . . . . . . 9 ⊢ ([ℎ]( ≃_ph‘𝐽) = 𝑧 → ((𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽))) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘[ℎ]( ≃_ph‘𝐽))) ↔ (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧))))
46		phtpcer 24872	. . . . . . . . . . . . . 14 ⊢ ( ≃_ph‘𝐽) Er (II Cn 𝐽)
47	46	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ( ≃_ph‘𝐽) Er (II Cn 𝐽))
48	9, 1, 8, 28	pi1eluni 24920	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑓 ∈ ∪ 𝐵 ↔ (𝑓 ∈ (II Cn 𝐽) ∧ (𝑓‘0) = (𝐹‘0) ∧ (𝑓‘1) = (𝐹‘0))))
49	48	biimpa 476	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝑓 ∈ (II Cn 𝐽) ∧ (𝑓‘0) = (𝐹‘0) ∧ (𝑓‘1) = (𝐹‘0)))
50	49	simp1d 1139	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → 𝑓 ∈ (II Cn 𝐽))
51	50	3adant3 1129	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝑓 ∈ (II Cn 𝐽))
52	9, 1, 8, 28	pi1eluni 24920	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (ℎ ∈ ∪ 𝐵 ↔ (ℎ ∈ (II Cn 𝐽) ∧ (ℎ‘0) = (𝐹‘0) ∧ (ℎ‘1) = (𝐹‘0))))
53	52	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (ℎ ∈ ∪ 𝐵 ↔ (ℎ ∈ (II Cn 𝐽) ∧ (ℎ‘0) = (𝐹‘0) ∧ (ℎ‘1) = (𝐹‘0))))
54	53	biimp3a 1465	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ ∈ (II Cn 𝐽) ∧ (ℎ‘0) = (𝐹‘0) ∧ (ℎ‘1) = (𝐹‘0)))
55	54	simp1d 1139	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ℎ ∈ (II Cn 𝐽))
56	51, 55	pco0 24892	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)ℎ)‘0) = (𝑓‘0))
57	49	simp2d 1140	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝑓‘0) = (𝐹‘0))
58	57	3adant3 1129	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓‘0) = (𝐹‘0))
59	56, 58	eqtrd 2766	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)ℎ)‘0) = (𝐹‘0))
60	49	simp3d 1141	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝑓‘1) = (𝐹‘0))
61	60	3adant3 1129	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓‘1) = (𝐹‘0))
62	54	simp2d 1140	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ‘0) = (𝐹‘0))
63	61, 62	eqtr4d 2769	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓‘1) = (ℎ‘0))
64	51, 55, 63	pcocn 24895	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓(*_𝑝‘𝐽)ℎ) ∈ (II Cn 𝐽))
65	3	3ad2ant1 1130	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝐹 ∈ (II Cn 𝐽))
66	64, 65	pco0 24892	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹)‘0) = ((𝑓(*_𝑝‘𝐽)ℎ)‘0))
67	26	3ad2ant1 1130	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼‘1) = (𝐹‘0))
68	59, 66, 67	3eqtr4rd 2777	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼‘1) = (((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹)‘0))
69	23	3ad2ant1 1130	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝐼 ∈ (II Cn 𝐽))
70	47, 69	erref 8722	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝐼( ≃_ph‘𝐽)𝐼)
71	54	simp3d 1141	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ‘1) = (𝐹‘0))
72		eqid 2726	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∈ (0[,]1) ↦ if(𝑢 ≤ (1 / 2), if(𝑢 ≤ (1 / 4), (2 · 𝑢), (𝑢 + (1 / 4))), ((𝑢 / 2) + (1 / 2)))) = (𝑢 ∈ (0[,]1) ↦ if(𝑢 ≤ (1 / 2), if(𝑢 ≤ (1 / 4), (2 · 𝑢), (𝑢 + (1 / 4))), ((𝑢 / 2) + (1 / 2))))
73	51, 55, 65, 63, 71, 72	pcoass 24902	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹)( ≃_ph‘𝐽)(𝑓(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))
74	55, 65	pco0 24892	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((ℎ(*_𝑝‘𝐽)𝐹)‘0) = (ℎ‘0))
75	63, 74	eqtr4d 2769	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓‘1) = ((ℎ(*_𝑝‘𝐽)𝐹)‘0))
76	47, 51	erref 8722	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝑓( ≃_ph‘𝐽)𝑓)
77	65, 69	pco1 24893	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐹(*_𝑝‘𝐽)𝐼)‘1) = (𝐼‘1))
78	62, 74, 67	3eqtr4rd 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼‘1) = ((ℎ(*_𝑝‘𝐽)𝐹)‘0))
79	77, 78	eqtrd 2766	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐹(_𝑝‘𝐽)𝐼)‘1) = ((ℎ(_𝑝‘𝐽)𝐹)‘0))
80		eqid 2726	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((0[,]1) × {(𝐹‘0)}) = ((0[,]1) × {(𝐹‘0)})
81	20, 80	pcorev2 24906	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐹 ∈ (II Cn 𝐽) → (𝐹(*_𝑝‘𝐽)𝐼)( ≃_ph‘𝐽)((0[,]1) × {(𝐹‘0)}))
82	65, 81	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐹(*_𝑝‘𝐽)𝐼)( ≃_ph‘𝐽)((0[,]1) × {(𝐹‘0)}))
83	55, 65, 71	pcocn 24895	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ(*_𝑝‘𝐽)𝐹) ∈ (II Cn 𝐽))
84	47, 83	erref 8722	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ(_𝑝‘𝐽)𝐹)( ≃_ph‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))
85	79, 82, 84	pcohtpy 24898	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐹(_𝑝‘𝐽)𝐼)(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(((0[,]1) × {(𝐹‘0)})(_𝑝‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹)))
86	74, 62	eqtrd 2766	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((ℎ(*_𝑝‘𝐽)𝐹)‘0) = (𝐹‘0))
87	80	pcopt 24900	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((ℎ(_𝑝‘𝐽)𝐹) ∈ (II Cn 𝐽) ∧ ((ℎ(_𝑝‘𝐽)𝐹)‘0) = (𝐹‘0)) → (((0[,]1) × {(𝐹‘0)})(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹))
88	83, 86, 87	syl2anc 583	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (((0[,]1) × {(𝐹‘0)})(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹))
89	47, 85, 88	ertrd 8718	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐹(_𝑝‘𝐽)𝐼)(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))
90	24	3ad2ant1 1130	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼‘0) = (𝐹‘1))
91	90	eqcomd 2732	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐹‘1) = (𝐼‘0))
92	65, 69, 83, 91, 78, 72	pcoass 24902	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐹(_𝑝‘𝐽)𝐼)(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(𝐹(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))))
93	47, 89, 92	ertr3d 8720	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (ℎ(_𝑝‘𝐽)𝐹)( ≃_ph‘𝐽)(𝐹(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))))
94	75, 76, 93	pcohtpy 24898	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(𝑓(_𝑝‘𝐽)(𝐹(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))))
95	69, 83, 78	pcocn 24895	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)) ∈ (II Cn 𝐽))
96	69, 83	pco0 24892	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘0) = (𝐼‘0))
97	96, 90	eqtrd 2766	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘0) = (𝐹‘1))
98	97	eqcomd 2732	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐹‘1) = ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘0))
99	51, 65, 95, 61, 98, 72	pcoass 24902	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(_𝑝‘𝐽)𝐹)(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))( ≃_ph‘𝐽)(𝑓(_𝑝‘𝐽)(𝐹(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))))
100	47, 94, 99	ertr4d 8721	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)((𝑓(_𝑝‘𝐽)𝐹)(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))))
101	47, 73, 100	ertrd 8718	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹)( ≃_ph‘𝐽)((𝑓(_𝑝‘𝐽)𝐹)(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))))
102	68, 70, 101	pcohtpy 24898	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)(𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)𝐹)(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))))
103	3	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → 𝐹 ∈ (II Cn 𝐽))
104	50, 103, 60	pcocn 24895	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝑓(*_𝑝‘𝐽)𝐹) ∈ (II Cn 𝐽))
105	104	3adant3 1129	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓(*_𝑝‘𝐽)𝐹) ∈ (II Cn 𝐽))
106	50, 103	pco0 24892	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)𝐹)‘0) = (𝑓‘0))
107	26	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐼‘1) = (𝐹‘0))
108	57, 106, 107	3eqtr4rd 2777	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐼‘1) = ((𝑓(*_𝑝‘𝐽)𝐹)‘0))
109	108	3adant3 1129	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼‘1) = ((𝑓(*_𝑝‘𝐽)𝐹)‘0))
110	51, 65	pco1 24893	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)𝐹)‘1) = (𝐹‘1))
111	110, 97	eqtr4d 2769	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(_𝑝‘𝐽)𝐹)‘1) = ((𝐼(_𝑝‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹))‘0))
112	69, 105, 95, 109, 111, 72	pcoass 24902	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))( ≃_ph‘𝐽)(𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)𝐹)(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))))
113	47, 102, 112	ertr4d 8721	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹))( ≃_ph‘𝐽)((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))))
114	47, 113	erthi 8753	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → [(𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽) = [((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)))]( ≃_ph‘𝐽))
115	1	3ad2ant1 1130	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝐽 ∈ (TopOn‘𝑋))
116	51, 55	pco1 24893	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)ℎ)‘1) = (ℎ‘1))
117	116, 71	eqtrd 2766	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)ℎ)‘1) = (𝐹‘0))
118	9, 1, 8, 28	pi1eluni 24920	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑓(_𝑝‘𝐽)ℎ) ∈ ∪ 𝐵 ↔ ((𝑓(_𝑝‘𝐽)ℎ) ∈ (II Cn 𝐽) ∧ ((𝑓(_𝑝‘𝐽)ℎ)‘0) = (𝐹‘0) ∧ ((𝑓(_𝑝‘𝐽)ℎ)‘1) = (𝐹‘0))))
119	118	3ad2ant1 1130	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝑓(_𝑝‘𝐽)ℎ) ∈ ∪ 𝐵 ↔ ((𝑓(_𝑝‘𝐽)ℎ) ∈ (II Cn 𝐽) ∧ ((𝑓(_𝑝‘𝐽)ℎ)‘0) = (𝐹‘0) ∧ ((𝑓(_𝑝‘𝐽)ℎ)‘1) = (𝐹‘0))))
120	64, 59, 117, 119	mpbir3and 1339	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝑓(*_𝑝‘𝐽)ℎ) ∈ ∪ 𝐵)
121	9, 15, 18, 19, 115, 65, 69, 91, 67, 120	pi1xfrval 24932	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘[(𝑓(_𝑝‘𝐽)ℎ)]( ≃_ph‘𝐽)) = [(𝐼(_𝑝‘𝐽)((𝑓(_𝑝‘𝐽)ℎ)(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽))
122		eqid 2726	. . . . . . . . . . . . 13 ⊢ (Base‘𝑄) = (Base‘𝑄)
123	14	3ad2ant1 1130	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐹‘1) ∈ 𝑋)
124		eqid 2726	. . . . . . . . . . . . 13 ⊢ (+_g‘𝑄) = (+_g‘𝑄)
125	23	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → 𝐼 ∈ (II Cn 𝐽))
126	125, 104, 108	pcocn 24895	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹)) ∈ (II Cn 𝐽))
127	126	3adant3 1129	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹)) ∈ (II Cn 𝐽))
128	125, 104	pco0 24892	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘0) = (𝐼‘0))
129	24	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐼‘0) = (𝐹‘1))
130	128, 129	eqtrd 2766	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘0) = (𝐹‘1))
131	130	3adant3 1129	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘0) = (𝐹‘1))
132	125, 104	pco1 24893	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘1) = ((𝑓(*_𝑝‘𝐽)𝐹)‘1))
133	50, 103	pco1 24893	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝑓(*_𝑝‘𝐽)𝐹)‘1) = (𝐹‘1))
134	132, 133	eqtrd 2766	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘1) = (𝐹‘1))
135	134	3adant3 1129	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘1) = (𝐹‘1))
136		eqidd 2727	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (Base‘𝑄) = (Base‘𝑄))
137	15, 115, 123, 136	pi1eluni 24920	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹)) ∈ ∪ (Base‘𝑄) ↔ ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹)) ∈ (II Cn 𝐽) ∧ ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘0) = (𝐹‘1) ∧ ((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))‘1) = (𝐹‘1))))
138	127, 131, 135, 137	mpbir3and 1339	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹)) ∈ ∪ (Base‘𝑄))
139	69, 83	pco1 24893	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘1) = ((ℎ(*_𝑝‘𝐽)𝐹)‘1))
140	55, 65	pco1 24893	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((ℎ(*_𝑝‘𝐽)𝐹)‘1) = (𝐹‘1))
141	139, 140	eqtrd 2766	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘1) = (𝐹‘1))
142	15, 115, 123, 136	pi1eluni 24920	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)) ∈ ∪ (Base‘𝑄) ↔ ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)) ∈ (II Cn 𝐽) ∧ ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘0) = (𝐹‘1) ∧ ((𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))‘1) = (𝐹‘1))))
143	95, 97, 141, 142	mpbir3and 1339	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹)) ∈ ∪ (Base‘𝑄))
144	15, 122, 115, 123, 124, 138, 143	pi1addval 24926	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ([(𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)(+_g‘𝑄)[(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)) = [((𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))(_𝑝‘𝐽)(𝐼(_𝑝‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹)))]( ≃_ph‘𝐽))
145	114, 121, 144	3eqtr4d 2776	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘[(𝑓(_𝑝‘𝐽)ℎ)]( ≃_ph‘𝐽)) = ([(𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)(+_g‘𝑄)[(𝐼(_𝑝‘𝐽)(ℎ(*_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)))
146	8	3ad2ant1 1130	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐹‘0) ∈ 𝑋)
147		eqid 2726	. . . . . . . . . . . . 13 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
148		simp2 1134	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → 𝑓 ∈ ∪ 𝐵)
149		simp3 1135	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ℎ ∈ ∪ 𝐵)
150	9, 18, 115, 146, 147, 148, 149	pi1addval 24926	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽)) = [(𝑓(*_𝑝‘𝐽)ℎ)]( ≃_ph‘𝐽))
151	150	fveq2d 6888	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽))) = (𝐺‘[(𝑓(*_𝑝‘𝐽)ℎ)]( ≃_ph‘𝐽)))
152	1	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → 𝐽 ∈ (TopOn‘𝑋))
153	25	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐹‘1) = (𝐼‘0))
154		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → 𝑓 ∈ ∪ 𝐵)
155	9, 15, 18, 19, 152, 103, 125, 153, 107, 154	pi1xfrval 24932	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → (𝐺‘[𝑓]( ≃_ph‘𝐽)) = [(𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽))
156	155	3adant3 1129	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘[𝑓]( ≃_ph‘𝐽)) = [(𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽))
157	9, 15, 18, 19, 115, 65, 69, 91, 67, 149	pi1xfrval 24932	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘[ℎ]( ≃_ph‘𝐽)) = [(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽))
158	156, 157	oveq12d 7422	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘[ℎ]( ≃_ph‘𝐽))) = ([(𝐼(_𝑝‘𝐽)(𝑓(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)(+_g‘𝑄)[(𝐼(_𝑝‘𝐽)(ℎ(_𝑝‘𝐽)𝐹))]( ≃_ph‘𝐽)))
159	145, 151, 158	3eqtr4d 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵 ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽))) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘[ℎ]( ≃_ph‘𝐽))))
160	159	3expa 1115	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) ∧ ℎ ∈ ∪ 𝐵) → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)[ℎ]( ≃_ph‘𝐽))) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘[ℎ]( ≃_ph‘𝐽))))
161	32, 45, 160	ectocld 8777	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) ∧ 𝑧 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽))) → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)))
162	40, 161	syldan 590	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)))
163	162	ralrimiva 3140	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ ∪ 𝐵) → ∀𝑧 ∈ 𝐵 (𝐺‘([𝑓]( ≃_ph‘𝐽)(+_g‘𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃_ph‘𝐽))(+_g‘𝑄)(𝐺‘𝑧)))
164	32, 37, 163	ectocld 8777	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (∪ 𝐵 / ( ≃_ph‘𝐽))) → ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧)))
165	31, 164	syldan 590	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐵) → ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧)))
166	165	ralrimiva 3140	. . 3 ⊢ (𝜑 → ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧)))
167	27, 166	jca 511	. 2 ⊢ (𝜑 → (𝐺:𝐵⟶(Base‘𝑄) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧))))
168	18, 122, 147, 124	isghm 19139	. 2 ⊢ (𝐺 ∈ (𝑃 GrpHom 𝑄) ↔ ((𝑃 ∈ Grp ∧ 𝑄 ∈ Grp) ∧ (𝐺:𝐵⟶(Base‘𝑄) ∧ ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 (𝐺‘(𝑦(+_g‘𝑃)𝑧)) = ((𝐺‘𝑦)(+_g‘𝑄)(𝐺‘𝑧)))))
169	11, 17, 167, 168	syl21anbrc 1341	1 ⊢ (𝜑 → 𝐺 ∈ (𝑃 GrpHom 𝑄))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1084 = wceq 1533 ∈ wcel 2098 ∀wral 3055 ifcif 4523 {csn 4623 ⟨cop 4629 ∪ cuni 4902 class class class wbr 5141 ↦ cmpt 5224 × cxp 5667 ran crn 5670 ⟶wf 6532 ‘cfv 6536 (class class class)co 7404 Er wer 8699 [cec 8700 / cqs 8701 0cc0 11109 1c1 11110 + caddc 11112 · cmul 11114 ≤ cle 11250 − cmin 11445 / cdiv 11872 2c2 12268 4c4 12270 [,]cicc 13330 Basecbs 17151 +_gcplusg 17204 Grpcgrp 18861 GrpHom cghm 19136 TopOnctopon 22763 Cn ccn 23079 IIcii 24746 ≃_phcphtpc 24846 *_𝑝cpco 24878 π₁ cpi1 24881

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2697 ax-rep 5278 ax-sep 5292 ax-nul 5299 ax-pow 5356 ax-pr 5420 ax-un 7721 ax-cnex 11165 ax-resscn 11166 ax-1cn 11167 ax-icn 11168 ax-addcl 11169 ax-addrcl 11170 ax-mulcl 11171 ax-mulrcl 11172 ax-mulcom 11173 ax-addass 11174 ax-mulass 11175 ax-distr 11176 ax-i2m1 11177 ax-1ne0 11178 ax-1rid 11179 ax-rnegex 11180 ax-rrecex 11181 ax-cnre 11182 ax-pre-lttri 11183 ax-pre-lttrn 11184 ax-pre-ltadd 11185 ax-pre-mulgt0 11186 ax-pre-sup 11187 ax-addf 11188

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2704 df-cleq 2718 df-clel 2804 df-nfc 2879 df-ne 2935 df-nel 3041 df-ral 3056 df-rex 3065 df-rmo 3370 df-reu 3371 df-rab 3427 df-v 3470 df-sbc 3773 df-csb 3889 df-dif 3946 df-un 3948 df-in 3950 df-ss 3960 df-pss 3962 df-nul 4318 df-if 4524 df-pw 4599 df-sn 4624 df-pr 4626 df-tp 4628 df-op 4630 df-uni 4903 df-int 4944 df-iun 4992 df-iin 4993 df-br 5142 df-opab 5204 df-mpt 5225 df-tr 5259 df-id 5567 df-eprel 5573 df-po 5581 df-so 5582 df-fr 5624 df-se 5625 df-we 5626 df-xp 5675 df-rel 5676 df-cnv 5677 df-co 5678 df-dm 5679 df-rn 5680 df-res 5681 df-ima 5682 df-pred 6293 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6488 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7360 df-ov 7407 df-oprab 7408 df-mpo 7409 df-of 7666 df-om 7852 df-1st 7971 df-2nd 7972 df-supp 8144 df-frecs 8264 df-wrecs 8295 df-recs 8369 df-rdg 8408 df-1o 8464 df-2o 8465 df-er 8702 df-ec 8704 df-qs 8708 df-map 8821 df-ixp 8891 df-en 8939 df-dom 8940 df-sdom 8941 df-fin 8942 df-fsupp 9361 df-fi 9405 df-sup 9436 df-inf 9437 df-oi 9504 df-card 9933 df-pnf 11251 df-mnf 11252 df-xr 11253 df-ltxr 11254 df-le 11255 df-sub 11447 df-neg 11448 df-div 11873 df-nn 12214 df-2 12276 df-3 12277 df-4 12278 df-5 12279 df-6 12280 df-7 12281 df-8 12282 df-9 12283 df-n0 12474 df-z 12560 df-dec 12679 df-uz 12824 df-q 12934 df-rp 12978 df-xneg 13095 df-xadd 13096 df-xmul 13097 df-ioo 13331 df-icc 13334 df-fz 13488 df-fzo 13631 df-seq 13970 df-exp 14031 df-hash 14294 df-cj 15050 df-re 15051 df-im 15052 df-sqrt 15186 df-abs 15187 df-struct 17087 df-sets 17104 df-slot 17122 df-ndx 17134 df-base 17152 df-ress 17181 df-plusg 17217 df-mulr 17218 df-starv 17219 df-sca 17220 df-vsca 17221 df-ip 17222 df-tset 17223 df-ple 17224 df-ds 17226 df-unif 17227 df-hom 17228 df-cco 17229 df-rest 17375 df-topn 17376 df-0g 17394 df-gsum 17395 df-topgen 17396 df-pt 17397 df-prds 17400 df-xrs 17455 df-qtop 17460 df-imas 17461 df-qus 17462 df-xps 17463 df-mre 17537 df-mrc 17538 df-acs 17540 df-mgm 18571 df-sgrp 18650 df-mnd 18666 df-submnd 18712 df-grp 18864 df-mulg 18994 df-ghm 19137 df-cntz 19231 df-cmn 19700 df-psmet 21228 df-xmet 21229 df-met 21230 df-bl 21231 df-mopn 21232 df-cnfld 21237 df-top 22747 df-topon 22764 df-topsp 22786 df-bases 22800 df-cld 22874 df-cn 23082 df-cnp 23083 df-tx 23417 df-hmeo 23610 df-xms 24177 df-ms 24178 df-tms 24179 df-ii 24748 df-htpy 24847 df-phtpy 24848 df-phtpc 24869 df-pco 24883 df-om1 24884 df-pi1 24886

This theorem is referenced by: pi1xfrcnv 24935 pi1xfrgim 24936

W3C validator