Theorem isoini 5809

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

Assertion

Ref	Expression
isoini	⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝐷}))) = (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝐷)})))

Proof of Theorem isoini

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dfima2 4965	. 2 ⊢ (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝐷}))) = {𝑦 ∣ ∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦}
2		elin 3316	. . . 4 ⊢ (𝑦 ∈ (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝐷)})) ↔ (𝑦 ∈ 𝐵 ∧ 𝑦 ∈ (◡𝑆 “ {(𝐻‘𝐷)})))
3		isof1o 5798	. . . . . . . . 9 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴–1-1-onto→𝐵)
4		f1ofo 5460	. . . . . . . . 9 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → 𝐻:𝐴–onto→𝐵)
5		forn 5433	. . . . . . . . . 10 ⊢ (𝐻:𝐴–onto→𝐵 → ran 𝐻 = 𝐵)
6	5	eleq2d 2245	. . . . . . . . 9 ⊢ (𝐻:𝐴–onto→𝐵 → (𝑦 ∈ ran 𝐻 ↔ 𝑦 ∈ 𝐵))
7	3, 4, 6	3syl 17	. . . . . . . 8 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ ran 𝐻 ↔ 𝑦 ∈ 𝐵))
8		f1ofn 5454	. . . . . . . . 9 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → 𝐻 Fn 𝐴)
9		fvelrnb 5555	. . . . . . . . 9 ⊢ (𝐻 Fn 𝐴 → (𝑦 ∈ ran 𝐻 ↔ ∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦))
10	3, 8, 9	3syl 17	. . . . . . . 8 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ ran 𝐻 ↔ ∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦))
11	7, 10	bitr3d 190	. . . . . . 7 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ 𝐵 ↔ ∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦))
12	11	adantr 276	. . . . . 6 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝑦 ∈ 𝐵 ↔ ∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦))
13	3, 8	syl 14	. . . . . . . 8 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻 Fn 𝐴)
14	13	anim1i 340	. . . . . . 7 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝐻 Fn 𝐴 ∧ 𝐷 ∈ 𝐴))
15		funfvex 5524	. . . . . . . 8 ⊢ ((Fun 𝐻 ∧ 𝐷 ∈ dom 𝐻) → (𝐻‘𝐷) ∈ V)
16	15	funfni 5308	. . . . . . 7 ⊢ ((𝐻 Fn 𝐴 ∧ 𝐷 ∈ 𝐴) → (𝐻‘𝐷) ∈ V)
17		vex 2738	. . . . . . . 8 ⊢ 𝑦 ∈ V
18	17	eliniseg 4991	. . . . . . 7 ⊢ ((𝐻‘𝐷) ∈ V → (𝑦 ∈ (◡𝑆 “ {(𝐻‘𝐷)}) ↔ 𝑦𝑆(𝐻‘𝐷)))
19	14, 16, 18	3syl 17	. . . . . 6 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝑦 ∈ (◡𝑆 “ {(𝐻‘𝐷)}) ↔ 𝑦𝑆(𝐻‘𝐷)))
20	12, 19	anbi12d 473	. . . . 5 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → ((𝑦 ∈ 𝐵 ∧ 𝑦 ∈ (◡𝑆 “ {(𝐻‘𝐷)})) ↔ (∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))
21		elin 3316	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ∈ (◡𝑅 “ {𝐷})))
22		vex 2738	. . . . . . . . . . . . . 14 ⊢ 𝑥 ∈ V
23	22	eliniseg 4991	. . . . . . . . . . . . 13 ⊢ (𝐷 ∈ 𝐴 → (𝑥 ∈ (◡𝑅 “ {𝐷}) ↔ 𝑥𝑅𝐷))
24	23	anbi2d 464	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ 𝐴 → ((𝑥 ∈ 𝐴 ∧ 𝑥 ∈ (◡𝑅 “ {𝐷})) ↔ (𝑥 ∈ 𝐴 ∧ 𝑥𝑅𝐷)))
25	21, 24	bitrid 192	. . . . . . . . . . 11 ⊢ (𝐷 ∈ 𝐴 → (𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ↔ (𝑥 ∈ 𝐴 ∧ 𝑥𝑅𝐷)))
26	25	anbi1d 465	. . . . . . . . . 10 ⊢ (𝐷 ∈ 𝐴 → ((𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ ((𝑥 ∈ 𝐴 ∧ 𝑥𝑅𝐷) ∧ 𝑥𝐻𝑦)))
27		anass 401	. . . . . . . . . 10 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝑥𝑅𝐷) ∧ 𝑥𝐻𝑦) ↔ (𝑥 ∈ 𝐴 ∧ (𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦)))
28	26, 27	bitrdi 196	. . . . . . . . 9 ⊢ (𝐷 ∈ 𝐴 → ((𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥 ∈ 𝐴 ∧ (𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦))))
29	28	adantl 277	. . . . . . . 8 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → ((𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥 ∈ 𝐴 ∧ (𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦))))
30		isorel 5799	. . . . . . . . . . . . . 14 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥 ∈ 𝐴 ∧ 𝐷 ∈ 𝐴)) → (𝑥𝑅𝐷 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝐷)))
31		fnbrfvb 5548	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐻 Fn 𝐴 ∧ 𝑥 ∈ 𝐴) → ((𝐻‘𝑥) = 𝑦 ↔ 𝑥𝐻𝑦))
32	31	bicomd 141	. . . . . . . . . . . . . . . 16 ⊢ ((𝐻 Fn 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥𝐻𝑦 ↔ (𝐻‘𝑥) = 𝑦))
33	13, 32	sylan 283	. . . . . . . . . . . . . . 15 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝑥 ∈ 𝐴) → (𝑥𝐻𝑦 ↔ (𝐻‘𝑥) = 𝑦))
34	33	adantrr 479	. . . . . . . . . . . . . 14 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥 ∈ 𝐴 ∧ 𝐷 ∈ 𝐴)) → (𝑥𝐻𝑦 ↔ (𝐻‘𝑥) = 𝑦))
35	30, 34	anbi12d 473	. . . . . . . . . . . . 13 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥 ∈ 𝐴 ∧ 𝐷 ∈ 𝐴)) → ((𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦) ↔ ((𝐻‘𝑥)𝑆(𝐻‘𝐷) ∧ (𝐻‘𝑥) = 𝑦)))
36		ancom 266	. . . . . . . . . . . . . 14 ⊢ (((𝐻‘𝑥)𝑆(𝐻‘𝐷) ∧ (𝐻‘𝑥) = 𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ (𝐻‘𝑥)𝑆(𝐻‘𝐷)))
37		breq1 4001	. . . . . . . . . . . . . . 15 ⊢ ((𝐻‘𝑥) = 𝑦 → ((𝐻‘𝑥)𝑆(𝐻‘𝐷) ↔ 𝑦𝑆(𝐻‘𝐷)))
38	37	pm5.32i 454	. . . . . . . . . . . . . 14 ⊢ (((𝐻‘𝑥) = 𝑦 ∧ (𝐻‘𝑥)𝑆(𝐻‘𝐷)) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))
39	36, 38	bitri 184	. . . . . . . . . . . . 13 ⊢ (((𝐻‘𝑥)𝑆(𝐻‘𝐷) ∧ (𝐻‘𝑥) = 𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))
40	35, 39	bitrdi 196	. . . . . . . . . . . 12 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥 ∈ 𝐴 ∧ 𝐷 ∈ 𝐴)) → ((𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))
41	40	exp32 365	. . . . . . . . . . 11 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑥 ∈ 𝐴 → (𝐷 ∈ 𝐴 → ((𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))))
42	41	com23 78	. . . . . . . . . 10 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝐷 ∈ 𝐴 → (𝑥 ∈ 𝐴 → ((𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))))
43	42	imp 124	. . . . . . . . 9 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝑥 ∈ 𝐴 → ((𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦) ↔ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))))
44	43	pm5.32d 450	. . . . . . . 8 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → ((𝑥 ∈ 𝐴 ∧ (𝑥𝑅𝐷 ∧ 𝑥𝐻𝑦)) ↔ (𝑥 ∈ 𝐴 ∧ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))))
45	29, 44	bitrd 188	. . . . . . 7 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → ((𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥 ∈ 𝐴 ∧ ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))))
46	45	rexbidv2 2478	. . . . . 6 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦 ↔ ∃𝑥 ∈ 𝐴 ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))
47		r19.41v 2631	. . . . . 6 ⊢ (∃𝑥 ∈ 𝐴 ((𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)) ↔ (∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷)))
48	46, 47	bitrdi 196	. . . . 5 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦 ↔ (∃𝑥 ∈ 𝐴 (𝐻‘𝑥) = 𝑦 ∧ 𝑦𝑆(𝐻‘𝐷))))
49	20, 48	bitr4d 191	. . . 4 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → ((𝑦 ∈ 𝐵 ∧ 𝑦 ∈ (◡𝑆 “ {(𝐻‘𝐷)})) ↔ ∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦))
50	2, 49	bitrid 192	. . 3 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝑦 ∈ (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝐷)})) ↔ ∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦))
51	50	abbi2dv 2294	. 2 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝐷)})) = {𝑦 ∣ ∃𝑥 ∈ (𝐴 ∩ (◡𝑅 “ {𝐷}))𝑥𝐻𝑦})
52	1, 51	eqtr4id 2227	1 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷 ∈ 𝐴) → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝐷}))) = (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝐷)})))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1353   ∈ wcel 2146  {cab 2161  ∃wrex 2454  Vcvv 2735   ∩ cin 3126  {csn 3589   class class class wbr 3998  ^◡ccnv 4619  ran crn 4621   “ cima 4623   Fn wfn 5203  –onto→wfo 5206  –1-1-onto→wf1o 5207  ‘cfv 5208   Isom wiso 5209

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-14 2149  ax-ext 2157  ax-sep 4116  ax-pow 4169  ax-pr 4203

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1459  df-sb 1761  df-eu 2027  df-mo 2028  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ral 2458  df-rex 2459  df-v 2737  df-sbc 2961  df-un 3131  df-in 3133  df-ss 3140  df-pw 3574  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-br 3999  df-opab 4060  df-mpt 4061  df-id 4287  df-xp 4626  df-rel 4627  df-cnv 4628  df-co 4629  df-dm 4630  df-rn 4631  df-res 4632  df-ima 4633  df-iota 5170  df-fun 5210  df-fn 5211  df-f 5212  df-f1 5213  df-fo 5214  df-f1o 5215  df-fv 5216  df-isom 5217

This theorem is referenced by:  isoini2  5810  isoselem  5811