Theorem fnse 7962

Description: Condition for the well-order in fnwe 7961 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	ffvelrnda 6954	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐹‘𝑧) ∈ 𝐵)
4		seex 5547	. . . . . . 7 ⊢ ((𝑅 Se 𝐵 ∧ (𝐹‘𝑧) ∈ 𝐵) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
5	1, 3, 4	syl2an2r 682	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
6		snex 5353	. . . . . 6 ⊢ {(𝐹‘𝑧)} ∈ V
7		unexg 7590	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V ∧ {(𝐹‘𝑧)} ∈ V) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
8	5, 6, 7	sylancl 586	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
9		imaeq2 5959	. . . . . . . . 9 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → (◡𝐹 “ 𝑤) = (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
10	9	eleq1d 2823	. . . . . . . 8 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((◡𝐹 “ 𝑤) ∈ V ↔ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
11	10	imbi2d 341	. . . . . . 7 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((𝜑 → (◡𝐹 “ 𝑤) ∈ V) ↔ (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)))
12		fnse.4	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ 𝑤) ∈ V)
13	11, 12	vtoclg 3503	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V → (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
14	13	impcom 408	. . . . 5 ⊢ ((𝜑 ∧ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
15	8, 14	syldan 591	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
16		inss2 4164	. . . . . 6 ⊢ (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝑇 “ {𝑧})
17		vex 3434	. . . . . . . . . 10 ⊢ 𝑤 ∈ V
18	17	eliniseg 5996	. . . . . . . . 9 ⊢ (𝑧 ∈ V → (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧))
19	18	elv 3436	. . . . . . . 8 ⊢ (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧)
20		fveq2 6767	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝐹‘𝑥) = (𝐹‘𝑤))
21		fveq2 6767	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑧 → (𝐹‘𝑦) = (𝐹‘𝑧))
22	20, 21	breqan12d 5090	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
23	20, 21	eqeqan12d 2752	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑤) = (𝐹‘𝑧)))
24		breq12 5079	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (𝑥𝑆𝑦 ↔ 𝑤𝑆𝑧))
25	23, 24	anbi12d 631	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦) ↔ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)))
26	22, 25	orbi12d 916	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)) ↔ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
27		fnse.1	. . . . . . . . . 10 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)))}
28	26, 27	brab2a 5675	. . . . . . . . 9 ⊢ (𝑤𝑇𝑧 ↔ ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
29	2	ffvelrnda 6954	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐴) → (𝐹‘𝑤) ∈ 𝐵)
30	29	adantrr 714	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝐹‘𝑤) ∈ 𝐵)
31		breq1 5077	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 = (𝐹‘𝑤) → (𝑢𝑅(𝐹‘𝑧) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
32	31	elrab3 3625	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ 𝐵 → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
33	30, 32	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
34	33	biimprd 247	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤)𝑅(𝐹‘𝑧) → (𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)}))
35		simpl 483	. . . . . . . . . . . . . . . 16 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) = (𝐹‘𝑧))
36		fvex 6780	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹‘𝑤) ∈ V
37	36	elsn 4577	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ {(𝐹‘𝑧)} ↔ (𝐹‘𝑤) = (𝐹‘𝑧))
38	35, 37	sylibr 233	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})
39	38	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
40	34, 39	orim12d 962	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})))
41		elun 4083	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ↔ ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
42	40, 41	syl6ibr 251	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
43		simprl 768	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝑤 ∈ 𝐴)
44	42, 43	jctild 526	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
45	2	ffnd 6594	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 Fn 𝐴)
46	45	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝐹 Fn 𝐴)
47		elpreima 6928	. . . . . . . . . . . 12 ⊢ (𝐹 Fn 𝐴 → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
48	46, 47	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
49	44, 48	sylibrd 258	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
50	49	expimpd 454	. . . . . . . . 9 ⊢ (𝜑 → (((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
51	28, 50	syl5bi 241	. . . . . . . 8 ⊢ (𝜑 → (𝑤𝑇𝑧 → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
52	19, 51	syl5bi 241	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (◡𝑇 “ {𝑧}) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
53	52	ssrdv 3927	. . . . . 6 ⊢ (𝜑 → (◡𝑇 “ {𝑧}) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
54	16, 53	sstrid 3932	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
55	54	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
56	15, 55	ssexd 5247	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
57	56	ralrimiva 3113	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
58		dfse2 6002	. 2 ⊢ (𝑇 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
59	57, 58	sylibr 233	1 ⊢ (𝜑 → 𝑇 Se 𝐴)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 844   = wceq 1539   ∈ wcel 2106  ∀wral 3064  {crab 3068  Vcvv 3430   ∪ cun 3885   ∩ cin 3886   ⊆ wss 3887  {csn 4562   class class class wbr 5074  {copab 5136   Se wse 5538  ^◡ccnv 5584   “ cima 5588   Fn wfn 6422  ⟶wf 6423  ‘cfv 6427

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-sep 5222  ax-nul 5229  ax-pr 5351  ax-un 7579

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ral 3069  df-rex 3070  df-rab 3073  df-v 3432  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-nul 4258  df-if 4461  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4841  df-br 5075  df-opab 5137  df-id 5485  df-se 5541  df-xp 5591  df-rel 5592  df-cnv 5593  df-co 5594  df-dm 5595  df-rn 5596  df-res 5597  df-ima 5598  df-iota 6385  df-fun 6429  df-fn 6430  df-f 6431  df-fv 6435

This theorem is referenced by:  r0weon  9756