Metamath Proof Explorer


Theorem rngccatidALTV

Description: Lemma for rngccatALTV . (New usage is discouraged.) (Contributed by AV, 27-Feb-2020)

Ref Expression
Hypotheses rngccatALTV.c C = RngCatALTV U
rngccatidALTV.b B = Base C
Assertion rngccatidALTV U V C Cat Id C = x B I Base x

Proof

Step Hyp Ref Expression
1 rngccatALTV.c C = RngCatALTV U
2 rngccatidALTV.b B = Base C
3 2 a1i U V B = Base C
4 eqidd U V Hom C = Hom C
5 eqidd U V comp C = comp C
6 1 fvexi C V
7 6 a1i U V C V
8 biid w B x B y B z B f w Hom C x g x Hom C y h y Hom C z w B x B y B z B f w Hom C x g x Hom C y h y Hom C z
9 simpl U V x B U V
10 1 2 9 rngcbasALTV U V x B B = U Rng
11 eleq2 B = U Rng x B x U Rng
12 elin x U Rng x U x Rng
13 12 simprbi x U Rng x Rng
14 11 13 syl6bi B = U Rng x B x Rng
15 14 com12 x B B = U Rng x Rng
16 15 adantl U V x B B = U Rng x Rng
17 10 16 mpd U V x B x Rng
18 eqid Base x = Base x
19 18 idrnghm x Rng I Base x x RngHomo x
20 17 19 syl U V x B I Base x x RngHomo x
21 eqid Hom C = Hom C
22 simpr U V x B x B
23 1 2 9 21 22 22 rngchomALTV U V x B x Hom C x = x RngHomo x
24 20 23 eleqtrrd U V x B I Base x x Hom C x
25 simpl U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V
26 eqid comp C = comp C
27 simpl w B x B w B
28 27 3ad2ant1 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z w B
29 28 adantl U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z w B
30 simpr w B x B x B
31 30 3ad2ant1 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z x B
32 31 adantl U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z x B
33 simp1 U V y B z B w B x B U V
34 27 3ad2ant3 U V y B z B w B x B w B
35 30 3ad2ant3 U V y B z B w B x B x B
36 1 2 33 21 34 35 rngchomALTV U V y B z B w B x B w Hom C x = w RngHomo x
37 36 eleq2d U V y B z B w B x B f w Hom C x f w RngHomo x
38 37 biimpd U V y B z B w B x B f w Hom C x f w RngHomo x
39 38 3exp U V y B z B w B x B f w Hom C x f w RngHomo x
40 39 com14 f w Hom C x y B z B w B x B U V f w RngHomo x
41 40 3ad2ant1 f w Hom C x g x Hom C y h y Hom C z y B z B w B x B U V f w RngHomo x
42 41 com13 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V f w RngHomo x
43 42 3imp w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V f w RngHomo x
44 43 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z f w RngHomo x
45 20 expcom x B U V I Base x x RngHomo x
46 45 adantl w B x B U V I Base x x RngHomo x
47 46 3ad2ant1 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V I Base x x RngHomo x
48 47 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z I Base x x RngHomo x
49 1 2 25 26 29 32 32 44 48 rngccoALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z I Base x w x comp C x f = I Base x f
50 simpl U V w B x B U V
51 simprl U V w B x B w B
52 simprr U V w B x B x B
53 1 2 50 21 51 52 elrngchomALTV U V w B x B f w Hom C x f : Base w Base x
54 53 ex U V w B x B f w Hom C x f : Base w Base x
55 54 com13 f w Hom C x w B x B U V f : Base w Base x
56 fcoi2 f : Base w Base x I Base x f = f
57 55 56 syl8 f w Hom C x w B x B U V I Base x f = f
58 57 3ad2ant1 f w Hom C x g x Hom C y h y Hom C z w B x B U V I Base x f = f
59 58 com12 w B x B f w Hom C x g x Hom C y h y Hom C z U V I Base x f = f
60 59 a1d w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V I Base x f = f
61 60 3imp w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V I Base x f = f
62 61 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z I Base x f = f
63 49 62 eqtrd U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z I Base x w x comp C x f = f
64 simp3 g x Hom C y w B x B y B z B U V U V
65 30 adantr w B x B y B z B x B
66 65 3ad2ant2 g x Hom C y w B x B y B z B U V x B
67 simprl w B x B y B z B y B
68 67 3ad2ant2 g x Hom C y w B x B y B z B U V y B
69 46 adantr w B x B y B z B U V I Base x x RngHomo x
70 69 a1i g x Hom C y w B x B y B z B U V I Base x x RngHomo x
71 70 3imp g x Hom C y w B x B y B z B U V I Base x x RngHomo x
72 simpl U V w B x B y B z B U V
73 65 adantl U V w B x B y B z B x B
74 67 adantl U V w B x B y B z B y B
75 1 2 72 21 73 74 rngchomALTV U V w B x B y B z B x Hom C y = x RngHomo y
76 75 eleq2d U V w B x B y B z B g x Hom C y g x RngHomo y
77 76 biimpd U V w B x B y B z B g x Hom C y g x RngHomo y
78 77 ex U V w B x B y B z B g x Hom C y g x RngHomo y
79 78 com13 g x Hom C y w B x B y B z B U V g x RngHomo y
80 79 3imp g x Hom C y w B x B y B z B U V g x RngHomo y
81 1 2 64 26 66 66 68 71 80 rngccoALTV g x Hom C y w B x B y B z B U V g x x comp C y I Base x = g I Base x
82 1 2 72 21 73 74 elrngchomALTV U V w B x B y B z B g x Hom C y g : Base x Base y
83 82 ex U V w B x B y B z B g x Hom C y g : Base x Base y
84 83 com13 g x Hom C y w B x B y B z B U V g : Base x Base y
85 84 3imp g x Hom C y w B x B y B z B U V g : Base x Base y
86 fcoi1 g : Base x Base y g I Base x = g
87 85 86 syl g x Hom C y w B x B y B z B U V g I Base x = g
88 81 87 eqtrd g x Hom C y w B x B y B z B U V g x x comp C y I Base x = g
89 88 3exp g x Hom C y w B x B y B z B U V g x x comp C y I Base x = g
90 89 3ad2ant2 f w Hom C x g x Hom C y h y Hom C z w B x B y B z B U V g x x comp C y I Base x = g
91 90 expdcom w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V g x x comp C y I Base x = g
92 91 3imp w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V g x x comp C y I Base x = g
93 92 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z g x x comp C y I Base x = g
94 simp2l U V y B z B w B x B y B
95 1 2 33 21 35 94 rngchomALTV U V y B z B w B x B x Hom C y = x RngHomo y
96 95 eleq2d U V y B z B w B x B g x Hom C y g x RngHomo y
97 96 biimpd U V y B z B w B x B g x Hom C y g x RngHomo y
98 97 3exp U V y B z B w B x B g x Hom C y g x RngHomo y
99 98 com14 g x Hom C y y B z B w B x B U V g x RngHomo y
100 99 3ad2ant2 f w Hom C x g x Hom C y h y Hom C z y B z B w B x B U V g x RngHomo y
101 100 com13 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V g x RngHomo y
102 101 3imp w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V g x RngHomo y
103 102 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z g x RngHomo y
104 rnghmco g x RngHomo y f w RngHomo x g f w RngHomo y
105 103 44 104 syl2anc U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z g f w RngHomo y
106 simp2l w B x B y B z B f w Hom C x g x Hom C y h y Hom C z y B
107 106 adantl U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z y B
108 1 2 25 26 29 32 107 44 103 rngccoALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z g w x comp C y f = g f
109 1 2 25 21 29 107 rngchomALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z w Hom C y = w RngHomo y
110 105 108 109 3eltr4d U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z g w x comp C y f w Hom C y
111 coass h g f = h g f
112 simp2r w B x B y B z B f w Hom C x g x Hom C y h y Hom C z z B
113 112 adantl U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z z B
114 simp2r U V y B z B w B x B z B
115 1 2 33 21 94 114 rngchomALTV U V y B z B w B x B y Hom C z = y RngHomo z
116 115 eleq2d U V y B z B w B x B h y Hom C z h y RngHomo z
117 116 biimpd U V y B z B w B x B h y Hom C z h y RngHomo z
118 117 3exp U V y B z B w B x B h y Hom C z h y RngHomo z
119 118 com14 h y Hom C z y B z B w B x B U V h y RngHomo z
120 119 3ad2ant3 f w Hom C x g x Hom C y h y Hom C z y B z B w B x B U V h y RngHomo z
121 120 com13 w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V h y RngHomo z
122 121 3imp w B x B y B z B f w Hom C x g x Hom C y h y Hom C z U V h y RngHomo z
123 122 impcom U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h y RngHomo z
124 rnghmco h y RngHomo z g x RngHomo y h g x RngHomo z
125 123 103 124 syl2anc U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h g x RngHomo z
126 1 2 25 26 29 32 113 44 125 rngccoALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h g w x comp C z f = h g f
127 1 2 25 26 29 107 113 105 123 rngccoALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h w y comp C z g f = h g f
128 111 126 127 3eqtr4a U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h g w x comp C z f = h w y comp C z g f
129 1 2 25 26 32 107 113 103 123 rngccoALTV U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h x y comp C z g = h g
130 129 oveq1d U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h x y comp C z g w x comp C z f = h g w x comp C z f
131 108 oveq2d U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h w y comp C z g w x comp C y f = h w y comp C z g f
132 128 130 131 3eqtr4d U V w B x B y B z B f w Hom C x g x Hom C y h y Hom C z h x y comp C z g w x comp C z f = h w y comp C z g w x comp C y f
133 3 4 5 7 8 24 63 93 110 132 iscatd2 U V C Cat Id C = x B I Base x