Theorem isoini 5457

Description: Isomorphisms preserve initial segments. Proposition 6.31(2) of [TakeutiZaring] p. 33. (Contributed by NM, 20-Apr-2004.)

Assertion

Ref	Expression
isoini	|- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( H " ( A i^i ( `' R " { D } ) ) ) = ( B i^i ( `' S " { ( H ` D ) } ) ) )

Proof of Theorem isoini

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elin 3126	. . . 4 |- ( y e. ( B i^i ( `' S " { ( H ` D ) } ) ) <-> ( y e. B /\ y e. ( `' S " { ( H ` D ) } ) ) )
2		isof1o 5447	. . . . . . . . 9 |- ( H Isom R , S ( A , B ) -> H : A -1-1-onto-> B )
3		f1ofo 5133	. . . . . . . . 9 |- ( H : A -1-1-onto-> B -> H : A -onto-> B )
4		forn 5109	. . . . . . . . . 10 |- ( H : A -onto-> B -> ran H = B )
5	4	eleq2d 2107	. . . . . . . . 9 |- ( H : A -onto-> B -> ( y e. ran H <-> y e. B ) )
6	2, 3, 5	3syl 17	. . . . . . . 8 |- ( H Isom R , S ( A , B ) -> ( y e. ran H <-> y e. B ) )
7		f1ofn 5127	. . . . . . . . 9 |- ( H : A -1-1-onto-> B -> H Fn A )
8		fvelrnb 5221	. . . . . . . . 9 |- ( H Fn A -> ( y e. ran H <-> E. x e. A ( H ` x ) = y ) )
9	2, 7, 8	3syl 17	. . . . . . . 8 |- ( H Isom R , S ( A , B ) -> ( y e. ran H <-> E. x e. A ( H ` x ) = y ) )
10	6, 9	bitr3d 179	. . . . . . 7 |- ( H Isom R , S ( A , B ) -> ( y e. B <-> E. x e. A ( H ` x ) = y ) )
11	10	adantr 261	. . . . . 6 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( y e. B <-> E. x e. A ( H ` x ) = y ) )
12	2, 7	syl 14	. . . . . . . 8 |- ( H Isom R , S ( A , B ) -> H Fn A )
13	12	anim1i 323	. . . . . . 7 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( H Fn A /\ D e. A ) )
14		funfvex 5192	. . . . . . . 8 |- ( ( Fun H /\ D e. dom H ) -> ( H ` D ) e. _V )
15	14	funfni 4999	. . . . . . 7 |- ( ( H Fn A /\ D e. A ) -> ( H ` D ) e. _V )
16		vex 2560	. . . . . . . 8 |- y e. _V
17	16	eliniseg 4695	. . . . . . 7 |- ( ( H ` D ) e. _V -> ( y e. ( `' S " { ( H ` D ) } ) <-> y S ( H ` D ) ) )
18	13, 15, 17	3syl 17	. . . . . 6 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( y e. ( `' S " { ( H ` D ) } ) <-> y S ( H ` D ) ) )
19	11, 18	anbi12d 442	. . . . 5 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( ( y e. B /\ y e. ( `' S " { ( H ` D ) } ) ) <-> ( E. x e. A ( H ` x ) = y /\ y S ( H ` D ) ) ) )
20		elin 3126	. . . . . . . . . . . 12 |- ( x e. ( A i^i ( `' R " { D } ) ) <-> ( x e. A /\ x e. ( `' R " { D } ) ) )
21		vex 2560	. . . . . . . . . . . . . 14 |- x e. _V
22	21	eliniseg 4695	. . . . . . . . . . . . 13 |- ( D e. A -> ( x e. ( `' R " { D } ) <-> x R D ) )
23	22	anbi2d 437	. . . . . . . . . . . 12 |- ( D e. A -> ( ( x e. A /\ x e. ( `' R " { D } ) ) <-> ( x e. A /\ x R D ) ) )
24	20, 23	syl5bb 181	. . . . . . . . . . 11 |- ( D e. A -> ( x e. ( A i^i ( `' R " { D } ) ) <-> ( x e. A /\ x R D ) ) )
25	24	anbi1d 438	. . . . . . . . . 10 |- ( D e. A -> ( ( x e. ( A i^i ( `' R " { D } ) ) /\ x H y ) <-> ( ( x e. A /\ x R D ) /\ x H y ) ) )
26		anass 381	. . . . . . . . . 10 |- ( ( ( x e. A /\ x R D ) /\ x H y ) <-> ( x e. A /\ ( x R D /\ x H y ) ) )
27	25, 26	syl6bb 185	. . . . . . . . 9 |- ( D e. A -> ( ( x e. ( A i^i ( `' R " { D } ) ) /\ x H y ) <-> ( x e. A /\ ( x R D /\ x H y ) ) ) )
28	27	adantl 262	. . . . . . . 8 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( ( x e. ( A i^i ( `' R " { D } ) ) /\ x H y ) <-> ( x e. A /\ ( x R D /\ x H y ) ) ) )
29		isorel 5448	. . . . . . . . . . . . . 14 |- ( ( H Isom R , S ( A , B ) /\ ( x e. A /\ D e. A ) ) -> ( x R D <-> ( H ` x ) S ( H ` D ) ) )
30		fnbrfvb 5214	. . . . . . . . . . . . . . . . 17 |- ( ( H Fn A /\ x e. A ) -> ( ( H ` x ) = y <-> x H y ) )
31	30	bicomd 129	. . . . . . . . . . . . . . . 16 |- ( ( H Fn A /\ x e. A ) -> ( x H y <-> ( H ` x ) = y ) )
32	12, 31	sylan 267	. . . . . . . . . . . . . . 15 |- ( ( H Isom R , S ( A , B ) /\ x e. A ) -> ( x H y <-> ( H ` x ) = y ) )
33	32	adantrr 448	. . . . . . . . . . . . . 14 |- ( ( H Isom R , S ( A , B ) /\ ( x e. A /\ D e. A ) ) -> ( x H y <-> ( H ` x ) = y ) )
34	29, 33	anbi12d 442	. . . . . . . . . . . . 13 |- ( ( H Isom R , S ( A , B ) /\ ( x e. A /\ D e. A ) ) -> ( ( x R D /\ x H y ) <-> ( ( H ` x ) S ( H ` D ) /\ ( H ` x ) = y ) ) )
35		ancom 253	. . . . . . . . . . . . . 14 |- ( ( ( H ` x ) S ( H ` D ) /\ ( H ` x ) = y ) <-> ( ( H ` x ) = y /\ ( H ` x ) S ( H ` D ) ) )
36		breq1 3767	. . . . . . . . . . . . . . 15 |- ( ( H ` x ) = y -> ( ( H ` x ) S ( H ` D ) <-> y S ( H ` D ) ) )
37	36	pm5.32i 427	. . . . . . . . . . . . . 14 |- ( ( ( H ` x ) = y /\ ( H ` x ) S ( H ` D ) ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) )
38	35, 37	bitri 173	. . . . . . . . . . . . 13 |- ( ( ( H ` x ) S ( H ` D ) /\ ( H ` x ) = y ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) )
39	34, 38	syl6bb 185	. . . . . . . . . . . 12 |- ( ( H Isom R , S ( A , B ) /\ ( x e. A /\ D e. A ) ) -> ( ( x R D /\ x H y ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) ) )
40	39	exp32 347	. . . . . . . . . . 11 |- ( H Isom R , S ( A , B ) -> ( x e. A -> ( D e. A -> ( ( x R D /\ x H y ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) ) ) ) )
41	40	com23 72	. . . . . . . . . 10 |- ( H Isom R , S ( A , B ) -> ( D e. A -> ( x e. A -> ( ( x R D /\ x H y ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) ) ) ) )
42	41	imp 115	. . . . . . . . 9 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( x e. A -> ( ( x R D /\ x H y ) <-> ( ( H ` x ) = y /\ y S ( H ` D ) ) ) ) )
43	42	pm5.32d 423	. . . . . . . 8 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( ( x e. A /\ ( x R D /\ x H y ) ) <-> ( x e. A /\ ( ( H ` x ) = y /\ y S ( H ` D ) ) ) ) )
44	28, 43	bitrd 177	. . . . . . 7 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( ( x e. ( A i^i ( `' R " { D } ) ) /\ x H y ) <-> ( x e. A /\ ( ( H ` x ) = y /\ y S ( H ` D ) ) ) ) )
45	44	rexbidv2 2329	. . . . . 6 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( E. x e. ( A i^i ( `' R " { D } ) ) x H y <-> E. x e. A ( ( H ` x ) = y /\ y S ( H ` D ) ) ) )
46		r19.41v 2466	. . . . . 6 |- ( E. x e. A ( ( H ` x ) = y /\ y S ( H ` D ) ) <-> ( E. x e. A ( H ` x ) = y /\ y S ( H ` D ) ) )
47	45, 46	syl6bb 185	. . . . 5 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( E. x e. ( A i^i ( `' R " { D } ) ) x H y <-> ( E. x e. A ( H ` x ) = y /\ y S ( H ` D ) ) ) )
48	19, 47	bitr4d 180	. . . 4 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( ( y e. B /\ y e. ( `' S " { ( H ` D ) } ) ) <-> E. x e. ( A i^i ( `' R " { D } ) ) x H y ) )
49	1, 48	syl5bb 181	. . 3 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( y e. ( B i^i ( `' S " { ( H ` D ) } ) ) <-> E. x e. ( A i^i ( `' R " { D } ) ) x H y ) )
50	49	abbi2dv 2156	. 2 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( B i^i ( `' S " { ( H ` D ) } ) ) = { y | E. x e. ( A i^i ( `' R " { D } ) ) x H y } )
51		dfima2 4670	. 2 |- ( H " ( A i^i ( `' R " { D } ) ) ) = { y | E. x e. ( A i^i ( `' R " { D } ) ) x H y }
52	50, 51	syl6reqr 2091	1 |- ( ( H Isom R , S ( A , B ) /\ D e. A ) -> ( H " ( A i^i ( `' R " { D } ) ) ) = ( B i^i ( `' S " { ( H ` D ) } ) ) )

Syntax hints:   -> wi 4   /\ wa 97   <-> wb 98   = wceq 1243   e. wcel 1393   {cab 2026   E.wrex 2307   _Vcvv 2557   i^i cin 2916   {csn 3375   class class class wbr 3764   `'ccnv 4344   ran crn 4346   "cima 4348   Fn wfn 4897   -onto->wfo 4900   -1-1-onto->wf1o 4901   ` cfv 4902   Isom wiso 4903

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3875  ax-pow 3927  ax-pr 3944

This theorem depends on definitions:  df-bi 110  df-3an 887  df-tru 1246  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ral 2311  df-rex 2312  df-v 2559  df-sbc 2765  df-un 2922  df-in 2924  df-ss 2931  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-br 3765  df-opab 3819  df-mpt 3820  df-id 4030  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fun 4904  df-fn 4905  df-f 4906  df-f1 4907  df-fo 4908  df-f1o 4909  df-fv 4910  df-isom 4911

This theorem is referenced by:  isoini2  5458  isoselem  5459