Theorem fpwrelmapffslem 32792

Description: Lemma for fpwrelmapffs 32794. 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 5771	. . . 4 ⊢ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
3		releq 5727	. . . 4 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → (Rel 𝑅 ↔ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}))
4	2, 3	mpbiri 258	. . 3 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → Rel 𝑅)
5		relfi 32659	. . 3 ⊢ (Rel 𝑅 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
6	1, 4, 5	3syl 18	. 2 ⊢ (𝜑 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
7		rexcom4 3264	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
8		ancom 460	. . . . . . . . . . . . . . . 16 ⊢ ((𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
9	8	exbii 1850	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
10		fvex 6848	. . . . . . . . . . . . . . . 16 ⊢ (𝐹‘𝑥) ∈ V
11		eleq2 2826	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = (𝐹‘𝑥) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ (𝐹‘𝑥)))
12	10, 11	ceqsexv 3491	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ 𝑤 ∈ (𝐹‘𝑥))
13	9, 12	bitr3i 277	. . . . . . . . . . . . . 14 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ 𝑤 ∈ (𝐹‘𝑥))
14	13	rexbii 3084	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
15		r19.42v 3169	. . . . . . . . . . . . . 14 ⊢ (∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ (𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
16	15	exbii 1850	. . . . . . . . . . . . 13 ⊢ (∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
17	7, 14, 16	3bitr3ri 302	. . . . . . . . . . . 12 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
18		df-rex 3062	. . . . . . . . . . . 12 ⊢ (∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
19	17, 18	bitr2i 276	. . . . . . . . . . 11 ⊢ (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
20	19	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥))))
21		vex 3445	. . . . . . . . . . 11 ⊢ 𝑤 ∈ V
22		eleq1w 2820	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑤 → (𝑦 ∈ (𝐹‘𝑥) ↔ 𝑤 ∈ (𝐹‘𝑥)))
23	22	anbi2d 631	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑤 → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
24	23	exbidv 1923	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
25	21, 24	elab 3635	. . . . . . . . . 10 ⊢ (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
26		eluniab 4878	. . . . . . . . . 10 ⊢ (𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
27	20, 25, 26	3bitr4g 314	. . . . . . . . 9 ⊢ (𝜑 → (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ 𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)}))
28	27	eqrdv 2735	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
29	28	eleq1d 2822	. . . . . . 7 ⊢ (𝜑 → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
30	29	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
31		fpwrelmapffslem.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝐴⟶𝒫 𝐵)
32		ffn 6663	. . . . . . . . . . 11 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 Fn 𝐴)
33		fnrnfv 6894	. . . . . . . . . . 11 ⊢ (𝐹 Fn 𝐴 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
34	31, 32, 33	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
35	34	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
36		0ex 5253	. . . . . . . . . . 11 ⊢ ∅ ∈ V
37	36	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ∅ ∈ V)
38		fpwrelmapffslem.1	. . . . . . . . . . . 12 ⊢ 𝐴 ∈ V
39		fex 7174	. . . . . . . . . . . 12 ⊢ ((𝐹:𝐴⟶𝒫 𝐵 ∧ 𝐴 ∈ V) → 𝐹 ∈ V)
40	31, 38, 39	sylancl 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹 ∈ V)
41	40	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → 𝐹 ∈ V)
42	31	ffund 6667	. . . . . . . . . . 11 ⊢ (𝜑 → Fun 𝐹)
43	42	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → Fun 𝐹)
44		opabdm 32671	. . . . . . . . . . . . . 14 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
45	1, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
46	38, 39	mpan2 692	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 ∈ V)
47		suppimacnv 8118	. . . . . . . . . . . . . . . . . 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 6903	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
51	50	cnveqd 5825	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ◡𝐹 = ◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
52	51	imaeq1d 6019	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (◡𝐹 “ (V ∖ {∅})) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
53	49, 52	eqtrd 2772	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
54		eqid 2737	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥))
55	54	mptpreima 6197	. . . . . . . . . . . . . . 15 ⊢ (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})}
56	53, 55	eqtrdi 2788	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})})
57		suppvalfn 8112	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐴 ∈ V ∧ ∅ ∈ V) → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
58	38, 36, 57	mp3an23 1456	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 Fn 𝐴 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
59	31, 32, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
60		n0 4306	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹‘𝑥) ≠ ∅ ↔ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))
61	60	rabbii 3405	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)}
62	61	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
63	59, 56, 62	3eqtr3d 2780	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
64		df-rab 3401	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
65		19.42v 1955	. . . . . . . . . . . . . . . . 17 ⊢ (∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)))
66	65	abbii 2804	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
67	64, 66	eqtr4i 2763	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
68	67	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
69	56, 63, 68	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
70	45, 69	eqtr4d 2775	. . . . . . . . . . . 12 ⊢ (𝜑 → dom 𝑅 = (𝐹 supp ∅))
71	70	eleq1d 2822	. . . . . . . . . . 11 ⊢ (𝜑 → (dom 𝑅 ∈ Fin ↔ (𝐹 supp ∅) ∈ Fin))
72	71	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (𝐹 supp ∅) ∈ Fin)
73	37, 41, 43, 72	ffsrn 32788	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 ∈ Fin)
74	35, 73	eqeltrrd 2838	. . . . . . . 8 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
75		unifi 9248	. . . . . . . . 9 ⊢ (({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin ∧ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin) → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
76	75	ex 412	. . . . . . . 8 ⊢ ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
77	74, 76	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
78		unifi3 9266	. . . . . . 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 32672	. . . . . . . 8 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
82	1, 81	syl 17	. . . . . . 7 ⊢ (𝜑 → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
83	82	eleq1d 2822	. . . . . 6 ⊢ (𝜑 → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
84	83	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
85	35	sseq1d 3966	. . . . 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 2715   ≠ wne 2933  ∃wrex 3061  {crab 3400  Vcvv 3441   ∖ cdif 3899   ⊆ wss 3902  ∅c0 4286  𝒫 cpw 4555  {csn 4581  ∪ cuni 4864  {copab 5161   ↦ cmpt 5180  ^◡ccnv 5624  dom cdm 5625  ran crn 5626   “ cima 5628  Rel wrel 5630  Fun wfun 6487   Fn wfn 6488  ⟶wf 6489  ‘cfv 6493  (class class class)co 7360   supp csupp 8104  Fincfn 8887

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-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682  ax-ac2 10377

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 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-int 4904  df-iun 4949  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-isom 6502  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-supp 8105  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-fin 8891  df-card 9855  df-acn 9858  df-ac 10030

This theorem is referenced by:  fpwrelmapffs  32794