Theorem isoselem 7289

Description: Lemma for isose 7291. (Contributed by Mario Carneiro, 23-Jun-2015.)

Hypotheses

Ref	Expression
isofrlem.1	⊢ (𝜑 → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
isofrlem.2	⊢ (𝜑 → (𝐻 “ 𝑥) ∈ V)

Assertion

Ref	Expression
isoselem	⊢ (𝜑 → (𝑅 Se 𝐴 → 𝑆 Se 𝐵))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐻   𝜑,𝑥   𝑥,𝑅   𝑥,𝑆

Proof of Theorem isoselem

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

Step	Hyp	Ref	Expression
1		dfse2 6059	. . . . . . . . 9 ⊢ (𝑅 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V)
2	1	biimpi 216	. . . . . . . 8 ⊢ (𝑅 Se 𝐴 → ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V)
3	2	r19.21bi 3230	. . . . . . 7 ⊢ ((𝑅 Se 𝐴 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V)
4	3	expcom 413	. . . . . 6 ⊢ (𝑧 ∈ 𝐴 → (𝑅 Se 𝐴 → (𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V))
5	4	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑅 Se 𝐴 → (𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V))
6		imaeq2 6015	. . . . . . . . . . 11 ⊢ (𝑥 = (𝐴 ∩ (◡𝑅 “ {𝑧})) → (𝐻 “ 𝑥) = (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))))
7	6	eleq1d 2822	. . . . . . . . . 10 ⊢ (𝑥 = (𝐴 ∩ (◡𝑅 “ {𝑧})) → ((𝐻 “ 𝑥) ∈ V ↔ (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V))
8	7	imbi2d 340	. . . . . . . . 9 ⊢ (𝑥 = (𝐴 ∩ (◡𝑅 “ {𝑧})) → ((𝜑 → (𝐻 “ 𝑥) ∈ V) ↔ (𝜑 → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V)))
9		isofrlem.2	. . . . . . . . 9 ⊢ (𝜑 → (𝐻 “ 𝑥) ∈ V)
10	8, 9	vtoclg 3500	. . . . . . . 8 ⊢ ((𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V → (𝜑 → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V))
11	10	com12 32	. . . . . . 7 ⊢ (𝜑 → ((𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V))
12	11	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V))
13		isofrlem.1	. . . . . . . 8 ⊢ (𝜑 → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
14		isoini 7286	. . . . . . . 8 ⊢ ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ 𝑧 ∈ 𝐴) → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) = (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})))
15	13, 14	sylan 581	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) = (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})))
16	15	eleq1d 2822	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((𝐻 “ (𝐴 ∩ (◡𝑅 “ {𝑧}))) ∈ V ↔ (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
17	12, 16	sylibd 239	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ((𝐴 ∩ (◡𝑅 “ {𝑧})) ∈ V → (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
18	5, 17	syld 47	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝑅 Se 𝐴 → (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
19	18	ralrimdva 3138	. . 3 ⊢ (𝜑 → (𝑅 Se 𝐴 → ∀𝑧 ∈ 𝐴 (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
20		isof1o 7271	. . . . 5 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴–1-1-onto→𝐵)
21		f1ofn 6775	. . . . 5 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → 𝐻 Fn 𝐴)
22		sneq 4578	. . . . . . . . 9 ⊢ (𝑦 = (𝐻‘𝑧) → {𝑦} = {(𝐻‘𝑧)})
23	22	imaeq2d 6019	. . . . . . . 8 ⊢ (𝑦 = (𝐻‘𝑧) → (◡𝑆 “ {𝑦}) = (◡𝑆 “ {(𝐻‘𝑧)}))
24	23	ineq2d 4161	. . . . . . 7 ⊢ (𝑦 = (𝐻‘𝑧) → (𝐵 ∩ (◡𝑆 “ {𝑦})) = (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})))
25	24	eleq1d 2822	. . . . . 6 ⊢ (𝑦 = (𝐻‘𝑧) → ((𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V ↔ (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
26	25	ralrn 7034	. . . . 5 ⊢ (𝐻 Fn 𝐴 → (∀𝑦 ∈ ran 𝐻(𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V ↔ ∀𝑧 ∈ 𝐴 (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
27	13, 20, 21, 26	4syl 19	. . . 4 ⊢ (𝜑 → (∀𝑦 ∈ ran 𝐻(𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V ↔ ∀𝑧 ∈ 𝐴 (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V))
28		f1ofo 6781	. . . . . 6 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → 𝐻:𝐴–onto→𝐵)
29		forn 6749	. . . . . 6 ⊢ (𝐻:𝐴–onto→𝐵 → ran 𝐻 = 𝐵)
30	13, 20, 28, 29	4syl 19	. . . . 5 ⊢ (𝜑 → ran 𝐻 = 𝐵)
31	30	raleqdv 3296	. . . 4 ⊢ (𝜑 → (∀𝑦 ∈ ran 𝐻(𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V ↔ ∀𝑦 ∈ 𝐵 (𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V))
32	27, 31	bitr3d 281	. . 3 ⊢ (𝜑 → (∀𝑧 ∈ 𝐴 (𝐵 ∩ (◡𝑆 “ {(𝐻‘𝑧)})) ∈ V ↔ ∀𝑦 ∈ 𝐵 (𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V))
33	19, 32	sylibd 239	. 2 ⊢ (𝜑 → (𝑅 Se 𝐴 → ∀𝑦 ∈ 𝐵 (𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V))
34		dfse2 6059	. 2 ⊢ (𝑆 Se 𝐵 ↔ ∀𝑦 ∈ 𝐵 (𝐵 ∩ (◡𝑆 “ {𝑦})) ∈ V)
35	33, 34	imbitrrdi 252	1 ⊢ (𝜑 → (𝑅 Se 𝐴 → 𝑆 Se 𝐵))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052  Vcvv 3430   ∩ cin 3889  {csn 4568   Se wse 5575  ^◡ccnv 5623  ran crn 5625   “ cima 5627   Fn wfn 6487  –onto→wfo 6490  –1-1-onto→wf1o 6491  ‘cfv 6492   Isom wiso 6493

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pr 5370

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5519  df-se 5578  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501

This theorem is referenced by:  isose  7291