Theorem fnse 7821

Description: Condition for the well-order in fnwe 7820 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 6846	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐹‘𝑧) ∈ 𝐵)
4		seex 5513	. . . . . . 7 ⊢ ((𝑅 Se 𝐵 ∧ (𝐹‘𝑧) ∈ 𝐵) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
5	1, 3, 4	syl2an2r 683	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V)
6		snex 5324	. . . . . 6 ⊢ {(𝐹‘𝑧)} ∈ V
7		unexg 7466	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∈ V ∧ {(𝐹‘𝑧)} ∈ V) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
8	5, 6, 7	sylancl 588	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V)
9		imaeq2 5920	. . . . . . . . 9 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → (◡𝐹 “ 𝑤) = (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
10	9	eleq1d 2897	. . . . . . . 8 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((◡𝐹 “ 𝑤) ∈ V ↔ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
11	10	imbi2d 343	. . . . . . 7 ⊢ (𝑤 = ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) → ((𝜑 → (◡𝐹 “ 𝑤) ∈ V) ↔ (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)))
12		fnse.4	. . . . . . 7 ⊢ (𝜑 → (◡𝐹 “ 𝑤) ∈ V)
13	11, 12	vtoclg 3568	. . . . . 6 ⊢ (({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V → (𝜑 → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V))
14	13	impcom 410	. . . . 5 ⊢ ((𝜑 ∧ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ∈ V) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
15	8, 14	syldan 593	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ∈ V)
16		inss2 4206	. . . . . 6 ⊢ (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝑇 “ {𝑧})
17		vex 3498	. . . . . . . . . 10 ⊢ 𝑤 ∈ V
18	17	eliniseg 5953	. . . . . . . . 9 ⊢ (𝑧 ∈ V → (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧))
19	18	elv 3500	. . . . . . . 8 ⊢ (𝑤 ∈ (◡𝑇 “ {𝑧}) ↔ 𝑤𝑇𝑧)
20		fveq2 6665	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (𝐹‘𝑥) = (𝐹‘𝑤))
21		fveq2 6665	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑧 → (𝐹‘𝑦) = (𝐹‘𝑧))
22	20, 21	breqan12d 5075	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
23	20, 21	eqeqan12d 2838	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝐹‘𝑤) = (𝐹‘𝑧)))
24		breq12 5064	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (𝑥𝑆𝑦 ↔ 𝑤𝑆𝑧))
25	23, 24	anbi12d 632	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦) ↔ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)))
26	22, 25	orbi12d 915	. . . . . . . . . 10 ⊢ ((𝑥 = 𝑤 ∧ 𝑦 = 𝑧) → (((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)) ↔ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
27		fnse.1	. . . . . . . . . 10 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((𝐹‘𝑥)𝑅(𝐹‘𝑦) ∨ ((𝐹‘𝑥) = (𝐹‘𝑦) ∧ 𝑥𝑆𝑦)))}
28	26, 27	brab2a 5639	. . . . . . . . 9 ⊢ (𝑤𝑇𝑧 ↔ ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))))
29	2	ffvelrnda 6846	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐴) → (𝐹‘𝑤) ∈ 𝐵)
30	29	adantrr 715	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝐹‘𝑤) ∈ 𝐵)
31		breq1 5062	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 = (𝐹‘𝑤) → (𝑢𝑅(𝐹‘𝑧) ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
32	31	elrab3 3681	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ 𝐵 → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
33	30, 32	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ↔ (𝐹‘𝑤)𝑅(𝐹‘𝑧)))
34	33	biimprd 250	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → ((𝐹‘𝑤)𝑅(𝐹‘𝑧) → (𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)}))
35		simpl 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) = (𝐹‘𝑧))
36		fvex 6678	. . . . . . . . . . . . . . . . 17 ⊢ (𝐹‘𝑤) ∈ V
37	36	elsn 4576	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘𝑤) ∈ {(𝐹‘𝑧)} ↔ (𝐹‘𝑤) = (𝐹‘𝑧))
38	35, 37	sylibr 236	. . . . . . . . . . . . . . 15 ⊢ (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})
39	38	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧) → (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
40	34, 39	orim12d 961	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)})))
41		elun 4125	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}) ↔ ((𝐹‘𝑤) ∈ {𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∨ (𝐹‘𝑤) ∈ {(𝐹‘𝑧)}))
42	40, 41	syl6ibr 254	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
43		simprl 769	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝑤 ∈ 𝐴)
44	42, 43	jctild 528	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
45	2	ffnd 6510	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 Fn 𝐴)
46	45	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → 𝐹 Fn 𝐴)
47		elpreima 6823	. . . . . . . . . . . 12 ⊢ (𝐹 Fn 𝐴 → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
48	46, 47	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})) ↔ (𝑤 ∈ 𝐴 ∧ (𝐹‘𝑤) ∈ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
49	44, 48	sylibrd 261	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴)) → (((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧)) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
50	49	expimpd 456	. . . . . . . . 9 ⊢ (𝜑 → (((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐴) ∧ ((𝐹‘𝑤)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑤) = (𝐹‘𝑧) ∧ 𝑤𝑆𝑧))) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
51	28, 50	syl5bi 244	. . . . . . . 8 ⊢ (𝜑 → (𝑤𝑇𝑧 → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
52	19, 51	syl5bi 244	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (◡𝑇 “ {𝑧}) → 𝑤 ∈ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)}))))
53	52	ssrdv 3973	. . . . . 6 ⊢ (𝜑 → (◡𝑇 “ {𝑧}) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
54	16, 53	sstrid 3978	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
55	54	adantr 483	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ⊆ (◡𝐹 “ ({𝑢 ∈ 𝐵 ∣ 𝑢𝑅(𝐹‘𝑧)} ∪ {(𝐹‘𝑧)})))
56	15, 55	ssexd 5221	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐴) → (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
57	56	ralrimiva 3182	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
58		dfse2 5958	. 2 ⊢ (𝑇 Se 𝐴 ↔ ∀𝑧 ∈ 𝐴 (𝐴 ∩ (◡𝑇 “ {𝑧})) ∈ V)
59	57, 58	sylibr 236	1 ⊢ (𝜑 → 𝑇 Se 𝐴)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   = wceq 1533   ∈ wcel 2110  ∀wral 3138  {crab 3142  Vcvv 3495   ∪ cun 3934   ∩ cin 3935   ⊆ wss 3936  {csn 4561   class class class wbr 5059  {copab 5121   Se wse 5507  ^◡ccnv 5549   “ cima 5553   Fn wfn 6345  ⟶wf 6346  ‘cfv 6350

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2156  ax-12 2172  ax-ext 2793  ax-sep 5196  ax-nul 5203  ax-pr 5322  ax-un 7455

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3497  df-sbc 3773  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4833  df-br 5060  df-opab 5122  df-id 5455  df-se 5510  df-xp 5556  df-rel 5557  df-cnv 5558  df-co 5559  df-dm 5560  df-rn 5561  df-res 5562  df-ima 5563  df-iota 6309  df-fun 6352  df-fn 6353  df-f 6354  df-fv 6358

This theorem is referenced by:  r0weon  9432