MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  isoini Structured version   Visualization version   GIF version

Theorem isoini 7283
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.
StepHypRef Expression
1 dfima2 6015 . 2 (𝐻 “ (𝐴 ∩ (𝑅 “ {𝐷}))) = {𝑦 ∣ ∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦}
2 elin 3926 . . . 4 (𝑦 ∈ (𝐵 ∩ (𝑆 “ {(𝐻𝐷)})) ↔ (𝑦𝐵𝑦 ∈ (𝑆 “ {(𝐻𝐷)})))
3 isof1o 7268 . . . . . . . . 9 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴1-1-onto𝐵)
4 f1ofo 6791 . . . . . . . . 9 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴onto𝐵)
5 forn 6759 . . . . . . . . . 10 (𝐻:𝐴onto𝐵 → ran 𝐻 = 𝐵)
65eleq2d 2823 . . . . . . . . 9 (𝐻:𝐴onto𝐵 → (𝑦 ∈ ran 𝐻𝑦𝐵))
73, 4, 63syl 18 . . . . . . . 8 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ ran 𝐻𝑦𝐵))
8 f1ofn 6785 . . . . . . . . 9 (𝐻:𝐴1-1-onto𝐵𝐻 Fn 𝐴)
9 fvelrnb 6903 . . . . . . . . 9 (𝐻 Fn 𝐴 → (𝑦 ∈ ran 𝐻 ↔ ∃𝑥𝐴 (𝐻𝑥) = 𝑦))
103, 8, 93syl 18 . . . . . . . 8 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ ran 𝐻 ↔ ∃𝑥𝐴 (𝐻𝑥) = 𝑦))
117, 10bitr3d 280 . . . . . . 7 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦𝐵 ↔ ∃𝑥𝐴 (𝐻𝑥) = 𝑦))
12 fvex 6855 . . . . . . . 8 (𝐻𝐷) ∈ V
13 vex 3449 . . . . . . . . 9 𝑦 ∈ V
1413eliniseg 6046 . . . . . . . 8 ((𝐻𝐷) ∈ V → (𝑦 ∈ (𝑆 “ {(𝐻𝐷)}) ↔ 𝑦𝑆(𝐻𝐷)))
1512, 14mp1i 13 . . . . . . 7 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑦 ∈ (𝑆 “ {(𝐻𝐷)}) ↔ 𝑦𝑆(𝐻𝐷)))
1611, 15anbi12d 631 . . . . . 6 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑦𝐵𝑦 ∈ (𝑆 “ {(𝐻𝐷)})) ↔ (∃𝑥𝐴 (𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))
1716adantr 481 . . . . 5 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → ((𝑦𝐵𝑦 ∈ (𝑆 “ {(𝐻𝐷)})) ↔ (∃𝑥𝐴 (𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))
18 elin 3926 . . . . . . . . . . . 12 (𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ↔ (𝑥𝐴𝑥 ∈ (𝑅 “ {𝐷})))
19 vex 3449 . . . . . . . . . . . . . 14 𝑥 ∈ V
2019eliniseg 6046 . . . . . . . . . . . . 13 (𝐷𝐴 → (𝑥 ∈ (𝑅 “ {𝐷}) ↔ 𝑥𝑅𝐷))
2120anbi2d 629 . . . . . . . . . . . 12 (𝐷𝐴 → ((𝑥𝐴𝑥 ∈ (𝑅 “ {𝐷})) ↔ (𝑥𝐴𝑥𝑅𝐷)))
2218, 21bitrid 282 . . . . . . . . . . 11 (𝐷𝐴 → (𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ↔ (𝑥𝐴𝑥𝑅𝐷)))
2322anbi1d 630 . . . . . . . . . 10 (𝐷𝐴 → ((𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ ((𝑥𝐴𝑥𝑅𝐷) ∧ 𝑥𝐻𝑦)))
24 anass 469 . . . . . . . . . 10 (((𝑥𝐴𝑥𝑅𝐷) ∧ 𝑥𝐻𝑦) ↔ (𝑥𝐴 ∧ (𝑥𝑅𝐷𝑥𝐻𝑦)))
2523, 24bitrdi 286 . . . . . . . . 9 (𝐷𝐴 → ((𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥𝐴 ∧ (𝑥𝑅𝐷𝑥𝐻𝑦))))
2625adantl 482 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → ((𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥𝐴 ∧ (𝑥𝑅𝐷𝑥𝐻𝑦))))
27 isorel 7271 . . . . . . . . . . . . . 14 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥𝐴𝐷𝐴)) → (𝑥𝑅𝐷 ↔ (𝐻𝑥)𝑆(𝐻𝐷)))
283, 8syl 17 . . . . . . . . . . . . . . . 16 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻 Fn 𝐴)
29 fnbrfvb 6895 . . . . . . . . . . . . . . . . 17 ((𝐻 Fn 𝐴𝑥𝐴) → ((𝐻𝑥) = 𝑦𝑥𝐻𝑦))
3029bicomd 222 . . . . . . . . . . . . . . . 16 ((𝐻 Fn 𝐴𝑥𝐴) → (𝑥𝐻𝑦 ↔ (𝐻𝑥) = 𝑦))
3128, 30sylan 580 . . . . . . . . . . . . . . 15 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝑥𝐴) → (𝑥𝐻𝑦 ↔ (𝐻𝑥) = 𝑦))
3231adantrr 715 . . . . . . . . . . . . . 14 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥𝐴𝐷𝐴)) → (𝑥𝐻𝑦 ↔ (𝐻𝑥) = 𝑦))
3327, 32anbi12d 631 . . . . . . . . . . . . 13 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥𝐴𝐷𝐴)) → ((𝑥𝑅𝐷𝑥𝐻𝑦) ↔ ((𝐻𝑥)𝑆(𝐻𝐷) ∧ (𝐻𝑥) = 𝑦)))
34 ancom 461 . . . . . . . . . . . . . 14 (((𝐻𝑥)𝑆(𝐻𝐷) ∧ (𝐻𝑥) = 𝑦) ↔ ((𝐻𝑥) = 𝑦 ∧ (𝐻𝑥)𝑆(𝐻𝐷)))
35 breq1 5108 . . . . . . . . . . . . . . 15 ((𝐻𝑥) = 𝑦 → ((𝐻𝑥)𝑆(𝐻𝐷) ↔ 𝑦𝑆(𝐻𝐷)))
3635pm5.32i 575 . . . . . . . . . . . . . 14 (((𝐻𝑥) = 𝑦 ∧ (𝐻𝑥)𝑆(𝐻𝐷)) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))
3734, 36bitri 274 . . . . . . . . . . . . 13 (((𝐻𝑥)𝑆(𝐻𝐷) ∧ (𝐻𝑥) = 𝑦) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))
3833, 37bitrdi 286 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑥𝐴𝐷𝐴)) → ((𝑥𝑅𝐷𝑥𝐻𝑦) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))
3938exp32 421 . . . . . . . . . . 11 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑥𝐴 → (𝐷𝐴 → ((𝑥𝑅𝐷𝑥𝐻𝑦) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))))
4039com23 86 . . . . . . . . . 10 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝐷𝐴 → (𝑥𝐴 → ((𝑥𝑅𝐷𝑥𝐻𝑦) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))))
4140imp 407 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (𝑥𝐴 → ((𝑥𝑅𝐷𝑥𝐻𝑦) ↔ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))))
4241pm5.32d 577 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → ((𝑥𝐴 ∧ (𝑥𝑅𝐷𝑥𝐻𝑦)) ↔ (𝑥𝐴 ∧ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))))
4326, 42bitrd 278 . . . . . . 7 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → ((𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷})) ∧ 𝑥𝐻𝑦) ↔ (𝑥𝐴 ∧ ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))))
4443rexbidv2 3171 . . . . . 6 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦 ↔ ∃𝑥𝐴 ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))
45 r19.41v 3185 . . . . . 6 (∃𝑥𝐴 ((𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)) ↔ (∃𝑥𝐴 (𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷)))
4644, 45bitrdi 286 . . . . 5 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦 ↔ (∃𝑥𝐴 (𝐻𝑥) = 𝑦𝑦𝑆(𝐻𝐷))))
4717, 46bitr4d 281 . . . 4 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → ((𝑦𝐵𝑦 ∈ (𝑆 “ {(𝐻𝐷)})) ↔ ∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦))
482, 47bitrid 282 . . 3 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (𝑦 ∈ (𝐵 ∩ (𝑆 “ {(𝐻𝐷)})) ↔ ∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦))
4948abbi2dv 2871 . 2 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (𝐵 ∩ (𝑆 “ {(𝐻𝐷)})) = {𝑦 ∣ ∃𝑥 ∈ (𝐴 ∩ (𝑅 “ {𝐷}))𝑥𝐻𝑦})
501, 49eqtr4id 2795 1 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝐷𝐴) → (𝐻 “ (𝐴 ∩ (𝑅 “ {𝐷}))) = (𝐵 ∩ (𝑆 “ {(𝐻𝐷)})))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396   = wceq 1541  wcel 2106  {cab 2713  wrex 3073  Vcvv 3445  cin 3909  {csn 4586   class class class wbr 5105  ccnv 5632  ran crn 5634  cima 5636   Fn wfn 6491  ontowfo 6494  1-1-ontowf1o 6495  cfv 6496   Isom wiso 6497
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pr 5384
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-rab 3408  df-v 3447  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505
This theorem is referenced by:  isoini2  7284  isoselem  7286  infxpenlem  9949
  Copyright terms: Public domain W3C validator