Theorem fnse 8135

Description: Condition for the well-order in fnwe 8134 to be set-like. (Contributed by Mario Carneiro, 25-Jun-2015.)

Hypotheses

Ref	Expression
fnse.1	⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)))}
fnse.2	⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
fnse.3	⊢ (𝜑 → 𝑅 Se 𝐵)
fnse.4	⊢ (𝜑 → (◡𝐹 “ 𝑤) ∈ V)

Assertion

Ref	Expression
fnse	⊢ (𝜑 → 𝑇 Se 𝐴)

Distinct variable groups:   𝑥,𝑦,𝐴   𝑤,𝐵   𝑥,𝑤,𝑦,𝐹   𝜑,𝑤   𝑤,𝑅,𝑥,𝑦   𝑥,𝑆,𝑦   𝑤,𝑇

Allowed substitution hints:   𝜑(𝑥, 𝑦)   𝐴(𝑤)   𝐵(𝑥, 𝑦)   𝑆(𝑤)   𝑇(𝑥, 𝑦)

Proof of Theorem fnse

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

Step	Hyp	Ref	Expression
1		fnse.3	. . . . . . 7 ⊢ (𝜑 → 𝑅 Se 𝐵)
2		fnse.2	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
3	2	ffvelcdmda 7081	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐹‘𝑧) ∈ 𝐵)
4		seex 5618	. . . . . . 7 ⊢ ((𝑅 Se 𝐵 ∧ (𝐹‘𝑧) ∈ 𝐵) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
5	1, 3, 4	syl2an2r 698	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
6		snex 5408	. . . . . 6 ⊢ {(𝐹‘𝑧)} ∈ V
7		unexg 7749	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V ∧ {(𝐹‘𝑧)} ∈ V) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
8	5, 6, 7	sylancl 598	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
9		imaeq2 6056	. . . . . . . . 9 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → (◡𝐹 “ 𝑤) = (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
10	9	eleq1d 2847	. . . . . . . 8 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((◡𝐹 “ 𝑤) ∈ V ↔ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
11	10	imbi2d 343	. . . . . . 7 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((𝜑 → (◡𝐹 “ 𝑤) ∈ V) ↔ (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)))
12		fnse.4	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ 𝑤) ∈ V)
13	11, 12	vtoclg 3520	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V → (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
14	13	impcom 413	. . . . 5 ⊢ ((𝜑 ∧ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
15	8, 14	syldan 603	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
16		inss2 4186	. . . . . 6 ⊢ (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝑇 “ {𝑧})
17		vex 3457	. . . . . . . . . 10 ⊢ 𝑤 ∈ V
18	17	eliniseg 6094	. . . . . . . . 9 ⊢ (𝑧 ∈ V → (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧))
19	18	elv 3458	. . . . . . . 8 ⊢ (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧)
20		fveq2 6882	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝐹‘𝑥) = (𝐹‘𝑤))
21		fveq2 6882	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑧 → (𝐹‘𝑦) = (𝐹‘𝑧))
22	20, 21	breqan12d 5123	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
23	20, 21	eqeqan12d 2776	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑤) = (𝐹‘𝑧)))
24		breq12 5112	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (𝑥𝑆𝑦 ↔ 𝑤𝑆𝑧))
25	23, 24	anbi12d 644	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦) ↔ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)))
26	22, 25	orbi12d 932	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)) ↔ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
27		fnse.1	. . . . . . . . . 10 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)))}
28	26, 27	brab2a 5752	. . . . . . . . 9 ⊢ (𝑤𝑇𝑧 ↔ ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
29	2	ffvelcdmda 7081	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐴) → (𝐹‘𝑤) ∈ 𝐵)
30	29	adantrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝐹‘𝑤) ∈ 𝐵)
31		breq1 5110	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 = (𝐹‘𝑤) → (𝑢𝑅(𝐹‘𝑧) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
32	31	elrab3 3649	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ 𝐵 → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
33	30, 32	syl 18	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
34	33	biimprd 251	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤)𝑅(𝐹‘𝑧) → (𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)}))
35		fvex 6895	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹‘𝑤) ∈ V
36	35	elsn 4602	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ {(𝐹‘𝑧)} ↔ (𝐹‘𝑤) = (𝐹‘𝑧))
37	36	biranri 511	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})
38	37	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
39	34, 38	orim12d 979	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})))
40		elun 4103	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ↔ ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
41	39, 40	imbitrrdi 255	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
42		simprl 783	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝑤 ∈ 𝐴)
43	41, 42	jctild 535	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
44	2	ffnd 6707	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 Fn 𝐴)
45	44	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝐹 Fn 𝐴)
46		elpreima 7054	. . . . . . . . . . . 12 ⊢ (𝐹 Fn 𝐴 → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
47	45, 46	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
48	43, 47	sylibrd 262	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
49	48	expimpd 459	. . . . . . . . 9 ⊢ (𝜑 → (((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
50	28, 49	biimtrid 245	. . . . . . . 8 ⊢ (𝜑 → (𝑤𝑇𝑧 → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
51	19, 50	biimtrid 245	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (◡𝑇 “ {𝑧}) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
52	51	ssrdv 3940	. . . . . 6 ⊢ (𝜑 → (◡𝑇 “ {𝑧}) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
53	16, 52	sstrid 3945	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
54	53	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
55	15, 54	ssexd 5293	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
56	55	ralrimiva 3156	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
57		dfse2 6100	. 2 ⊢ (𝑇 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
58	56, 57	sylibr 237	1 ⊢ (𝜑 → 𝑇 Se 𝐴)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2145  ∀wral 3078  {crab 3414  Vcvv 3453   ∪ cun 3900   ∩ cin 3901   ⊆ wss 3902  {csn 4587   class class class wbr 5107  {copab 5171   Se wse 5610  ^◡ccnv 5658   “ cima 5662   Fn wfn 6532  ⟶wf 6533  ‘cfv 6537

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pr 5402  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-ne 2958  df-ral 3079  df-rex 3089  df-rab 3415  df-v 3455  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-br 5108  df-opab 5172  df-id 5554  df-se 5613  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-fv 6545

This theorem is used by:  r0weon  10019