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

Theorem pi1xfr 24418
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 𝑃 = (𝐽 π1 (𝐹‘0))
pi1xfr.q 𝑄 = (𝐽 π1 (𝐹‘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.
StepHypRef Expression
1 pi1xfr.j . . 3 (𝜑𝐽 ∈ (TopOn‘𝑋))
2 iitopon 24242 . . . . 5 II ∈ (TopOn‘(0[,]1))
3 pi1xfr.f . . . . 5 (𝜑𝐹 ∈ (II Cn 𝐽))
4 cnf2 22600 . . . . 5 ((II ∈ (TopOn‘(0[,]1)) ∧ 𝐽 ∈ (TopOn‘𝑋) ∧ 𝐹 ∈ (II Cn 𝐽)) → 𝐹:(0[,]1)⟶𝑋)
52, 1, 3, 4mp3an2i 1466 . . . 4 (𝜑𝐹:(0[,]1)⟶𝑋)
6 0elunit 13386 . . . 4 0 ∈ (0[,]1)
7 ffvelcdm 7032 . . . 4 ((𝐹:(0[,]1)⟶𝑋 ∧ 0 ∈ (0[,]1)) → (𝐹‘0) ∈ 𝑋)
85, 6, 7sylancl 586 . . 3 (𝜑 → (𝐹‘0) ∈ 𝑋)
9 pi1xfr.p . . . 4 𝑃 = (𝐽 π1 (𝐹‘0))
109pi1grp 24413 . . 3 ((𝐽 ∈ (TopOn‘𝑋) ∧ (𝐹‘0) ∈ 𝑋) → 𝑃 ∈ Grp)
111, 8, 10syl2anc 584 . 2 (𝜑𝑃 ∈ Grp)
12 1elunit 13387 . . . 4 1 ∈ (0[,]1)
13 ffvelcdm 7032 . . . 4 ((𝐹:(0[,]1)⟶𝑋 ∧ 1 ∈ (0[,]1)) → (𝐹‘1) ∈ 𝑋)
145, 12, 13sylancl 586 . . 3 (𝜑 → (𝐹‘1) ∈ 𝑋)
15 pi1xfr.q . . . 4 𝑄 = (𝐽 π1 (𝐹‘1))
1615pi1grp 24413 . . 3 ((𝐽 ∈ (TopOn‘𝑋) ∧ (𝐹‘1) ∈ 𝑋) → 𝑄 ∈ Grp)
171, 14, 16syl2anc 584 . 2 (𝜑𝑄 ∈ Grp)
18 pi1xfr.b . . . 4 𝐵 = (Base‘𝑃)
19 pi1xfr.g . . . 4 𝐺 = ran (𝑔 𝐵 ↦ ⟨[𝑔]( ≃ph𝐽), [(𝐼(*𝑝𝐽)(𝑔(*𝑝𝐽)𝐹))]( ≃ph𝐽)⟩)
20 pi1xfr.i . . . . . . 7 𝐼 = (𝑥 ∈ (0[,]1) ↦ (𝐹‘(1 − 𝑥)))
2120pcorevcl 24388 . . . . . 6 (𝐹 ∈ (II Cn 𝐽) → (𝐼 ∈ (II Cn 𝐽) ∧ (𝐼‘0) = (𝐹‘1) ∧ (𝐼‘1) = (𝐹‘0)))
223, 21syl 17 . . . . 5 (𝜑 → (𝐼 ∈ (II Cn 𝐽) ∧ (𝐼‘0) = (𝐹‘1) ∧ (𝐼‘1) = (𝐹‘0)))
2322simp1d 1142 . . . 4 (𝜑𝐼 ∈ (II Cn 𝐽))
2422simp2d 1143 . . . . 5 (𝜑 → (𝐼‘0) = (𝐹‘1))
2524eqcomd 2742 . . . 4 (𝜑 → (𝐹‘1) = (𝐼‘0))
2622simp3d 1144 . . . 4 (𝜑 → (𝐼‘1) = (𝐹‘0))
279, 15, 18, 19, 1, 3, 23, 25, 26pi1xfrf 24416 . . 3 (𝜑𝐺:𝐵⟶(Base‘𝑄))
2818a1i 11 . . . . . . . 8 (𝜑𝐵 = (Base‘𝑃))
299, 1, 8, 28pi1bas2 24404 . . . . . . 7 (𝜑𝐵 = ( 𝐵 / ( ≃ph𝐽)))
3029eleq2d 2823 . . . . . 6 (𝜑 → (𝑦𝐵𝑦 ∈ ( 𝐵 / ( ≃ph𝐽))))
3130biimpa 477 . . . . 5 ((𝜑𝑦𝐵) → 𝑦 ∈ ( 𝐵 / ( ≃ph𝐽)))
32 eqid 2736 . . . . . 6 ( 𝐵 / ( ≃ph𝐽)) = ( 𝐵 / ( ≃ph𝐽))
33 fvoveq1 7380 . . . . . . . 8 ([𝑓]( ≃ph𝐽) = 𝑦 → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = (𝐺‘(𝑦(+g𝑃)𝑧)))
34 fveq2 6842 . . . . . . . . 9 ([𝑓]( ≃ph𝐽) = 𝑦 → (𝐺‘[𝑓]( ≃ph𝐽)) = (𝐺𝑦))
3534oveq1d 7372 . . . . . . . 8 ([𝑓]( ≃ph𝐽) = 𝑦 → ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧)))
3633, 35eqeq12d 2752 . . . . . . 7 ([𝑓]( ≃ph𝐽) = 𝑦 → ((𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)) ↔ (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧))))
3736ralbidv 3174 . . . . . 6 ([𝑓]( ≃ph𝐽) = 𝑦 → (∀𝑧𝐵 (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)) ↔ ∀𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧))))
3829eleq2d 2823 . . . . . . . . . 10 (𝜑 → (𝑧𝐵𝑧 ∈ ( 𝐵 / ( ≃ph𝐽))))
3938biimpa 477 . . . . . . . . 9 ((𝜑𝑧𝐵) → 𝑧 ∈ ( 𝐵 / ( ≃ph𝐽)))
4039adantlr 713 . . . . . . . 8 (((𝜑𝑓 𝐵) ∧ 𝑧𝐵) → 𝑧 ∈ ( 𝐵 / ( ≃ph𝐽)))
41 oveq2 7365 . . . . . . . . . . 11 ([]( ≃ph𝐽) = 𝑧 → ([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽)) = ([𝑓]( ≃ph𝐽)(+g𝑃)𝑧))
4241fveq2d 6846 . . . . . . . . . 10 ([]( ≃ph𝐽) = 𝑧 → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽))) = (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)))
43 fveq2 6842 . . . . . . . . . . 11 ([]( ≃ph𝐽) = 𝑧 → (𝐺‘[]( ≃ph𝐽)) = (𝐺𝑧))
4443oveq2d 7373 . . . . . . . . . 10 ([]( ≃ph𝐽) = 𝑧 → ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺‘[]( ≃ph𝐽))) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)))
4542, 44eqeq12d 2752 . . . . . . . . 9 ([]( ≃ph𝐽) = 𝑧 → ((𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽))) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺‘[]( ≃ph𝐽))) ↔ (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧))))
46 phtpcer 24358 . . . . . . . . . . . . . 14 ( ≃ph𝐽) Er (II Cn 𝐽)
4746a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → ( ≃ph𝐽) Er (II Cn 𝐽))
489, 1, 8, 28pi1eluni 24405 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝑓 𝐵 ↔ (𝑓 ∈ (II Cn 𝐽) ∧ (𝑓‘0) = (𝐹‘0) ∧ (𝑓‘1) = (𝐹‘0))))
4948biimpa 477 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵) → (𝑓 ∈ (II Cn 𝐽) ∧ (𝑓‘0) = (𝐹‘0) ∧ (𝑓‘1) = (𝐹‘0)))
5049simp1d 1142 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵) → 𝑓 ∈ (II Cn 𝐽))
51503adant3 1132 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → 𝑓 ∈ (II Cn 𝐽))
529, 1, 8, 28pi1eluni 24405 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ( 𝐵 ↔ ( ∈ (II Cn 𝐽) ∧ (‘0) = (𝐹‘0) ∧ (‘1) = (𝐹‘0))))
5352adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵) → ( 𝐵 ↔ ( ∈ (II Cn 𝐽) ∧ (‘0) = (𝐹‘0) ∧ (‘1) = (𝐹‘0))))
5453biimp3a 1469 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → ( ∈ (II Cn 𝐽) ∧ (‘0) = (𝐹‘0) ∧ (‘1) = (𝐹‘0)))
5554simp1d 1142 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → ∈ (II Cn 𝐽))
5651, 55pco0 24377 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))‘0) = (𝑓‘0))
5749simp2d 1143 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵) → (𝑓‘0) = (𝐹‘0))
58573adant3 1132 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → (𝑓‘0) = (𝐹‘0))
5956, 58eqtrd 2776 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))‘0) = (𝐹‘0))
6049simp3d 1144 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵) → (𝑓‘1) = (𝐹‘0))
61603adant3 1132 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → (𝑓‘1) = (𝐹‘0))
6254simp2d 1143 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → (‘0) = (𝐹‘0))
6361, 62eqtr4d 2779 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → (𝑓‘1) = (‘0))
6451, 55, 63pcocn 24380 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → (𝑓(*𝑝𝐽)) ∈ (II Cn 𝐽))
6533ad2ant1 1133 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → 𝐹 ∈ (II Cn 𝐽))
6664, 65pco0 24377 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → (((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹)‘0) = ((𝑓(*𝑝𝐽))‘0))
67263ad2ant1 1133 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → (𝐼‘1) = (𝐹‘0))
6859, 66, 673eqtr4rd 2787 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → (𝐼‘1) = (((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹)‘0))
69233ad2ant1 1133 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → 𝐼 ∈ (II Cn 𝐽))
7047, 69erref 8668 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → 𝐼( ≃ph𝐽)𝐼)
7154simp3d 1144 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → (‘1) = (𝐹‘0))
72 eqid 2736 . . . . . . . . . . . . . . . . 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))))
7351, 55, 65, 63, 71, 72pcoass 24387 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹)( ≃ph𝐽)(𝑓(*𝑝𝐽)((*𝑝𝐽)𝐹)))
7455, 65pco0 24377 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → (((*𝑝𝐽)𝐹)‘0) = (‘0))
7563, 74eqtr4d 2779 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → (𝑓‘1) = (((*𝑝𝐽)𝐹)‘0))
7647, 51erref 8668 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → 𝑓( ≃ph𝐽)𝑓)
7765, 69pco1 24378 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑓 𝐵 𝐵) → ((𝐹(*𝑝𝐽)𝐼)‘1) = (𝐼‘1))
7862, 74, 673eqtr4rd 2787 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑓 𝐵 𝐵) → (𝐼‘1) = (((*𝑝𝐽)𝐹)‘0))
7977, 78eqtrd 2776 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑓 𝐵 𝐵) → ((𝐹(*𝑝𝐽)𝐼)‘1) = (((*𝑝𝐽)𝐹)‘0))
80 eqid 2736 . . . . . . . . . . . . . . . . . . . . . . 23 ((0[,]1) × {(𝐹‘0)}) = ((0[,]1) × {(𝐹‘0)})
8120, 80pcorev2 24391 . . . . . . . . . . . . . . . . . . . . . 22 (𝐹 ∈ (II Cn 𝐽) → (𝐹(*𝑝𝐽)𝐼)( ≃ph𝐽)((0[,]1) × {(𝐹‘0)}))
8265, 81syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑓 𝐵 𝐵) → (𝐹(*𝑝𝐽)𝐼)( ≃ph𝐽)((0[,]1) × {(𝐹‘0)}))
8355, 65, 71pcocn 24380 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑓 𝐵 𝐵) → ((*𝑝𝐽)𝐹) ∈ (II Cn 𝐽))
8447, 83erref 8668 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑓 𝐵 𝐵) → ((*𝑝𝐽)𝐹)( ≃ph𝐽)((*𝑝𝐽)𝐹))
8579, 82, 84pcohtpy 24383 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵 𝐵) → ((𝐹(*𝑝𝐽)𝐼)(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)(((0[,]1) × {(𝐹‘0)})(*𝑝𝐽)((*𝑝𝐽)𝐹)))
8674, 62eqtrd 2776 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑓 𝐵 𝐵) → (((*𝑝𝐽)𝐹)‘0) = (𝐹‘0))
8780pcopt 24385 . . . . . . . . . . . . . . . . . . . . 21 ((((*𝑝𝐽)𝐹) ∈ (II Cn 𝐽) ∧ (((*𝑝𝐽)𝐹)‘0) = (𝐹‘0)) → (((0[,]1) × {(𝐹‘0)})(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)((*𝑝𝐽)𝐹))
8883, 86, 87syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵 𝐵) → (((0[,]1) × {(𝐹‘0)})(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)((*𝑝𝐽)𝐹))
8947, 85, 88ertrd 8664 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → ((𝐹(*𝑝𝐽)𝐼)(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)((*𝑝𝐽)𝐹))
90243ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑓 𝐵 𝐵) → (𝐼‘0) = (𝐹‘1))
9190eqcomd 2742 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵 𝐵) → (𝐹‘1) = (𝐼‘0))
9265, 69, 83, 91, 78, 72pcoass 24387 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → ((𝐹(*𝑝𝐽)𝐼)(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)(𝐹(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))))
9347, 89, 92ertr3d 8666 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → ((*𝑝𝐽)𝐹)( ≃ph𝐽)(𝐹(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))))
9475, 76, 93pcohtpy 24383 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → (𝑓(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)(𝑓(*𝑝𝐽)(𝐹(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))))
9569, 83, 78pcocn 24380 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)) ∈ (II Cn 𝐽))
9669, 83pco0 24377 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘0) = (𝐼‘0))
9796, 90eqtrd 2776 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘0) = (𝐹‘1))
9897eqcomd 2742 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑓 𝐵 𝐵) → (𝐹‘1) = ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘0))
9951, 65, 95, 61, 98, 72pcoass 24387 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽)𝐹)(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))( ≃ph𝐽)(𝑓(*𝑝𝐽)(𝐹(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))))
10047, 94, 99ertr4d 8667 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → (𝑓(*𝑝𝐽)((*𝑝𝐽)𝐹))( ≃ph𝐽)((𝑓(*𝑝𝐽)𝐹)(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))))
10147, 73, 100ertrd 8664 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹)( ≃ph𝐽)((𝑓(*𝑝𝐽)𝐹)(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))))
10268, 70, 101pcohtpy 24383 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹))( ≃ph𝐽)(𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽)𝐹)(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))))
1033adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵) → 𝐹 ∈ (II Cn 𝐽))
10450, 103, 60pcocn 24380 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → (𝑓(*𝑝𝐽)𝐹) ∈ (II Cn 𝐽))
1051043adant3 1132 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → (𝑓(*𝑝𝐽)𝐹) ∈ (II Cn 𝐽))
10650, 103pco0 24377 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵) → ((𝑓(*𝑝𝐽)𝐹)‘0) = (𝑓‘0))
10726adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑓 𝐵) → (𝐼‘1) = (𝐹‘0))
10857, 106, 1073eqtr4rd 2787 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → (𝐼‘1) = ((𝑓(*𝑝𝐽)𝐹)‘0))
1091083adant3 1132 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → (𝐼‘1) = ((𝑓(*𝑝𝐽)𝐹)‘0))
11051, 65pco1 24378 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽)𝐹)‘1) = (𝐹‘1))
111110, 97eqtr4d 2779 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽)𝐹)‘1) = ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘0))
11269, 105, 95, 109, 111, 72pcoass 24387 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))( ≃ph𝐽)(𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽)𝐹)(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))))
11347, 102, 112ertr4d 8667 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹))( ≃ph𝐽)((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))))
11447, 113erthi 8699 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → [(𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹))]( ≃ph𝐽) = [((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))]( ≃ph𝐽))
11513ad2ant1 1133 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → 𝐽 ∈ (TopOn‘𝑋))
11651, 55pco1 24378 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))‘1) = (‘1))
117116, 71eqtrd 2776 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽))‘1) = (𝐹‘0))
1189, 1, 8, 28pi1eluni 24405 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑓(*𝑝𝐽)) ∈ 𝐵 ↔ ((𝑓(*𝑝𝐽)) ∈ (II Cn 𝐽) ∧ ((𝑓(*𝑝𝐽))‘0) = (𝐹‘0) ∧ ((𝑓(*𝑝𝐽))‘1) = (𝐹‘0))))
1191183ad2ant1 1133 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝑓(*𝑝𝐽)) ∈ 𝐵 ↔ ((𝑓(*𝑝𝐽)) ∈ (II Cn 𝐽) ∧ ((𝑓(*𝑝𝐽))‘0) = (𝐹‘0) ∧ ((𝑓(*𝑝𝐽))‘1) = (𝐹‘0))))
12064, 59, 117, 119mpbir3and 1342 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝑓(*𝑝𝐽)) ∈ 𝐵)
1219, 15, 18, 19, 115, 65, 69, 91, 67, 120pi1xfrval 24417 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘[(𝑓(*𝑝𝐽))]( ≃ph𝐽)) = [(𝐼(*𝑝𝐽)((𝑓(*𝑝𝐽))(*𝑝𝐽)𝐹))]( ≃ph𝐽))
122 eqid 2736 . . . . . . . . . . . . 13 (Base‘𝑄) = (Base‘𝑄)
123143ad2ant1 1133 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝐹‘1) ∈ 𝑋)
124 eqid 2736 . . . . . . . . . . . . 13 (+g𝑄) = (+g𝑄)
12523adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → 𝐼 ∈ (II Cn 𝐽))
126125, 104, 108pcocn 24380 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵) → (𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹)) ∈ (II Cn 𝐽))
1271263adant3 1132 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹)) ∈ (II Cn 𝐽))
128125, 104pco0 24377 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘0) = (𝐼‘0))
12924adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → (𝐼‘0) = (𝐹‘1))
130128, 129eqtrd 2776 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘0) = (𝐹‘1))
1311303adant3 1132 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘0) = (𝐹‘1))
132125, 104pco1 24378 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘1) = ((𝑓(*𝑝𝐽)𝐹)‘1))
13350, 103pco1 24378 . . . . . . . . . . . . . . . 16 ((𝜑𝑓 𝐵) → ((𝑓(*𝑝𝐽)𝐹)‘1) = (𝐹‘1))
134132, 133eqtrd 2776 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘1) = (𝐹‘1))
1351343adant3 1132 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘1) = (𝐹‘1))
136 eqidd 2737 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → (Base‘𝑄) = (Base‘𝑄))
13715, 115, 123, 136pi1eluni 24405 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹)) ∈ (Base‘𝑄) ↔ ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹)) ∈ (II Cn 𝐽) ∧ ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘0) = (𝐹‘1) ∧ ((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))‘1) = (𝐹‘1))))
138127, 131, 135, 137mpbir3and 1342 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹)) ∈ (Base‘𝑄))
13969, 83pco1 24378 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘1) = (((*𝑝𝐽)𝐹)‘1))
14055, 65pco1 24378 . . . . . . . . . . . . . . 15 ((𝜑𝑓 𝐵 𝐵) → (((*𝑝𝐽)𝐹)‘1) = (𝐹‘1))
141139, 140eqtrd 2776 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘1) = (𝐹‘1))
14215, 115, 123, 136pi1eluni 24405 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵 𝐵) → ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)) ∈ (Base‘𝑄) ↔ ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)) ∈ (II Cn 𝐽) ∧ ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘0) = (𝐹‘1) ∧ ((𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))‘1) = (𝐹‘1))))
14395, 97, 141, 142mpbir3and 1342 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)) ∈ (Base‘𝑄))
14415, 122, 115, 123, 124, 138, 143pi1addval 24411 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → ([(𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))]( ≃ph𝐽)(+g𝑄)[(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))]( ≃ph𝐽)) = [((𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))(*𝑝𝐽)(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹)))]( ≃ph𝐽))
145114, 121, 1443eqtr4d 2786 . . . . . . . . . . 11 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘[(𝑓(*𝑝𝐽))]( ≃ph𝐽)) = ([(𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))]( ≃ph𝐽)(+g𝑄)[(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))]( ≃ph𝐽)))
14683ad2ant1 1133 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → (𝐹‘0) ∈ 𝑋)
147 eqid 2736 . . . . . . . . . . . . 13 (+g𝑃) = (+g𝑃)
148 simp2 1137 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → 𝑓 𝐵)
149 simp3 1138 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵 𝐵) → 𝐵)
1509, 18, 115, 146, 147, 148, 149pi1addval 24411 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → ([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽)) = [(𝑓(*𝑝𝐽))]( ≃ph𝐽))
151150fveq2d 6846 . . . . . . . . . . 11 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽))) = (𝐺‘[(𝑓(*𝑝𝐽))]( ≃ph𝐽)))
1521adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵) → 𝐽 ∈ (TopOn‘𝑋))
15325adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵) → (𝐹‘1) = (𝐼‘0))
154 simpr 485 . . . . . . . . . . . . . 14 ((𝜑𝑓 𝐵) → 𝑓 𝐵)
1559, 15, 18, 19, 152, 103, 125, 153, 107, 154pi1xfrval 24417 . . . . . . . . . . . . 13 ((𝜑𝑓 𝐵) → (𝐺‘[𝑓]( ≃ph𝐽)) = [(𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))]( ≃ph𝐽))
1561553adant3 1132 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘[𝑓]( ≃ph𝐽)) = [(𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))]( ≃ph𝐽))
1579, 15, 18, 19, 115, 65, 69, 91, 67, 149pi1xfrval 24417 . . . . . . . . . . . 12 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘[]( ≃ph𝐽)) = [(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))]( ≃ph𝐽))
158156, 157oveq12d 7375 . . . . . . . . . . 11 ((𝜑𝑓 𝐵 𝐵) → ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺‘[]( ≃ph𝐽))) = ([(𝐼(*𝑝𝐽)(𝑓(*𝑝𝐽)𝐹))]( ≃ph𝐽)(+g𝑄)[(𝐼(*𝑝𝐽)((*𝑝𝐽)𝐹))]( ≃ph𝐽)))
159145, 151, 1583eqtr4d 2786 . . . . . . . . . 10 ((𝜑𝑓 𝐵 𝐵) → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽))) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺‘[]( ≃ph𝐽))))
1601593expa 1118 . . . . . . . . 9 (((𝜑𝑓 𝐵) ∧ 𝐵) → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)[]( ≃ph𝐽))) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺‘[]( ≃ph𝐽))))
16132, 45, 160ectocld 8723 . . . . . . . 8 (((𝜑𝑓 𝐵) ∧ 𝑧 ∈ ( 𝐵 / ( ≃ph𝐽))) → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)))
16240, 161syldan 591 . . . . . . 7 (((𝜑𝑓 𝐵) ∧ 𝑧𝐵) → (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)))
163162ralrimiva 3143 . . . . . 6 ((𝜑𝑓 𝐵) → ∀𝑧𝐵 (𝐺‘([𝑓]( ≃ph𝐽)(+g𝑃)𝑧)) = ((𝐺‘[𝑓]( ≃ph𝐽))(+g𝑄)(𝐺𝑧)))
16432, 37, 163ectocld 8723 . . . . 5 ((𝜑𝑦 ∈ ( 𝐵 / ( ≃ph𝐽))) → ∀𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧)))
16531, 164syldan 591 . . . 4 ((𝜑𝑦𝐵) → ∀𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧)))
166165ralrimiva 3143 . . 3 (𝜑 → ∀𝑦𝐵𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧)))
16727, 166jca 512 . 2 (𝜑 → (𝐺:𝐵⟶(Base‘𝑄) ∧ ∀𝑦𝐵𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧))))
16818, 122, 147, 124isghm 19008 . 2 (𝐺 ∈ (𝑃 GrpHom 𝑄) ↔ ((𝑃 ∈ Grp ∧ 𝑄 ∈ Grp) ∧ (𝐺:𝐵⟶(Base‘𝑄) ∧ ∀𝑦𝐵𝑧𝐵 (𝐺‘(𝑦(+g𝑃)𝑧)) = ((𝐺𝑦)(+g𝑄)(𝐺𝑧)))))
16911, 17, 167, 168syl21anbrc 1344 1 (𝜑𝐺 ∈ (𝑃 GrpHom 𝑄))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106  wral 3064  ifcif 4486  {csn 4586  cop 4592   cuni 4865   class class class wbr 5105  cmpt 5188   × cxp 5631  ran crn 5634  wf 6492  cfv 6496  (class class class)co 7357   Er wer 8645  [cec 8646   / cqs 8647  0cc0 11051  1c1 11052   + caddc 11054   · cmul 11056  cle 11190  cmin 11385   / cdiv 11812  2c2 12208  4c4 12210  [,]cicc 13267  Basecbs 17083  +gcplusg 17133  Grpcgrp 18748   GrpHom cghm 19005  TopOnctopon 22259   Cn ccn 22575  IIcii 24238  phcphtpc 24332  *𝑝cpco 24363   π1 cpi1 24366
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129  ax-addf 11130  ax-mulf 11131
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-ec 8650  df-qs 8654  df-map 8767  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-fi 9347  df-sup 9378  df-inf 9379  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-q 12874  df-rp 12916  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-ioo 13268  df-icc 13271  df-fz 13425  df-fzo 13568  df-seq 13907  df-exp 13968  df-hash 14231  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-starv 17148  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-unif 17156  df-hom 17157  df-cco 17158  df-rest 17304  df-topn 17305  df-0g 17323  df-gsum 17324  df-topgen 17325  df-pt 17326  df-prds 17329  df-xrs 17384  df-qtop 17389  df-imas 17390  df-qus 17391  df-xps 17392  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-submnd 18602  df-grp 18751  df-mulg 18873  df-ghm 19006  df-cntz 19097  df-cmn 19564  df-psmet 20788  df-xmet 20789  df-met 20790  df-bl 20791  df-mopn 20792  df-cnfld 20797  df-top 22243  df-topon 22260  df-topsp 22282  df-bases 22296  df-cld 22370  df-cn 22578  df-cnp 22579  df-tx 22913  df-hmeo 23106  df-xms 23673  df-ms 23674  df-tms 23675  df-ii 24240  df-htpy 24333  df-phtpy 24334  df-phtpc 24355  df-pco 24368  df-om1 24369  df-pi1 24371
This theorem is referenced by:  pi1xfrcnv  24420  pi1xfrgim  24421
  Copyright terms: Public domain W3C validator