Theorem pi1addval 25033

Description: The concatenation of two path-homotopy classes in the fundamental group. (Contributed by Jeff Madsen, 11-Jun-2010.) (Revised by Mario Carneiro, 10-Jul-2015.)

Hypotheses

Ref	Expression
elpi1.g	⊢ 𝐺 = (𝐽 π1 𝑌)
elpi1.b	⊢ 𝐵 = (Base‘𝐺)
elpi1.1	⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
elpi1.2	⊢ (𝜑 → 𝑌 ∈ 𝑋)
pi1addf.p	⊢ + = (+g‘𝐺)
pi1addval.3	⊢ (𝜑 → 𝑀 ∈ ∪ 𝐵)
pi1addval.4	⊢ (𝜑 → 𝑁 ∈ ∪ 𝐵)

Assertion

Ref	Expression
pi1addval	⊢ (𝜑 → ([𝑀]( ≃ph‘𝐽) + [𝑁]( ≃ph‘𝐽)) = [(𝑀(*𝑝‘𝐽)𝑁)]( ≃ph‘𝐽))

Proof of Theorem pi1addval

Dummy variables 𝑎 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pi1addval.3	. . 3 ⊢ (𝜑 → 𝑀 ∈ ∪ 𝐵)
2		pi1addval.4	. . 3 ⊢ (𝜑 → 𝑁 ∈ ∪ 𝐵)
3		eqidd 2740	. . . . . 6 ⊢ (𝜑 → ((𝐽 Ω1 𝑌) /s ( ≃ph‘𝐽)) = ((𝐽 Ω1 𝑌) /s ( ≃ph‘𝐽)))
4		eqidd 2740	. . . . . 6 ⊢ (𝜑 → (Base‘(𝐽 Ω1 𝑌)) = (Base‘(𝐽 Ω1 𝑌)))
5		fvexd 6842	. . . . . 6 ⊢ (𝜑 → ( ≃ph‘𝐽) ∈ V)
6		ovexd 7391	. . . . . 6 ⊢ (𝜑 → (𝐽 Ω1 𝑌) ∈ V)
7		elpi1.g	. . . . . . . 8 ⊢ 𝐺 = (𝐽 π1 𝑌)
8		elpi1.1	. . . . . . . 8 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
9		elpi1.2	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
10		eqid 2739	. . . . . . . 8 ⊢ (𝐽 Ω1 𝑌) = (𝐽 Ω1 𝑌)
11		elpi1.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐺)
12	11	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝐺))
13	7, 8, 9, 10, 12, 4	pi1blem 25024	. . . . . . 7 ⊢ (𝜑 → ((( ≃ph‘𝐽) “ (Base‘(𝐽 Ω1 𝑌))) ⊆ (Base‘(𝐽 Ω1 𝑌)) ∧ (Base‘(𝐽 Ω1 𝑌)) ⊆ (II Cn 𝐽)))
14	13	simpld 495	. . . . . 6 ⊢ (𝜑 → (( ≃ph‘𝐽) “ (Base‘(𝐽 Ω1 𝑌))) ⊆ (Base‘(𝐽 Ω1 𝑌)))
15	3, 4, 5, 6, 14	qusin 17499	. . . . 5 ⊢ (𝜑 → ((𝐽 Ω1 𝑌) /s ( ≃ph‘𝐽)) = ((𝐽 Ω1 𝑌) /s (( ≃ph‘𝐽) ∩ ((Base‘(𝐽 Ω1 𝑌)) × (Base‘(𝐽 Ω1 𝑌))))))
16	7, 8, 9, 10	pi1val 25022	. . . . 5 ⊢ (𝜑 → 𝐺 = ((𝐽 Ω1 𝑌) /s ( ≃ph‘𝐽)))
17	7, 8, 9, 10, 12, 4	pi1buni 25025	. . . . . . . 8 ⊢ (𝜑 → ∪ 𝐵 = (Base‘(𝐽 Ω1 𝑌)))
18	17	sqxpeqd 5650	. . . . . . 7 ⊢ (𝜑 → (∪ 𝐵 × ∪ 𝐵) = ((Base‘(𝐽 Ω1 𝑌)) × (Base‘(𝐽 Ω1 𝑌))))
19	18	ineq2d 4149	. . . . . 6 ⊢ (𝜑 → (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) = (( ≃ph‘𝐽) ∩ ((Base‘(𝐽 Ω1 𝑌)) × (Base‘(𝐽 Ω1 𝑌)))))
20	19	oveq2d 7372	. . . . 5 ⊢ (𝜑 → ((𝐽 Ω1 𝑌) /s (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))) = ((𝐽 Ω1 𝑌) /s (( ≃ph‘𝐽) ∩ ((Base‘(𝐽 Ω1 𝑌)) × (Base‘(𝐽 Ω1 𝑌))))))
21	15, 16, 20	3eqtr4d 2784	. . . 4 ⊢ (𝜑 → 𝐺 = ((𝐽 Ω1 𝑌) /s (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))))
22		phtpcer 24980	. . . . . 6 ⊢ ( ≃ph‘𝐽) Er (II Cn 𝐽)
23	22	a1i 11	. . . . 5 ⊢ (𝜑 → ( ≃ph‘𝐽) Er (II Cn 𝐽))
24	13	simprd 496	. . . . . 6 ⊢ (𝜑 → (Base‘(𝐽 Ω1 𝑌)) ⊆ (II Cn 𝐽))
25	17, 24	eqsstrd 3949	. . . . 5 ⊢ (𝜑 → ∪ 𝐵 ⊆ (II Cn 𝐽))
26	23, 25	erinxp 8728	. . . 4 ⊢ (𝜑 → (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) Er ∪ 𝐵)
27		eqid 2739	. . . . 5 ⊢ (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) = (( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))
28		eqid 2739	. . . . 5 ⊢ (+g‘(𝐽 Ω1 𝑌)) = (+g‘(𝐽 Ω1 𝑌))
29	7, 8, 9, 12, 27, 10, 28	pi1cpbl 25029	. . . 4 ⊢ (𝜑 → ((𝑎(( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))𝑐 ∧ 𝑏(( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))𝑑) → (𝑎(+g‘(𝐽 Ω1 𝑌))𝑏)(( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))(𝑐(+g‘(𝐽 Ω1 𝑌))𝑑)))
30	10, 8, 9	om1plusg 25019	. . . . . 6 ⊢ (𝜑 → (*𝑝‘𝐽) = (+g‘(𝐽 Ω1 𝑌)))
31	30	oveqdr 7384	. . . . 5 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → (𝑐(*𝑝‘𝐽)𝑑) = (𝑐(+g‘(𝐽 Ω1 𝑌))𝑑))
32	8	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → 𝐽 ∈ (TopOn‘𝑋))
33	9	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → 𝑌 ∈ 𝑋)
34	17	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → ∪ 𝐵 = (Base‘(𝐽 Ω1 𝑌)))
35		simprl 776	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → 𝑐 ∈ ∪ 𝐵)
36		simprr 778	. . . . . 6 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → 𝑑 ∈ ∪ 𝐵)
37	10, 32, 33, 34, 35, 36	om1addcl 25018	. . . . 5 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → (𝑐(*𝑝‘𝐽)𝑑) ∈ ∪ 𝐵)
38	31, 37	eqeltrrd 2840	. . . 4 ⊢ ((𝜑 ∧ (𝑐 ∈ ∪ 𝐵 ∧ 𝑑 ∈ ∪ 𝐵)) → (𝑐(+g‘(𝐽 Ω1 𝑌))𝑑) ∈ ∪ 𝐵)
39		pi1addf.p	. . . 4 ⊢ + = (+g‘𝐺)
40	21, 17, 26, 6, 29, 38, 28, 39	qusaddval 17508	. . 3 ⊢ ((𝜑 ∧ 𝑀 ∈ ∪ 𝐵 ∧ 𝑁 ∈ ∪ 𝐵) → ([𝑀](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) + [𝑁](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))) = [(𝑀(+g‘(𝐽 Ω1 𝑌))𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
41	1, 2, 40	mpd3an23 1471	. 2 ⊢ (𝜑 → ([𝑀](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) + [𝑁](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))) = [(𝑀(+g‘(𝐽 Ω1 𝑌))𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
42	17	imaeq2d 6012	. . . . 5 ⊢ (𝜑 → (( ≃ph‘𝐽) “ ∪ 𝐵) = (( ≃ph‘𝐽) “ (Base‘(𝐽 Ω1 𝑌))))
43	14, 42, 17	3sstr4d 3970	. . . 4 ⊢ (𝜑 → (( ≃ph‘𝐽) “ ∪ 𝐵) ⊆ ∪ 𝐵)
44		ecinxp 8729	. . . 4 ⊢ (((( ≃ph‘𝐽) “ ∪ 𝐵) ⊆ ∪ 𝐵 ∧ 𝑀 ∈ ∪ 𝐵) → [𝑀]( ≃ph‘𝐽) = [𝑀](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
45	43, 1, 44	syl2anc 590	. . 3 ⊢ (𝜑 → [𝑀]( ≃ph‘𝐽) = [𝑀](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
46		ecinxp 8729	. . . 4 ⊢ (((( ≃ph‘𝐽) “ ∪ 𝐵) ⊆ ∪ 𝐵 ∧ 𝑁 ∈ ∪ 𝐵) → [𝑁]( ≃ph‘𝐽) = [𝑁](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
47	43, 2, 46	syl2anc 590	. . 3 ⊢ (𝜑 → [𝑁]( ≃ph‘𝐽) = [𝑁](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
48	45, 47	oveq12d 7374	. 2 ⊢ (𝜑 → ([𝑀]( ≃ph‘𝐽) + [𝑁]( ≃ph‘𝐽)) = ([𝑀](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) + [𝑁](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵))))
49	10, 8, 9, 17, 1, 2	om1addcl 25018	. . . 4 ⊢ (𝜑 → (𝑀(*𝑝‘𝐽)𝑁) ∈ ∪ 𝐵)
50		ecinxp 8729	. . . 4 ⊢ (((( ≃ph‘𝐽) “ ∪ 𝐵) ⊆ ∪ 𝐵 ∧ (𝑀(*𝑝‘𝐽)𝑁) ∈ ∪ 𝐵) → [(𝑀(*𝑝‘𝐽)𝑁)]( ≃ph‘𝐽) = [(𝑀(*𝑝‘𝐽)𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
51	43, 49, 50	syl2anc 590	. . 3 ⊢ (𝜑 → [(𝑀(*𝑝‘𝐽)𝑁)]( ≃ph‘𝐽) = [(𝑀(*𝑝‘𝐽)𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
52	30	oveqd 7373	. . . 4 ⊢ (𝜑 → (𝑀(*𝑝‘𝐽)𝑁) = (𝑀(+g‘(𝐽 Ω1 𝑌))𝑁))
53	52	eceq1d 8674	. . 3 ⊢ (𝜑 → [(𝑀(*𝑝‘𝐽)𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)) = [(𝑀(+g‘(𝐽 Ω1 𝑌))𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
54	51, 53	eqtrd 2774	. 2 ⊢ (𝜑 → [(𝑀(*𝑝‘𝐽)𝑁)]( ≃ph‘𝐽) = [(𝑀(+g‘(𝐽 Ω1 𝑌))𝑁)](( ≃ph‘𝐽) ∩ (∪ 𝐵 × ∪ 𝐵)))
55	41, 48, 54	3eqtr4d 2784	1 ⊢ (𝜑 → ([𝑀]( ≃ph‘𝐽) + [𝑁]( ≃ph‘𝐽)) = [(𝑀(*𝑝‘𝐽)𝑁)]( ≃ph‘𝐽))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3431   ∩ cin 3882   ⊆ wss 3883  ∪ cuni 4838   × cxp 5616   “ cima 5621  ‘cfv 6485  (class class class)co 7356   Er wer 8630  [cec 8631  Basecbs 17170  +_gcplusg 17211   /_s cqus 17460  TopOnctopon 22893   Cn ccn 23207  IIcii 24860   ≃_phcphtpc 24954  *_𝑝cpco 24985   Ω₁ comi 24986   π₁ cpi1 24988

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-iin 4924  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-ec 8635  df-qs 8639  df-map 8765  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-fi 9314  df-sup 9345  df-inf 9346  df-oi 9415  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-z 12516  df-dec 12636  df-uz 12780  df-q 12890  df-rp 12934  df-xneg 13054  df-xadd 13055  df-xmul 13056  df-ioo 13293  df-icc 13296  df-fz 13453  df-fzo 13600  df-seq 13955  df-exp 14015  df-hash 14284  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-starv 17226  df-sca 17227  df-vsca 17228  df-ip 17229  df-tset 17230  df-ple 17231  df-ds 17233  df-unif 17234  df-hom 17235  df-cco 17236  df-rest 17376  df-topn 17377  df-0g 17395  df-gsum 17396  df-topgen 17397  df-pt 17398  df-prds 17401  df-xrs 17457  df-qtop 17462  df-imas 17463  df-qus 17464  df-xps 17465  df-mre 17539  df-mrc 17540  df-acs 17542  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-submnd 18743  df-mulg 19035  df-cntz 19283  df-cmn 19748  df-psmet 21339  df-xmet 21340  df-met 21341  df-bl 21342  df-mopn 21343  df-cnfld 21348  df-top 22877  df-topon 22894  df-topsp 22916  df-bases 22929  df-cld 23002  df-cn 23210  df-cnp 23211  df-tx 23545  df-hmeo 23738  df-xms 24303  df-ms 24304  df-tms 24305  df-ii 24862  df-htpy 24955  df-phtpy 24956  df-phtpc 24977  df-pco 24990  df-om1 24991  df-pi1 24993

This theorem is referenced by:  pi1inv  25037  pi1xfr  25040  pi1coghm  25046