Metamath Proof Explorer


Theorem pcophtb

Description: The path homotopy equivalence relation on two paths F , G with the same start and end point can be written in terms of the loop F - G formed by concatenating F with the inverse of G . Thus, all the homotopy information in ~=phJ is available if we restrict our attention to closed loops, as in the definition of the fundamental group. (Contributed by Mario Carneiro, 12-Feb-2015)

Ref Expression
Hypotheses pcophtb.h H=x01G1x
pcophtb.p P=01×F0
pcophtb.f φFIICnJ
pcophtb.g φGIICnJ
pcophtb.0 φF0=G0
pcophtb.1 φF1=G1
Assertion pcophtb φF*𝑝JHphJPFphJG

Proof

Step Hyp Ref Expression
1 pcophtb.h H=x01G1x
2 pcophtb.p P=01×F0
3 pcophtb.f φFIICnJ
4 pcophtb.g φGIICnJ
5 pcophtb.0 φF0=G0
6 pcophtb.1 φF1=G1
7 phtpcer phJErIICnJ
8 7 a1i φF*𝑝JHphJPphJErIICnJ
9 1 pcorevcl GIICnJHIICnJH0=G1H1=G0
10 4 9 syl φHIICnJH0=G1H1=G0
11 10 simp2d φH0=G1
12 6 11 eqtr4d φF1=H0
13 10 simp1d φHIICnJ
14 13 4 pco0 φH*𝑝JG0=H0
15 12 14 eqtr4d φF1=H*𝑝JG0
16 15 adantr φF*𝑝JHphJPF1=H*𝑝JG0
17 3 adantr φF*𝑝JHphJPFIICnJ
18 8 17 erref φF*𝑝JHphJPFphJF
19 eqid 01×G1=01×G1
20 1 19 pcorev GIICnJH*𝑝JGphJ01×G1
21 4 20 syl φH*𝑝JGphJ01×G1
22 21 adantr φF*𝑝JHphJPH*𝑝JGphJ01×G1
23 16 18 22 pcohtpy φF*𝑝JHphJPF*𝑝JH*𝑝JGphJF*𝑝J01×G1
24 6 adantr φF*𝑝JHphJPF1=G1
25 19 pcopt2 FIICnJF1=G1F*𝑝J01×G1phJF
26 17 24 25 syl2anc φF*𝑝JHphJPF*𝑝J01×G1phJF
27 8 23 26 ertrd φF*𝑝JHphJPF*𝑝JH*𝑝JGphJF
28 13 adantr φF*𝑝JHphJPHIICnJ
29 4 adantr φF*𝑝JHphJPGIICnJ
30 12 adantr φF*𝑝JHphJPF1=H0
31 10 simp3d φH1=G0
32 31 adantr φF*𝑝JHphJPH1=G0
33 eqid y01ify12ify142yy+14y2+12=y01ify12ify142yy+14y2+12
34 17 28 29 30 32 33 pcoass φF*𝑝JHphJPF*𝑝JH*𝑝JGphJF*𝑝JH*𝑝JG
35 3 13 pco1 φF*𝑝JH1=H1
36 35 31 eqtrd φF*𝑝JH1=G0
37 36 adantr φF*𝑝JHphJPF*𝑝JH1=G0
38 simpr φF*𝑝JHphJPF*𝑝JHphJP
39 8 29 erref φF*𝑝JHphJPGphJG
40 37 38 39 pcohtpy φF*𝑝JHphJPF*𝑝JH*𝑝JGphJP*𝑝JG
41 8 34 40 ertr3d φF*𝑝JHphJPF*𝑝JH*𝑝JGphJP*𝑝JG
42 5 adantr φF*𝑝JHphJPF0=G0
43 42 eqcomd φF*𝑝JHphJPG0=F0
44 2 pcopt GIICnJG0=F0P*𝑝JGphJG
45 29 43 44 syl2anc φF*𝑝JHphJPP*𝑝JGphJG
46 8 41 45 ertrd φF*𝑝JHphJPF*𝑝JH*𝑝JGphJG
47 8 27 46 ertr3d φF*𝑝JHphJPFphJG
48 7 a1i φFphJGphJErIICnJ
49 12 adantr φFphJGF1=H0
50 simpr φFphJGFphJG
51 13 adantr φFphJGHIICnJ
52 48 51 erref φFphJGHphJH
53 49 50 52 pcohtpy φFphJGF*𝑝JHphJG*𝑝JH
54 eqid 01×G0=01×G0
55 1 54 pcorev2 GIICnJG*𝑝JHphJ01×G0
56 4 55 syl φG*𝑝JHphJ01×G0
57 5 sneqd φF0=G0
58 57 xpeq2d φ01×F0=01×G0
59 2 58 eqtrid φP=01×G0
60 56 59 breqtrrd φG*𝑝JHphJP
61 60 adantr φFphJGG*𝑝JHphJP
62 48 53 61 ertrd φFphJGF*𝑝JHphJP
63 47 62 impbida φF*𝑝JHphJPFphJG