Description: The group operation, loop concatenation, is compatible with homotopy equivalence. (Contributed by Mario Carneiro, 10-Jul-2015)
Ref | Expression | ||
---|---|---|---|
Hypotheses | pi1val.g | |
|
pi1val.1 | |
||
pi1val.2 | |
||
pi1bas2.b | |
||
pi1bas3.r | |
||
pi1cpbl.o | |
||
pi1cpbl.a | |
||
Assertion | pi1cpbl | |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | pi1val.g | |
|
2 | pi1val.1 | |
|
3 | pi1val.2 | |
|
4 | pi1bas2.b | |
|
5 | pi1bas3.r | |
|
6 | pi1cpbl.o | |
|
7 | pi1cpbl.a | |
|
8 | 2 | adantr | |
9 | 3 | adantr | |
10 | 4 | adantr | |
11 | eqidd | |
|
12 | 1 8 9 6 10 11 | pi1buni | |
13 | simprl | |
|
14 | 5 | breqi | |
15 | brinxp2 | |
|
16 | 14 15 | bitri | |
17 | 13 16 | sylib | |
18 | 17 | simplld | |
19 | simprr | |
|
20 | 5 | breqi | |
21 | brinxp2 | |
|
22 | 20 21 | bitri | |
23 | 19 22 | sylib | |
24 | 23 | simplld | |
25 | 6 8 9 12 18 24 | om1addcl | |
26 | 17 | simplrd | |
27 | 23 | simplrd | |
28 | 6 8 9 12 26 27 | om1addcl | |
29 | 1 8 9 10 | pi1eluni | |
30 | 18 29 | mpbid | |
31 | 30 | simp3d | |
32 | 1 8 9 10 | pi1eluni | |
33 | 24 32 | mpbid | |
34 | 33 | simp2d | |
35 | 31 34 | eqtr4d | |
36 | 17 | simprd | |
37 | 23 | simprd | |
38 | 35 36 37 | pcohtpy | |
39 | 5 | breqi | |
40 | brinxp2 | |
|
41 | 39 40 | bitri | |
42 | 25 28 38 41 | syl21anbrc | |
43 | 6 8 9 | om1plusg | |
44 | 43 7 | eqtr4di | |
45 | 44 | oveqd | |
46 | 44 | oveqd | |
47 | 42 45 46 | 3brtr3d | |
48 | 47 | ex | |