Metamath Proof Explorer


Theorem ringccatidALTV

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

Ref Expression
Hypotheses ringccatALTV.c C = RingCatALTV U
ringccatidALTV.b B = Base C
Assertion ringccatidALTV U V C Cat Id C = x B I Base x

Proof

Step Hyp Ref Expression
1 ringccatALTV.c C = RingCatALTV U
2 ringccatidALTV.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 ringcbasALTV U V x B B = U Ring
11 eleq2 B = U Ring x B x U Ring
12 elin x U Ring x U x Ring
13 12 simprbi x U Ring x Ring
14 11 13 syl6bi B = U Ring x B x Ring
15 14 com12 x B B = U Ring x Ring
16 15 adantl U V x B B = U Ring x Ring
17 10 16 mpd U V x B x Ring
18 eqid Base x = Base x
19 18 idrhm x Ring I Base x x RingHom x
20 17 19 syl U V x B I Base x x RingHom x
21 eqid Hom C = Hom C
22 simpr U V x B x B
23 1 2 9 21 22 22 ringchomALTV U V x B x Hom C x = x RingHom 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 ringchomALTV U V y B z B w B x B w Hom C x = w RingHom x
37 36 eleq2d U V y B z B w B x B f w Hom C x f w RingHom x
38 37 biimpd U V y B z B w B x B f w Hom C x f w RingHom x
39 38 3exp U V y B z B w B x B f w Hom C x f w RingHom x
40 39 com14 f w Hom C x y B z B w B x B U V f w RingHom 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 RingHom 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 RingHom 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 RingHom 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 RingHom x
45 20 expcom x B U V I Base x x RingHom x
46 45 adantl w B x B U V I Base x x RingHom 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 RingHom 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 RingHom x
49 1 2 25 26 29 32 32 44 48 ringccoALTV 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 elringchomALTV 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 RingHom x
70 69 a1i g x Hom C y w B x B y B z B U V I Base x x RingHom x
71 70 3imp g x Hom C y w B x B y B z B U V I Base x x RingHom 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 ringchomALTV U V w B x B y B z B x Hom C y = x RingHom y
76 75 eleq2d U V w B x B y B z B g x Hom C y g x RingHom y
77 76 biimpd U V w B x B y B z B g x Hom C y g x RingHom y
78 77 ex U V w B x B y B z B g x Hom C y g x RingHom y
79 78 com13 g x Hom C y w B x B y B z B U V g x RingHom y
80 79 3imp g x Hom C y w B x B y B z B U V g x RingHom y
81 1 2 64 26 66 66 68 71 80 ringccoALTV 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 elringchomALTV 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 simpl y B z B y B
95 94 3ad2ant2 U V y B z B w B x B y B
96 1 2 33 21 35 95 ringchomALTV U V y B z B w B x B x Hom C y = x RingHom y
97 96 eleq2d U V y B z B w B x B g x Hom C y g x RingHom y
98 97 biimpd U V y B z B w B x B g x Hom C y g x RingHom y
99 98 3exp U V y B z B w B x B g x Hom C y g x RingHom y
100 99 com14 g x Hom C y y B z B w B x B U V g x RingHom y
101 100 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 RingHom y
102 101 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 RingHom y
103 102 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 RingHom y
104 103 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 RingHom y
105 rhmco g x RingHom y f w RingHom x g f w RingHom y
106 104 44 105 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 RingHom y
107 94 3ad2ant2 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 107 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
109 1 2 25 26 29 32 108 44 104 ringccoALTV 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
110 1 2 25 21 29 108 ringchomALTV 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 RingHom y
111 106 109 110 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
112 coass h g f = h g f
113 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
114 113 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
115 simp2r U V y B z B w B x B z B
116 1 2 33 21 95 115 ringchomALTV U V y B z B w B x B y Hom C z = y RingHom z
117 116 eleq2d U V y B z B w B x B h y Hom C z h y RingHom z
118 117 biimpd U V y B z B w B x B h y Hom C z h y RingHom z
119 118 3exp U V y B z B w B x B h y Hom C z h y RingHom z
120 119 com14 h y Hom C z y B z B w B x B U V h y RingHom z
121 120 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 RingHom z
122 121 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 RingHom z
123 122 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 RingHom z
124 123 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 RingHom z
125 rhmco h y RingHom z g x RingHom y h g x RingHom z
126 124 104 125 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 RingHom z
127 1 2 25 26 29 32 114 44 126 ringccoALTV 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
128 1 2 25 26 29 108 114 106 124 ringccoALTV 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
129 112 127 128 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
130 1 2 25 26 32 108 114 104 124 ringccoALTV 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
131 130 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
132 109 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
133 129 131 132 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
134 3 4 5 7 8 24 63 93 111 133 iscatd2 U V C Cat Id C = x B I Base x