Theorem fveqdmss 7068

Description: If the empty set is not contained in the range of a function, and the function values of another class (not necessarily a function) are equal to the function values of the function for all elements of the domain of the function, then the domain of the function is contained in the domain of the class. (Contributed by AV, 28-Jan-2020.)

Hypothesis

Ref	Expression
fveqdmss.1	⊢ 𝐷 = dom 𝐵

Assertion

Ref	Expression
fveqdmss	⊢ ((Fun 𝐵 ∧ ∅ ∉ ran 𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → 𝐷 ⊆ dom 𝐴)

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐷

Proof of Theorem fveqdmss

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6876	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → (𝐴‘𝑥) = (𝐴‘𝑎))
2		fveq2 6876	. . . . . . . . 9 ⊢ (𝑥 = 𝑎 → (𝐵‘𝑥) = (𝐵‘𝑎))
3	1, 2	eqeq12d 2751	. . . . . . . 8 ⊢ (𝑥 = 𝑎 → ((𝐴‘𝑥) = (𝐵‘𝑥) ↔ (𝐴‘𝑎) = (𝐵‘𝑎)))
4	3	rspcva 3599	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐷 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝐴‘𝑎) = (𝐵‘𝑎))
5		nelrnfvne 7067	. . . . . . . . . . . . 13 ⊢ ((Fun 𝐵 ∧ 𝑎 ∈ dom 𝐵 ∧ ∅ ∉ ran 𝐵) → (𝐵‘𝑎) ≠ ∅)
6		n0 4328	. . . . . . . . . . . . . 14 ⊢ ((𝐵‘𝑎) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (𝐵‘𝑎))
7		eleq2 2823	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐵‘𝑎) = (𝐴‘𝑎) → (𝑏 ∈ (𝐵‘𝑎) ↔ 𝑏 ∈ (𝐴‘𝑎)))
8	7	eqcoms 2743	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴‘𝑎) = (𝐵‘𝑎) → (𝑏 ∈ (𝐵‘𝑎) ↔ 𝑏 ∈ (𝐴‘𝑎)))
9		elfvdm 6913	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 ∈ (𝐴‘𝑎) → 𝑎 ∈ dom 𝐴)
10	8, 9	biimtrdi 253	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴‘𝑎) = (𝐵‘𝑎) → (𝑏 ∈ (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))
11	10	com12 32	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ (𝐵‘𝑎) → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))
12	11	exlimiv 1930	. . . . . . . . . . . . . 14 ⊢ (∃𝑏 𝑏 ∈ (𝐵‘𝑎) → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))
13	6, 12	sylbi 217	. . . . . . . . . . . . 13 ⊢ ((𝐵‘𝑎) ≠ ∅ → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))
14	5, 13	syl 17	. . . . . . . . . . . 12 ⊢ ((Fun 𝐵 ∧ 𝑎 ∈ dom 𝐵 ∧ ∅ ∉ ran 𝐵) → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))
15	14	3exp 1119	. . . . . . . . . . 11 ⊢ (Fun 𝐵 → (𝑎 ∈ dom 𝐵 → (∅ ∉ ran 𝐵 → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))))
16	15	com12 32	. . . . . . . . . 10 ⊢ (𝑎 ∈ dom 𝐵 → (Fun 𝐵 → (∅ ∉ ran 𝐵 → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))))
17		fveqdmss.1	. . . . . . . . . 10 ⊢ 𝐷 = dom 𝐵
18	16, 17	eleq2s 2852	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝐷 → (Fun 𝐵 → (∅ ∉ ran 𝐵 → ((𝐴‘𝑎) = (𝐵‘𝑎) → 𝑎 ∈ dom 𝐴))))
19	18	com24 95	. . . . . . . 8 ⊢ (𝑎 ∈ 𝐷 → ((𝐴‘𝑎) = (𝐵‘𝑎) → (∅ ∉ ran 𝐵 → (Fun 𝐵 → 𝑎 ∈ dom 𝐴))))
20	19	adantr 480	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐷 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → ((𝐴‘𝑎) = (𝐵‘𝑎) → (∅ ∉ ran 𝐵 → (Fun 𝐵 → 𝑎 ∈ dom 𝐴))))
21	4, 20	mpd 15	. . . . . 6 ⊢ ((𝑎 ∈ 𝐷 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (∅ ∉ ran 𝐵 → (Fun 𝐵 → 𝑎 ∈ dom 𝐴)))
22	21	ex 412	. . . . 5 ⊢ (𝑎 ∈ 𝐷 → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → (∅ ∉ ran 𝐵 → (Fun 𝐵 → 𝑎 ∈ dom 𝐴))))
23	22	com23 86	. . . 4 ⊢ (𝑎 ∈ 𝐷 → (∅ ∉ ran 𝐵 → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → (Fun 𝐵 → 𝑎 ∈ dom 𝐴))))
24	23	com14 96	. . 3 ⊢ (Fun 𝐵 → (∅ ∉ ran 𝐵 → (∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥) → (𝑎 ∈ 𝐷 → 𝑎 ∈ dom 𝐴))))
25	24	3imp 1110	. 2 ⊢ ((Fun 𝐵 ∧ ∅ ∉ ran 𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → (𝑎 ∈ 𝐷 → 𝑎 ∈ dom 𝐴))
26	25	ssrdv 3964	1 ⊢ ((Fun 𝐵 ∧ ∅ ∉ ran 𝐵 ∧ ∀𝑥 ∈ 𝐷 (𝐴‘𝑥) = (𝐵‘𝑥)) → 𝐷 ⊆ dom 𝐴)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540  ∃wex 1779   ∈ wcel 2108   ≠ wne 2932   ∉ wnel 3036  ∀wral 3051   ⊆ wss 3926  ∅c0 4308  dom cdm 5654  ran crn 5655  Fun wfun 6525  ‘cfv 6531

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-sep 5266  ax-nul 5276  ax-pr 5402

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rab 3416  df-v 3461  df-dif 3929  df-un 3931  df-ss 3943  df-nul 4309  df-if 4501  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-br 5120  df-opab 5182  df-id 5548  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-iota 6484  df-fun 6533  df-fn 6534  df-fv 6539

This theorem is referenced by:  fveqressseq  7069