Theorem fnse 8108

Description: Condition for the well-order in fnwe 8107 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 7061	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐹‘𝑧) ∈ 𝐵)
4		seex 5604	. . . . . . 7 ⊢ ((𝑅 Se 𝐵 ∧ (𝐹‘𝑧) ∈ 𝐵) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
5	1, 3, 4	syl2an2r 695	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
6		snex 5395	. . . . . 6 ⊢ {(𝐹‘𝑧)} ∈ V
7		unexg 7722	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V ∧ {(𝐹‘𝑧)} ∈ V) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
8	5, 6, 7	sylancl 595	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
9		imaeq2 6042	. . . . . . . . 9 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → (◡𝐹 “ 𝑤) = (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
10	9	eleq1d 2846	. . . . . . . 8 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((◡𝐹 “ 𝑤) ∈ V ↔ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
11	10	imbi2d 342	. . . . . . 7 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((𝜑 → (◡𝐹 “ 𝑤) ∈ V) ↔ (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)))
12		fnse.4	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ 𝑤) ∈ V)
13	11, 12	vtoclg 3521	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V → (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
14	13	impcom 411	. . . . 5 ⊢ ((𝜑 ∧ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
15	8, 14	syldan 600	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
16		inss2 4189	. . . . . 6 ⊢ (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝑇 “ {𝑧})
17		vex 3457	. . . . . . . . . 10 ⊢ 𝑤 ∈ V
18	17	eliniseg 6080	. . . . . . . . 9 ⊢ (𝑧 ∈ V → (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧))
19	18	elv 3458	. . . . . . . 8 ⊢ (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧)
20		fveq2 6863	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝐹‘𝑥) = (𝐹‘𝑤))
21		fveq2 6863	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑧 → (𝐹‘𝑦) = (𝐹‘𝑧))
22	20, 21	breqan12d 5115	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
23	20, 21	eqeqan12d 2775	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑤) = (𝐹‘𝑧)))
24		breq12 5104	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (𝑥𝑆𝑦 ↔ 𝑤𝑆𝑧))
25	23, 24	anbi12d 641	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦) ↔ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)))
26	22, 25	orbi12d 929	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)) ↔ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
27		fnse.1	. . . . . . . . . 10 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)))}
28	26, 27	brab2a 5738	. . . . . . . . 9 ⊢ (𝑤𝑇𝑧 ↔ ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
29	2	ffvelcdmda 7061	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐴) → (𝐹‘𝑤) ∈ 𝐵)
30	29	adantrr 727	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝐹‘𝑤) ∈ 𝐵)
31		breq1 5102	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 = (𝐹‘𝑤) → (𝑢𝑅(𝐹‘𝑧) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
32	31	elrab3 3651	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ 𝐵 → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
33	30, 32	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
34	33	biimprd 250	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤)𝑅(𝐹‘𝑧) → (𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)}))
35		fvex 6876	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹‘𝑤) ∈ V
36	35	elsn 4596	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ {(𝐹‘𝑧)} ↔ (𝐹‘𝑤) = (𝐹‘𝑧))
37	36	biranri 509	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})
38	37	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
39	34, 38	orim12d 977	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})))
40		elun 4106	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ↔ ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
41	39, 40	imbitrrdi 254	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
42		simprl 780	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝑤 ∈ 𝐴)
43	41, 42	jctild 533	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
44	2	ffnd 6688	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 Fn 𝐴)
45	44	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝐹 Fn 𝐴)
46		elpreima 7035	. . . . . . . . . . . 12 ⊢ (𝐹 Fn 𝐴 → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
47	45, 46	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
48	43, 47	sylibrd 261	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
49	48	expimpd 457	. . . . . . . . 9 ⊢ (𝜑 → (((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
50	28, 49	biimtrid 244	. . . . . . . 8 ⊢ (𝜑 → (𝑤𝑇𝑧 → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
51	19, 50	biimtrid 244	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (◡𝑇 “ {𝑧}) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
52	51	ssrdv 3942	. . . . . 6 ⊢ (𝜑 → (◡𝑇 “ {𝑧}) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
53	16, 52	sstrid 3947	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
54	53	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
55	15, 54	ssexd 5279	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
56	55	ralrimiva 3153	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
57		dfse2 6086	. 2 ⊢ (𝑇 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
58	56, 57	sylibr 236	1 ⊢ (𝜑 → 𝑇 Se 𝐴)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   = wceq 1559   ∈ wcel 2141  ∀wral 3075  {crab 3413  Vcvv 3453   ∪ cun 3902   ∩ cin 3903   ⊆ wss 3904  {csn 4581   class class class wbr 5099  {copab 5161   Se wse 5596  ^◡ccnv 5644   “ cima 5648   Fn wfn 6512  ⟶wf 6513  ‘cfv 6517

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-12 2211  ax-ext 2733  ax-sep 5245  ax-nul 5255  ax-pr 5389  ax-un 7714

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-ne 2957  df-ral 3076  df-rex 3086  df-rab 3414  df-v 3455  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4480  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-br 5100  df-opab 5162  df-id 5540  df-se 5599  df-xp 5651  df-rel 5652  df-cnv 5653  df-co 5654  df-dm 5655  df-rn 5656  df-res 5657  df-ima 5658  df-iota 6473  df-fun 6519  df-fn 6520  df-f 6521  df-fv 6525

This theorem is referenced by:  r0weon  9965