Theorem iinerm 6404

Description: The intersection of a nonempty family of equivalence relations is an equivalence relation. (Contributed by Mario Carneiro, 27-Sep-2015.)

Assertion

Ref	Expression
iinerm	|- ( ( E. y y e. A /\ A. x e. A R Er B ) -> |^|_ x e. A R Er B )

Distinct variable groups:   x, A   x, B   y, A

Allowed substitution hints:   B( y)   R( x, y)

Proof of Theorem iinerm

Dummy variables u a v w are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eleq1w 2155	. . . 4 |- ( x = a -> ( x e. A <-> a e. A ) )
2	1	cbvexv 1850	. . 3 |- ( E. x x e. A <-> E. a a e. A )
3		eleq1w 2155	. . . 4 |- ( a = y -> ( a e. A <-> y e. A ) )
4	3	cbvexv 1850	. . 3 |- ( E. a a e. A <-> E. y y e. A )
5	2, 4	bitri 183	. 2 |- ( E. x x e. A <-> E. y y e. A )
6		r19.2m 3388	. . . . 5 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> E. x e. A R Er B )
7		errel 6341	. . . . . . 7 |- ( R Er B -> Rel R )
8		df-rel 4474	. . . . . . 7 |- ( Rel R <-> R C_ ( _V X. _V ) )
9	7, 8	sylib 121	. . . . . 6 |- ( R Er B -> R C_ ( _V X. _V ) )
10	9	reximi 2482	. . . . 5 |- ( E. x e. A R Er B -> E. x e. A R C_ ( _V X. _V ) )
11		iinss 3803	. . . . 5 |- ( E. x e. A R C_ ( _V X. _V ) -> |^|_ x e. A R C_ ( _V X. _V ) )
12	6, 10, 11	3syl 17	. . . 4 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> |^|_ x e. A R C_ ( _V X. _V ) )
13		df-rel 4474	. . . 4 |- ( Rel |^|_ x e. A R <-> |^|_ x e. A R C_ ( _V X. _V ) )
14	12, 13	sylibr 133	. . 3 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> Rel |^|_ x e. A R )
15		id 19	. . . . . . . . . 10 |- ( R Er B -> R Er B )
16	15	ersymb 6346	. . . . . . . . 9 |- ( R Er B -> ( u R v <-> v R u ) )
17	16	biimpd 143	. . . . . . . 8 |- ( R Er B -> ( u R v -> v R u ) )
18		df-br 3868	. . . . . . . 8 |- ( u R v <-> <. u , v >. e. R )
19		df-br 3868	. . . . . . . 8 |- ( v R u <-> <. v , u >. e. R )
20	17, 18, 19	3imtr3g 203	. . . . . . 7 |- ( R Er B -> ( <. u , v >. e. R -> <. v , u >. e. R ) )
21	20	ral2imi 2451	. . . . . 6 |- ( A. x e. A R Er B -> ( A. x e. A <. u , v >. e. R -> A. x e. A <. v , u >. e. R ) )
22	21	adantl 272	. . . . 5 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( A. x e. A <. u , v >. e. R -> A. x e. A <. v , u >. e. R ) )
23		df-br 3868	. . . . . 6 |- ( u |^|_ x e. A R v <-> <. u , v >. e. |^|_ x e. A R )
24		vex 2636	. . . . . . . 8 |- u e. _V
25		vex 2636	. . . . . . . 8 |- v e. _V
26	24, 25	opex 4080	. . . . . . 7 |- <. u , v >. e. _V
27		eliin 3757	. . . . . . 7 |- ( <. u , v >. e. _V -> ( <. u , v >. e. |^|_ x e. A R <-> A. x e. A <. u , v >. e. R ) )
28	26, 27	ax-mp 7	. . . . . 6 |- ( <. u , v >. e. |^|_ x e. A R <-> A. x e. A <. u , v >. e. R )
29	23, 28	bitri 183	. . . . 5 |- ( u |^|_ x e. A R v <-> A. x e. A <. u , v >. e. R )
30		df-br 3868	. . . . . 6 |- ( v |^|_ x e. A R u <-> <. v , u >. e. |^|_ x e. A R )
31	25, 24	opex 4080	. . . . . . 7 |- <. v , u >. e. _V
32		eliin 3757	. . . . . . 7 |- ( <. v , u >. e. _V -> ( <. v , u >. e. |^|_ x e. A R <-> A. x e. A <. v , u >. e. R ) )
33	31, 32	ax-mp 7	. . . . . 6 |- ( <. v , u >. e. |^|_ x e. A R <-> A. x e. A <. v , u >. e. R )
34	30, 33	bitri 183	. . . . 5 |- ( v |^|_ x e. A R u <-> A. x e. A <. v , u >. e. R )
35	22, 29, 34	3imtr4g 204	. . . 4 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( u |^|_ x e. A R v -> v |^|_ x e. A R u ) )
36	35	imp 123	. . 3 |- ( ( ( E. x x e. A /\ A. x e. A R Er B ) /\ u |^|_ x e. A R v ) -> v |^|_ x e. A R u )
37		r19.26 2511	. . . . . 6 |- ( A. x e. A ( <. u , v >. e. R /\ <. v , w >. e. R ) <-> ( A. x e. A <. u , v >. e. R /\ A. x e. A <. v , w >. e. R ) )
38	15	ertr 6347	. . . . . . . . 9 |- ( R Er B -> ( ( u R v /\ v R w ) -> u R w ) )
39		df-br 3868	. . . . . . . . . 10 |- ( v R w <-> <. v , w >. e. R )
40	18, 39	anbi12i 449	. . . . . . . . 9 |- ( ( u R v /\ v R w ) <-> ( <. u , v >. e. R /\ <. v , w >. e. R ) )
41		df-br 3868	. . . . . . . . 9 |- ( u R w <-> <. u , w >. e. R )
42	38, 40, 41	3imtr3g 203	. . . . . . . 8 |- ( R Er B -> ( ( <. u , v >. e. R /\ <. v , w >. e. R ) -> <. u , w >. e. R ) )
43	42	ral2imi 2451	. . . . . . 7 |- ( A. x e. A R Er B -> ( A. x e. A ( <. u , v >. e. R /\ <. v , w >. e. R ) -> A. x e. A <. u , w >. e. R ) )
44	43	adantl 272	. . . . . 6 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( A. x e. A ( <. u , v >. e. R /\ <. v , w >. e. R ) -> A. x e. A <. u , w >. e. R ) )
45	37, 44	syl5bir 152	. . . . 5 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( ( A. x e. A <. u , v >. e. R /\ A. x e. A <. v , w >. e. R ) -> A. x e. A <. u , w >. e. R ) )
46		df-br 3868	. . . . . . 7 |- ( v |^|_ x e. A R w <-> <. v , w >. e. |^|_ x e. A R )
47		vex 2636	. . . . . . . . 9 |- w e. _V
48	25, 47	opex 4080	. . . . . . . 8 |- <. v , w >. e. _V
49		eliin 3757	. . . . . . . 8 |- ( <. v , w >. e. _V -> ( <. v , w >. e. |^|_ x e. A R <-> A. x e. A <. v , w >. e. R ) )
50	48, 49	ax-mp 7	. . . . . . 7 |- ( <. v , w >. e. |^|_ x e. A R <-> A. x e. A <. v , w >. e. R )
51	46, 50	bitri 183	. . . . . 6 |- ( v |^|_ x e. A R w <-> A. x e. A <. v , w >. e. R )
52	29, 51	anbi12i 449	. . . . 5 |- ( ( u |^|_ x e. A R v /\ v |^|_ x e. A R w ) <-> ( A. x e. A <. u , v >. e. R /\ A. x e. A <. v , w >. e. R ) )
53		df-br 3868	. . . . . 6 |- ( u |^|_ x e. A R w <-> <. u , w >. e. |^|_ x e. A R )
54	24, 47	opex 4080	. . . . . . 7 |- <. u , w >. e. _V
55		eliin 3757	. . . . . . 7 |- ( <. u , w >. e. _V -> ( <. u , w >. e. |^|_ x e. A R <-> A. x e. A <. u , w >. e. R ) )
56	54, 55	ax-mp 7	. . . . . 6 |- ( <. u , w >. e. |^|_ x e. A R <-> A. x e. A <. u , w >. e. R )
57	53, 56	bitri 183	. . . . 5 |- ( u |^|_ x e. A R w <-> A. x e. A <. u , w >. e. R )
58	45, 52, 57	3imtr4g 204	. . . 4 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( ( u |^|_ x e. A R v /\ v |^|_ x e. A R w ) -> u |^|_ x e. A R w ) )
59	58	imp 123	. . 3 |- ( ( ( E. x x e. A /\ A. x e. A R Er B ) /\ ( u |^|_ x e. A R v /\ v |^|_ x e. A R w ) ) -> u |^|_ x e. A R w )
60		simpl 108	. . . . . . . . . . 11 |- ( ( R Er B /\ u e. B ) -> R Er B )
61		simpr 109	. . . . . . . . . . 11 |- ( ( R Er B /\ u e. B ) -> u e. B )
62	60, 61	erref 6352	. . . . . . . . . 10 |- ( ( R Er B /\ u e. B ) -> u R u )
63		df-br 3868	. . . . . . . . . 10 |- ( u R u <-> <. u , u >. e. R )
64	62, 63	sylib 121	. . . . . . . . 9 |- ( ( R Er B /\ u e. B ) -> <. u , u >. e. R )
65	64	expcom 115	. . . . . . . 8 |- ( u e. B -> ( R Er B -> <. u , u >. e. R ) )
66	65	ralimdv 2454	. . . . . . 7 |- ( u e. B -> ( A. x e. A R Er B -> A. x e. A <. u , u >. e. R ) )
67	66	com12 30	. . . . . 6 |- ( A. x e. A R Er B -> ( u e. B -> A. x e. A <. u , u >. e. R ) )
68	67	adantl 272	. . . . 5 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( u e. B -> A. x e. A <. u , u >. e. R ) )
69		r19.26 2511	. . . . . . 7 |- ( A. x e. A ( R Er B /\ <. u , u >. e. R ) <-> ( A. x e. A R Er B /\ A. x e. A <. u , u >. e. R ) )
70		r19.2m 3388	. . . . . . . . 9 |- ( ( E. x x e. A /\ A. x e. A ( R Er B /\ <. u , u >. e. R ) ) -> E. x e. A ( R Er B /\ <. u , u >. e. R ) )
71	24, 24	opeldm 4670	. . . . . . . . . . 11 |- ( <. u , u >. e. R -> u e. dom R )
72		erdm 6342	. . . . . . . . . . . . 13 |- ( R Er B -> dom R = B )
73	72	eleq2d 2164	. . . . . . . . . . . 12 |- ( R Er B -> ( u e. dom R <-> u e. B ) )
74	73	biimpa 291	. . . . . . . . . . 11 |- ( ( R Er B /\ u e. dom R ) -> u e. B )
75	71, 74	sylan2 281	. . . . . . . . . 10 |- ( ( R Er B /\ <. u , u >. e. R ) -> u e. B )
76	75	rexlimivw 2498	. . . . . . . . 9 |- ( E. x e. A ( R Er B /\ <. u , u >. e. R ) -> u e. B )
77	70, 76	syl 14	. . . . . . . 8 |- ( ( E. x x e. A /\ A. x e. A ( R Er B /\ <. u , u >. e. R ) ) -> u e. B )
78	77	ex 114	. . . . . . 7 |- ( E. x x e. A -> ( A. x e. A ( R Er B /\ <. u , u >. e. R ) -> u e. B ) )
79	69, 78	syl5bir 152	. . . . . 6 |- ( E. x x e. A -> ( ( A. x e. A R Er B /\ A. x e. A <. u , u >. e. R ) -> u e. B ) )
80	79	expdimp 256	. . . . 5 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( A. x e. A <. u , u >. e. R -> u e. B ) )
81	68, 80	impbid 128	. . . 4 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( u e. B <-> A. x e. A <. u , u >. e. R ) )
82		df-br 3868	. . . . 5 |- ( u |^|_ x e. A R u <-> <. u , u >. e. |^|_ x e. A R )
83	24, 24	opex 4080	. . . . . 6 |- <. u , u >. e. _V
84		eliin 3757	. . . . . 6 |- ( <. u , u >. e. _V -> ( <. u , u >. e. |^|_ x e. A R <-> A. x e. A <. u , u >. e. R ) )
85	83, 84	ax-mp 7	. . . . 5 |- ( <. u , u >. e. |^|_ x e. A R <-> A. x e. A <. u , u >. e. R )
86	82, 85	bitri 183	. . . 4 |- ( u |^|_ x e. A R u <-> A. x e. A <. u , u >. e. R )
87	81, 86	syl6bbr 197	. . 3 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> ( u e. B <-> u |^|_ x e. A R u ) )
88	14, 36, 59, 87	iserd 6358	. 2 |- ( ( E. x x e. A /\ A. x e. A R Er B ) -> |^|_ x e. A R Er B )
89	5, 88	sylanbr 280	1 |- ( ( E. y y e. A /\ A. x e. A R Er B ) -> |^|_ x e. A R Er B )

Syntax hints:   -> wi 4   /\ wa 103   <-> wb 104   E.wex 1433   e. wcel 1445   A.wral 2370   E.wrex 2371   _Vcvv 2633   C_ wss 3013   <.cop 3469   |^|_ciin 3753   class class class wbr 3867   X. cxp 4465   dom cdm 4467   Rel wrel 4472   Er wer 6329

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 668  ax-5 1388  ax-7 1389  ax-gen 1390  ax-ie1 1434  ax-ie2 1435  ax-8 1447  ax-10 1448  ax-11 1449  ax-i12 1450  ax-bndl 1451  ax-4 1452  ax-14 1457  ax-17 1471  ax-i9 1475  ax-ial 1479  ax-i5r 1480  ax-ext 2077  ax-sep 3978  ax-pow 4030  ax-pr 4060

This theorem depends on definitions:  df-bi 116  df-3an 929  df-tru 1299  df-nf 1402  df-sb 1700  df-eu 1958  df-mo 1959  df-clab 2082  df-cleq 2088  df-clel 2091  df-nfc 2224  df-ral 2375  df-rex 2376  df-v 2635  df-un 3017  df-in 3019  df-ss 3026  df-pw 3451  df-sn 3472  df-pr 3473  df-op 3475  df-iin 3755  df-br 3868  df-opab 3922  df-xp 4473  df-rel 4474  df-cnv 4475  df-co 4476  df-dm 4477  df-er 6332

This theorem is referenced by:  riinerm  6405