Theorem fpwrelmapffslem 31649

Description: Lemma for fpwrelmapffs 31651. 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 5777	. . . 4 ⊢ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
3		releq 5732	. . . 4 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → (Rel 𝑅 ↔ Rel {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}))
4	2, 3	mpbiri 257	. . 3 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → Rel 𝑅)
5		relfi 31520	. . 3 ⊢ (Rel 𝑅 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
6	1, 4, 5	3syl 18	. 2 ⊢ (𝜑 → (𝑅 ∈ Fin ↔ (dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin)))
7		rexcom4 3271	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
8		ancom 461	. . . . . . . . . . . . . . . 16 ⊢ ((𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
9	8	exbii 1850	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)))
10		fvex 6855	. . . . . . . . . . . . . . . 16 ⊢ (𝐹‘𝑥) ∈ V
11		eleq2 2826	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = (𝐹‘𝑥) → (𝑤 ∈ 𝑧 ↔ 𝑤 ∈ (𝐹‘𝑥)))
12	10, 11	ceqsexv 3494	. . . . . . . . . . . . . . 15 ⊢ (∃𝑧(𝑧 = (𝐹‘𝑥) ∧ 𝑤 ∈ 𝑧) ↔ 𝑤 ∈ (𝐹‘𝑥))
13	9, 12	bitr3i 276	. . . . . . . . . . . . . 14 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ 𝑤 ∈ (𝐹‘𝑥))
14	13	rexbii 3097	. . . . . . . . . . . . 13 ⊢ (∃𝑥 ∈ 𝐴 ∃𝑧(𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
15		r19.42v 3187	. . . . . . . . . . . . . 14 ⊢ (∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ (𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
16	15	exbii 1850	. . . . . . . . . . . . 13 ⊢ (∃𝑧∃𝑥 ∈ 𝐴 (𝑤 ∈ 𝑧 ∧ 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
17	7, 14, 16	3bitr3ri 301	. . . . . . . . . . . 12 ⊢ (∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)) ↔ ∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥))
18		df-rex 3074	. . . . . . . . . . . 12 ⊢ (∃𝑥 ∈ 𝐴 𝑤 ∈ (𝐹‘𝑥) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
19	17, 18	bitr2i 275	. . . . . . . . . . 11 ⊢ (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
20	19	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)) ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥))))
21		vex 3449	. . . . . . . . . . 11 ⊢ 𝑤 ∈ V
22		eleq1w 2820	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑤 → (𝑦 ∈ (𝐹‘𝑥) ↔ 𝑤 ∈ (𝐹‘𝑥)))
23	22	anbi2d 629	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑤 → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
24	23	exbidv 1924	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → (∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥))))
25	21, 24	elab 3630	. . . . . . . . . 10 ⊢ (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑤 ∈ (𝐹‘𝑥)))
26		eluniab 4880	. . . . . . . . . 10 ⊢ (𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ↔ ∃𝑧(𝑤 ∈ 𝑧 ∧ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)))
27	20, 25, 26	3bitr4g 313	. . . . . . . . 9 ⊢ (𝜑 → (𝑤 ∈ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ↔ 𝑤 ∈ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)}))
28	27	eqrdv 2734	. . . . . . . 8 ⊢ (𝜑 → {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
29	28	eleq1d 2822	. . . . . . 7 ⊢ (𝜑 → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
30	29	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
31		fpwrelmapffslem.3	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝐴⟶𝒫 𝐵)
32		ffn 6668	. . . . . . . . . . 11 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 Fn 𝐴)
33		fnrnfv 6902	. . . . . . . . . . 11 ⊢ (𝐹 Fn 𝐴 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
34	31, 32, 33	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
35	34	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 = {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)})
36		0ex 5264	. . . . . . . . . . 11 ⊢ ∅ ∈ V
37	36	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ∅ ∈ V)
38		fpwrelmapffslem.1	. . . . . . . . . . . 12 ⊢ 𝐴 ∈ V
39		fex 7176	. . . . . . . . . . . 12 ⊢ ((𝐹:𝐴⟶𝒫 𝐵 ∧ 𝐴 ∈ V) → 𝐹 ∈ V)
40	31, 38, 39	sylancl 586	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹 ∈ V)
41	40	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → 𝐹 ∈ V)
42	31	ffund 6672	. . . . . . . . . . 11 ⊢ (𝜑 → Fun 𝐹)
43	42	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → Fun 𝐹)
44		opabdm 31530	. . . . . . . . . . . . . 14 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
45	1, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → dom 𝑅 = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
46	38, 39	mpan2 689	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹:𝐴⟶𝒫 𝐵 → 𝐹 ∈ V)
47		suppimacnv 8105	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐹 ∈ V ∧ ∅ ∈ V) → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
48	36, 47	mpan2 689	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹 ∈ V → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
49	31, 46, 48	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐹 supp ∅) = (◡𝐹 “ (V ∖ {∅})))
50	31	feqmptd 6910	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
51	50	cnveqd 5831	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ◡𝐹 = ◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)))
52	51	imaeq1d 6012	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (◡𝐹 “ (V ∖ {∅})) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
53	49, 52	eqtrd 2776	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})))
54		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) = (𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥))
55	54	mptpreima 6190	. . . . . . . . . . . . . . 15 ⊢ (◡(𝑥 ∈ 𝐴 ↦ (𝐹‘𝑥)) “ (V ∖ {∅})) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})}
56	53, 55	eqtrdi 2792	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})})
57		suppvalfn 8100	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹 Fn 𝐴 ∧ 𝐴 ∈ V ∧ ∅ ∈ V) → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
58	38, 36, 57	mp3an23 1453	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 Fn 𝐴 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
59	31, 32, 58	3syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅})
60		n0 4306	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹‘𝑥) ≠ ∅ ↔ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))
61	60	rabbii 3413	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)}
62	61	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ≠ ∅} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
63	59, 56, 62	3eqtr3d 2784	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ (𝐹‘𝑥) ∈ (V ∖ {∅})} = {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)})
64		df-rab 3408	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
65		19.42v 1957	. . . . . . . . . . . . . . . . 17 ⊢ (∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥)) ↔ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)))
66	65	abbii 2806	. . . . . . . . . . . . . . . 16 ⊢ {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} = {𝑥 ∣ (𝑥 ∈ 𝐴 ∧ ∃𝑦 𝑦 ∈ (𝐹‘𝑥))}
67	64, 66	eqtr4i 2767	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))}
68	67	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑥 ∈ 𝐴 ∣ ∃𝑦 𝑦 ∈ (𝐹‘𝑥)} = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
69	56, 63, 68	3eqtrd 2780	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 supp ∅) = {𝑥 ∣ ∃𝑦(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
70	45, 69	eqtr4d 2779	. . . . . . . . . . . 12 ⊢ (𝜑 → dom 𝑅 = (𝐹 supp ∅))
71	70	eleq1d 2822	. . . . . . . . . . 11 ⊢ (𝜑 → (dom 𝑅 ∈ Fin ↔ (𝐹 supp ∅) ∈ Fin))
72	71	biimpa 477	. . . . . . . . . 10 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (𝐹 supp ∅) ∈ Fin)
73	37, 41, 43, 72	ffsrn 31646	. . . . . . . . 9 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ran 𝐹 ∈ Fin)
74	35, 73	eqeltrrd 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
75		unifi 9285	. . . . . . . . 9 ⊢ (({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin ∧ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin) → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin)
76	75	ex 413	. . . . . . . 8 ⊢ ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
77	74, 76	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin → ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
78		unifi3 31629	. . . . . . 7 ⊢ (∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin → {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin)
79	77, 78	impbid1 224	. . . . . 6 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin ↔ ∪ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ∈ Fin))
80	30, 79	bitr4d 281	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → ({𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin ↔ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin))
81		opabrn 31531	. . . . . . . 8 ⊢ (𝑅 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
82	1, 81	syl 17	. . . . . . 7 ⊢ (𝜑 → ran 𝑅 = {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))})
83	82	eleq1d 2822	. . . . . 6 ⊢ (𝜑 → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
84	83	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝑅 ∈ Fin ↔ {𝑦 ∣ ∃𝑥(𝑥 ∈ 𝐴 ∧ 𝑦 ∈ (𝐹‘𝑥))} ∈ Fin))
85	35	sseq1d 3975	. . . . 5 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝐹 ⊆ Fin ↔ {𝑧 ∣ ∃𝑥 ∈ 𝐴 𝑧 = (𝐹‘𝑥)} ⊆ Fin))
86	80, 84, 85	3bitr4d 310	. . . 4 ⊢ ((𝜑 ∧ dom 𝑅 ∈ Fin) → (ran 𝑅 ∈ Fin ↔ ran 𝐹 ⊆ Fin))
87	86	pm5.32da 579	. . 3 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin) ↔ (dom 𝑅 ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
88	71	anbi1d 630	. . 3 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝐹 ⊆ Fin) ↔ ((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
89	87, 88	bitrd 278	. 2 ⊢ (𝜑 → ((dom 𝑅 ∈ Fin ∧ ran 𝑅 ∈ Fin) ↔ ((𝐹 supp ∅) ∈ Fin ∧ ran 𝐹 ⊆ Fin)))
90		ancom 461	. . 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 304	1 ⊢ (𝜑 → (𝑅 ∈ Fin ↔ (ran 𝐹 ⊆ Fin ∧ (𝐹 supp ∅) ∈ Fin)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541  ∃wex 1781   ∈ wcel 2106  {cab 2713   ≠ wne 2943  ∃wrex 3073  {crab 3407  Vcvv 3445   ∖ cdif 3907   ⊆ wss 3910  ∅c0 4282  𝒫 cpw 4560  {csn 4586  ∪ cuni 4865  {copab 5167   ↦ cmpt 5188  ^◡ccnv 5632  dom cdm 5633  ran crn 5634   “ cima 5636  Rel wrel 5638  Fun wfun 6490   Fn wfn 6491  ⟶wf 6492  ‘cfv 6496  (class class class)co 7357   supp csupp 8092  Fincfn 8883

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-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-ac2 10399

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  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-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  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-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  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  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-1o 8412  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-fin 8887  df-card 9875  df-acn 9878  df-ac 10052

This theorem is referenced by:  fpwrelmapffs  31651