Theorem fpwrelmapffslem 32793

Description: Lemma for fpwrelmapffs 32795. For this theorem, the sets 𝐴 and 𝐵 could be infinite, but the relation 𝑅 itself is finite. (Contributed by Thierry Arnoux, 1-Sep-2017.) (Revised by Thierry Arnoux, 1-Sep-2019.)

Hypotheses

Ref	Expression
fpwrelmapffslem.1	⊢ 𝐴 ∈ V
fpwrelmapffslem.2	⊢ 𝐵 ∈ V
fpwrelmapffslem.3	⊢ (𝜑 → 𝐹:𝐴⟶𝒫 𝐵)
fpwrelmapffslem.4	⊢ (𝜑 → 𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})

Assertion

Ref	Expression
fpwrelmapffslem	⊢ (𝜑 → (𝑅 ∈ Fin ↔ (ran 𝐹 ⊆ Fin ∧ (𝐹 supp ∅) ∈ Fin)))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐹,𝑦   𝑥,𝑅,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐵(𝑥,𝑦)

Proof of Theorem fpwrelmapffslem

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

Step	Hyp	Ref	Expression
1		fpwrelmapffslem.4	. . 3 ⊢ (𝜑 → 𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
2		relopabv 5766	. . . 4 ⊢ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
3		releq 5722	. . . 4 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → (Rel 𝑅 ↔ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}))
4	2, 3	mpbiri 258	. . 3 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → Rel 𝑅)
5		relfi 32660	. . 3 ⊢ (Rel 𝑅 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
6	1, 4, 5	3syl 18	. 2 ⊢ (𝜑 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
7		rexcom4 3262	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
8		ancom 460	. . . . . . . . . . . . . . . 16 ⊢ ((𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
9	8	exbii 1850	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
10		fvex 6842	. . . . . . . . . . . . . . . 16 ⊢ (𝐹‘𝑥) ∈ V
11		eleq2 2824	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = (𝐹‘𝑥) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ (𝐹‘𝑥)))
12	10, 11	ceqsexv 3476	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ 𝑤 ∈ (𝐹‘𝑥))
13	9, 12	bitr3i 277	. . . . . . . . . . . . . 14 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ 𝑤 ∈ (𝐹‘𝑥))
14	13	rexbii 3082	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
15		r19.42v 3167	. . . . . . . . . . . . . 14 ⊢ (∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ (𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
16	15	exbii 1850	. . . . . . . . . . . . 13 ⊢ (∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
17	7, 14, 16	3bitr3ri 302	. . . . . . . . . . . 12 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
18		df-rex 3060	. . . . . . . . . . . 12 ⊢ (∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
19	17, 18	bitr2i 276	. . . . . . . . . . 11 ⊢ (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
20	19	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥))))
21		vex 3431	. . . . . . . . . . 11 ⊢ 𝑤 ∈ V
22		eleq1w 2818	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑤 → (𝑦 ∈ (𝐹‘𝑥) ↔ 𝑤 ∈ (𝐹‘𝑥)))
23	22	anbi2d 631	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑤 → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
24	23	exbidv 1923	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
25	21, 24	elab 3619	. . . . . . . . . 10 ⊢ (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
26		eluniab 4854	. . . . . . . . . 10 ⊢ (𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
27	20, 25, 26	3bitr4g 314	. . . . . . . . 9 ⊢ (𝜑 → (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ 𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)}))
28	27	eqrdv 2733	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
29	28	eleq1d 2820	. . . . . . 7 ⊢ (𝜑 → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
30	29	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
31		fpwrelmapffslem.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝐴⟶𝒫 𝐵)
32		ffn 6657	. . . . . . . . . . 11 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 Fn 𝐴)
33		fnrnfv 6888	. . . . . . . . . . 11 ⊢ (𝐹 Fn 𝐴 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
34	31, 32, 33	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
35	34	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
36		0ex 5231	. . . . . . . . . . 11 ⊢ ∅ ∈ V
37	36	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ∅ ∈ V)
38		fpwrelmapffslem.1	. . . . . . . . . . . 12 ⊢ 𝐴 ∈ V
39		fex 7170	. . . . . . . . . . . 12 ⊢ ((𝐹:𝐴⟶𝒫 𝐵 ∧ 𝐴 ∈ V) → 𝐹 ∈ V)
40	31, 38, 39	sylancl 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹 ∈ V)
41	40	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → 𝐹 ∈ V)
42	31	ffund 6661	. . . . . . . . . . 11 ⊢ (𝜑 → Fun 𝐹)
43	42	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → Fun 𝐹)
44		opabdm 32672	. . . . . . . . . . . . . 14 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
45	1, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
46	38, 39	mpan2 692	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 ∈ V)
47		suppimacnv 8113	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐹 ∈ V ∧ ∅ ∈ V) → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
48	36, 47	mpan2 692	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹 ∈ V → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
49	31, 46, 48	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
50	31	feqmptd 6897	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
51	50	cnveqd 5819	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ◡𝐹 = ◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
52	51	imaeq1d 6013	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (◡𝐹 “ (V ∖ {∅})) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
53	49, 52	eqtrd 2770	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
54		eqid 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥))
55	54	mptpreima 6191	. . . . . . . . . . . . . . 15 ⊢ (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})}
56	53, 55	eqtrdi 2786	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})})
57		suppvalfn 8107	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐴 ∈ V ∧ ∅ ∈ V) → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
58	38, 36, 57	mp3an23 1456	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 Fn 𝐴 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
59	31, 32, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
60		n0 4283	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹‘𝑥) ≠ ∅ ↔ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))
61	60	rabbii 3392	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)}
62	61	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
63	59, 56, 62	3eqtr3d 2778	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
64		df-rab 3388	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
65		19.42v 1955	. . . . . . . . . . . . . . . . 17 ⊢ (∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)))
66	65	abbii 2802	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
67	64, 66	eqtr4i 2761	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
68	67	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
69	56, 63, 68	3eqtrd 2774	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
70	45, 69	eqtr4d 2773	. . . . . . . . . . . 12 ⊢ (𝜑 → dom 𝑅 = (𝐹 supp ∅))
71	70	eleq1d 2820	. . . . . . . . . . 11 ⊢ (𝜑 → (dom 𝑅 ∈ Fin ↔ (𝐹 supp ∅) ∈ Fin))
72	71	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (𝐹 supp ∅) ∈ Fin)
73	37, 41, 43, 72	ffsrn 32789	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 ∈ Fin)
74	35, 73	eqeltrrd 2836	. . . . . . . 8 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
75		unifi 9243	. . . . . . . . 9 ⊢ (({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin ∧ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin) → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
76	75	ex 412	. . . . . . . 8 ⊢ ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
77	74, 76	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
78		unifi3 9261	. . . . . . 7 ⊢ (∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin → {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin)
79	77, 78	impbid1 225	. . . . . 6 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
80	30, 79	bitr4d 282	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin))
81		opabrn 32673	. . . . . . . 8 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
82	1, 81	syl 17	. . . . . . 7 ⊢ (𝜑 → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
83	82	eleq1d 2820	. . . . . 6 ⊢ (𝜑 → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
84	83	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
85	35	sseq1d 3948	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝐹 ⊆ Fin ↔ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin))
86	80, 84, 85	3bitr4d 311	. . . 4 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝑅 ∈ Fin ↔ ran 𝐹 ⊆ Fin))
87	86	pm5.32da 579	. . 3 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin) ↔ (dom 𝑅 ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
88	71	anbi1d 632	. . 3 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝐹 ⊆ Fin) ↔ ((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
89	87, 88	bitrd 279	. 2 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin) ↔ ((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
90		ancom 460	. . 3 ⊢ (((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin) ↔ (ran 𝐹 ⊆ Fin ∧ (𝐹 supp ∅) ∈ Fin))
91	90	a1i 11	. 2 ⊢ (𝜑 → (((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin) ↔ (ran 𝐹 ⊆ Fin ∧ (𝐹 supp ∅) ∈ Fin)))
92	6, 89, 91	3bitrd 305	1 ⊢ (𝜑 → (𝑅 ∈ Fin ↔ (ran 𝐹 ⊆ Fin ∧ (𝐹 supp ∅) ∈ Fin)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542  ∃wex 1781   ∈ wcel 2114  {cab 2713   ≠ wne 2930  ∃wrex 3059  {crab 3387  Vcvv 3427   ∖ cdif 3882   ⊆ wss 3885  ∅c0 4263  𝒫 cpw 4531  {csn 4557  ∪ cuni 4840  {copab 5136   ↦ cmpt 5155  ^◡ccnv 5619  dom cdm 5620  ran crn 5621   “ cima 5623  Rel wrel 5625  Fun wfun 6481   Fn wfn 6482  ⟶wf 6483  ‘cfv 6487  (class class class)co 7356   supp csupp 8099  Fincfn 8882

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 2184  ax-ext 2707  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7678  ax-ac2 10374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2931  df-ral 3050  df-rex 3060  df-rmo 3340  df-reu 3341  df-rab 3388  df-v 3429  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-int 4880  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-se 5574  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6254  df-ord 6315  df-on 6316  df-lim 6317  df-suc 6318  df-iota 6443  df-fun 6489  df-fn 6490  df-f 6491  df-f1 6492  df-fo 6493  df-f1o 6494  df-fv 6495  df-isom 6496  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8100  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-1o 8394  df-er 8632  df-map 8764  df-en 8883  df-dom 8884  df-fin 8886  df-card 9852  df-acn 9855  df-ac 10027

This theorem is referenced by:  fpwrelmapffs  32795