Theorem weiunfrlem 36785

Description: Lemma for weiunfr 36788. (Contributed by Matthew House, 23-Aug-2025.)

Hypotheses

Ref	Expression
weiun.1	⊢ 𝐹 = (𝑤 ∈ ∪ 𝑥 ∈ 𝐴 𝐵 ↦ (℩𝑢 ∈ {𝑥 ∈ 𝐴 ∣ 𝑤 ∈ 𝐵}∀𝑣 ∈ {𝑥 ∈ 𝐴 ∣ 𝑤 ∈ 𝐵} ¬ 𝑣𝑅𝑢))
weiun.2	⊢ 𝑇 = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ∈ ∪ 𝑥 ∈ 𝐴 𝐵 ∧ 𝑧 ∈ ∪ 𝑥 ∈ 𝐴 𝐵) ∧ ((𝐹‘𝑦)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑦) = (𝐹‘𝑧) ∧ 𝑦⦋(𝐹‘𝑦) / 𝑥⦌𝑆𝑧)))}
weiunlem.3	⊢ (𝜑 → 𝑅 We 𝐴)
weiunlem.4	⊢ (𝜑 → 𝑅 Se 𝐴)
weiunfrlem.5	⊢ 𝐸 = (℩𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝)
weiunfrlem.6	⊢ (𝜑 → 𝑟 ⊆ ∪ 𝑥 ∈ 𝐴 𝐵)
weiunfrlem.7	⊢ (𝜑 → 𝑟 ≠ ∅)

Assertion

Ref	Expression
weiunfrlem	⊢ (𝜑 → (𝐸 ∈ (𝐹 “ 𝑟) ∧ ∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸 ∧ ∀𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)(𝐹‘𝑡) = 𝐸))

Distinct variable groups:   𝜑,𝑡   𝐴,𝑝,𝑞,𝑟,𝑡,𝑢,𝑣,𝑤,𝑥   𝑦,𝐴,𝑧,𝑥   𝐵,𝑝,𝑞,𝑟,𝑡,𝑢,𝑣,𝑤   𝑦,𝐵,𝑧   𝑡,𝐸   𝐹,𝑝,𝑞,𝑟,𝑡,𝑦,𝑧   𝑅,𝑝,𝑞,𝑟,𝑡,𝑢,𝑣,𝑤   𝑦,𝑅,𝑧   𝑆,𝑝,𝑞,𝑟,𝑡,𝑦,𝑧   𝑇,𝑝,𝑞,𝑟

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑟,𝑞,𝑝)   𝐵(𝑥)   𝑅(𝑥)   𝑆(𝑥,𝑤,𝑣,𝑢)   𝑇(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑡)   𝐸(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑟,𝑞,𝑝)   𝐹(𝑥,𝑤,𝑣,𝑢)

Proof of Theorem weiunfrlem

Dummy variables 𝑛 𝑜 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		weiunlem.3	. . . . . . 7 ⊢ (𝜑 → 𝑅 We 𝐴)
2		weiunlem.4	. . . . . . 7 ⊢ (𝜑 → 𝑅 Se 𝐴)
3		weiun.1	. . . . . . . . . 10 ⊢ 𝐹 = (𝑤 ∈ ∪ 𝑥 ∈ 𝐴 𝐵 ↦ (℩𝑢 ∈ {𝑥 ∈ 𝐴 ∣ 𝑤 ∈ 𝐵}∀𝑣 ∈ {𝑥 ∈ 𝐴 ∣ 𝑤 ∈ 𝐵} ¬ 𝑣𝑅𝑢))
4		weiun.2	. . . . . . . . . 10 ⊢ 𝑇 = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 ∈ ∪ 𝑥 ∈ 𝐴 𝐵 ∧ 𝑧 ∈ ∪ 𝑥 ∈ 𝐴 𝐵) ∧ ((𝐹‘𝑦)𝑅(𝐹‘𝑧) ∨ ((𝐹‘𝑦) = (𝐹‘𝑧) ∧ 𝑦⦋(𝐹‘𝑦) / 𝑥⦌𝑆𝑧)))}
5	3, 4, 1, 2	weiunlem 36784	. . . . . . . . 9 ⊢ (𝜑 → (𝐹:∪ 𝑥 ∈ 𝐴 𝐵⟶𝐴 ∧ ∀𝑡 ∈ ∪ 𝑥 ∈ 𝐴 𝐵𝑡 ∈ ⦋(𝐹‘𝑡) / 𝑥⦌𝐵 ∧ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ ⦋ 𝑠 / 𝑥⦌𝐵 ¬ 𝑠𝑅(𝐹‘𝑡)))
6	5	simp1d 1154	. . . . . . . 8 ⊢ (𝜑 → 𝐹:∪ 𝑥 ∈ 𝐴 𝐵⟶𝐴)
7	6	fimassd 6708	. . . . . . 7 ⊢ (𝜑 → (𝐹 “ 𝑟) ⊆ 𝐴)
8		weiunfrlem.6	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑟 ⊆ ∪ 𝑥 ∈ 𝐴 𝐵)
9	6	fdmd 6697	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝐹 = ∪ 𝑥 ∈ 𝐴 𝐵)
10	8, 9	sseqtrrd 3971	. . . . . . . . . 10 ⊢ (𝜑 → 𝑟 ⊆ dom 𝐹)
11		sseqin2 4173	. . . . . . . . . 10 ⊢ (𝑟 ⊆ dom 𝐹 ↔ (dom 𝐹 ∩ 𝑟) = 𝑟)
12	10, 11	sylib 220	. . . . . . . . 9 ⊢ (𝜑 → (dom 𝐹 ∩ 𝑟) = 𝑟)
13		weiunfrlem.7	. . . . . . . . 9 ⊢ (𝜑 → 𝑟 ≠ ∅)
14	12, 13	eqnetrd 3023	. . . . . . . 8 ⊢ (𝜑 → (dom 𝐹 ∩ 𝑟) ≠ ∅)
15	14	imadisjlnd 6066	. . . . . . 7 ⊢ (𝜑 → (𝐹 “ 𝑟) ≠ ∅)
16		wereu2 5640	. . . . . . 7 ⊢ (((𝑅 We 𝐴 ∧ 𝑅 Se 𝐴) ∧ ((𝐹 “ 𝑟) ⊆ 𝐴 ∧ (𝐹 “ 𝑟) ≠ ∅)) → ∃!𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝)
17	1, 2, 7, 15, 16	syl22anc 849	. . . . . 6 ⊢ (𝜑 → ∃!𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝)
18		riotacl2 7364	. . . . . 6 ⊢ (∃!𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝 → (℩𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝) ∈ {𝑝 ∈ (𝐹 “ 𝑟) ∣ ∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝})
19	17, 18	syl 17	. . . . 5 ⊢ (𝜑 → (℩𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝) ∈ {𝑝 ∈ (𝐹 “ 𝑟) ∣ ∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝})
20		weiunfrlem.5	. . . . 5 ⊢ 𝐸 = (℩𝑝 ∈ (𝐹 “ 𝑟)∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝)
21		simpr 488	. . . . . . . . 9 ⊢ ((𝑛 = 𝑝 ∧ 𝑜 = 𝑞) → 𝑜 = 𝑞)
22		simpl 486	. . . . . . . . 9 ⊢ ((𝑛 = 𝑝 ∧ 𝑜 = 𝑞) → 𝑛 = 𝑝)
23	21, 22	breq12d 5110	. . . . . . . 8 ⊢ ((𝑛 = 𝑝 ∧ 𝑜 = 𝑞) → (𝑜𝑅𝑛 ↔ 𝑞𝑅𝑝))
24	23	notbid 320	. . . . . . 7 ⊢ ((𝑛 = 𝑝 ∧ 𝑜 = 𝑞) → (¬ 𝑜𝑅𝑛 ↔ ¬ 𝑞𝑅𝑝))
25	24	cbvraldva 3241	. . . . . 6 ⊢ (𝑛 = 𝑝 → (∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝑛 ↔ ∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝))
26	25	cbvrabv 3423	. . . . 5 ⊢ {𝑛 ∈ (𝐹 “ 𝑟) ∣ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝑛} = {𝑝 ∈ (𝐹 “ 𝑟) ∣ ∀𝑞 ∈ (𝐹 “ 𝑟) ¬ 𝑞𝑅𝑝}
27	19, 20, 26	3eltr4g 2878	. . . 4 ⊢ (𝜑 → 𝐸 ∈ {𝑛 ∈ (𝐹 “ 𝑟) ∣ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝑛})
28		breq2 5101	. . . . . . 7 ⊢ (𝑛 = 𝐸 → (𝑜𝑅𝑛 ↔ 𝑜𝑅𝐸))
29	28	notbid 320	. . . . . 6 ⊢ (𝑛 = 𝐸 → (¬ 𝑜𝑅𝑛 ↔ ¬ 𝑜𝑅𝐸))
30	29	ralbidv 3184	. . . . 5 ⊢ (𝑛 = 𝐸 → (∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝑛 ↔ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸))
31	30	elrab 3649	. . . 4 ⊢ (𝐸 ∈ {𝑛 ∈ (𝐹 “ 𝑟) ∣ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝑛} ↔ (𝐸 ∈ (𝐹 “ 𝑟) ∧ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸))
32	27, 31	sylib 220	. . 3 ⊢ (𝜑 → (𝐸 ∈ (𝐹 “ 𝑟) ∧ ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸))
33	32	simpld 498	. 2 ⊢ (𝜑 → 𝐸 ∈ (𝐹 “ 𝑟))
34	32	simprd 499	. . 3 ⊢ (𝜑 → ∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸)
35	6	ffnd 6687	. . . 4 ⊢ (𝜑 → 𝐹 Fn ∪ 𝑥 ∈ 𝐴 𝐵)
36		breq1 5100	. . . . . 6 ⊢ (𝑜 = (𝐹‘𝑡) → (𝑜𝑅𝐸 ↔ (𝐹‘𝑡)𝑅𝐸))
37	36	notbid 320	. . . . 5 ⊢ (𝑜 = (𝐹‘𝑡) → (¬ 𝑜𝑅𝐸 ↔ ¬ (𝐹‘𝑡)𝑅𝐸))
38	37	ralima 7216	. . . 4 ⊢ ((𝐹 Fn ∪ 𝑥 ∈ 𝐴 𝐵 ∧ 𝑟 ⊆ ∪ 𝑥 ∈ 𝐴 𝐵) → (∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸 ↔ ∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸))
39	35, 8, 38	syl2anc 593	. . 3 ⊢ (𝜑 → (∀𝑜 ∈ (𝐹 “ 𝑟) ¬ 𝑜𝑅𝐸 ↔ ∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸))
40	34, 39	mpbid 234	. 2 ⊢ (𝜑 → ∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸)
41		simpr 488	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵))
42	41	elin1d 4154	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑡 ∈ 𝑟)
43		rspa 3250	. . . . 5 ⊢ ((∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸 ∧ 𝑡 ∈ 𝑟) → ¬ (𝐹‘𝑡)𝑅𝐸)
44	40, 42, 43	syl2an2r 695	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → ¬ (𝐹‘𝑡)𝑅𝐸)
45		csbeq1 3853	. . . . . . 7 ⊢ (𝑠 = 𝐸 → ⦋𝑠 / 𝑥⦌𝐵 = ⦋𝐸 / 𝑥⦌𝐵)
46		breq1 5100	. . . . . . . 8 ⊢ (𝑠 = 𝐸 → (𝑠𝑅(𝐹‘𝑡) ↔ 𝐸𝑅(𝐹‘𝑡)))
47	46	notbid 320	. . . . . . 7 ⊢ (𝑠 = 𝐸 → (¬ 𝑠𝑅(𝐹‘𝑡) ↔ ¬ 𝐸𝑅(𝐹‘𝑡)))
48	45, 47	raleqbidv 3335	. . . . . 6 ⊢ (𝑠 = 𝐸 → (∀𝑡 ∈ ⦋ 𝑠 / 𝑥⦌𝐵 ¬ 𝑠𝑅(𝐹‘𝑡) ↔ ∀𝑡 ∈ ⦋ 𝐸 / 𝑥⦌𝐵 ¬ 𝐸𝑅(𝐹‘𝑡)))
49	5	simp3d 1156	. . . . . 6 ⊢ (𝜑 → ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ ⦋ 𝑠 / 𝑥⦌𝐵 ¬ 𝑠𝑅(𝐹‘𝑡))
50	7, 33	sseldd 3935	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ 𝐴)
51	48, 49, 50	rspcdva 3581	. . . . 5 ⊢ (𝜑 → ∀𝑡 ∈ ⦋ 𝐸 / 𝑥⦌𝐵 ¬ 𝐸𝑅(𝐹‘𝑡))
52	41	elin2d 4155	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑡 ∈ ⦋𝐸 / 𝑥⦌𝐵)
53		rspa 3250	. . . . 5 ⊢ ((∀𝑡 ∈ ⦋ 𝐸 / 𝑥⦌𝐵 ¬ 𝐸𝑅(𝐹‘𝑡) ∧ 𝑡 ∈ ⦋𝐸 / 𝑥⦌𝐵) → ¬ 𝐸𝑅(𝐹‘𝑡))
54	51, 52, 53	syl2an2r 695	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → ¬ 𝐸𝑅(𝐹‘𝑡))
55		weso 5634	. . . . . . 7 ⊢ (𝑅 We 𝐴 → 𝑅 Or 𝐴)
56	1, 55	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑅 Or 𝐴)
57	56	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑅 Or 𝐴)
58	6	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝐹:∪ 𝑥 ∈ 𝐴 𝐵⟶𝐴)
59	8	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑟 ⊆ ∪ 𝑥 ∈ 𝐴 𝐵)
60	59, 42	sseldd 3935	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝑡 ∈ ∪ 𝑥 ∈ 𝐴 𝐵)
61	58, 60	ffvelcdmd 7061	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → (𝐹‘𝑡) ∈ 𝐴)
62	50	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → 𝐸 ∈ 𝐴)
63		sotrieq2 5583	. . . . 5 ⊢ ((𝑅 Or 𝐴 ∧ ((𝐹‘𝑡) ∈ 𝐴 ∧ 𝐸 ∈ 𝐴)) → ((𝐹‘𝑡) = 𝐸 ↔ (¬ (𝐹‘𝑡)𝑅𝐸 ∧ ¬ 𝐸𝑅(𝐹‘𝑡))))
64	57, 61, 62, 63	syl12anc 847	. . . 4 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → ((𝐹‘𝑡) = 𝐸 ↔ (¬ (𝐹‘𝑡)𝑅𝐸 ∧ ¬ 𝐸𝑅(𝐹‘𝑡))))
65	44, 54, 64	mpbir2and 723	. . 3 ⊢ ((𝜑 ∧ 𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)) → (𝐹‘𝑡) = 𝐸)
66	65	ralrimiva 3153	. 2 ⊢ (𝜑 → ∀𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)(𝐹‘𝑡) = 𝐸)
67	33, 40, 66	3jca 1140	1 ⊢ (𝜑 → (𝐸 ∈ (𝐹 “ 𝑟) ∧ ∀𝑡 ∈ 𝑟 ¬ (𝐹‘𝑡)𝑅𝐸 ∧ ∀𝑡 ∈ (𝑟 ∩ ⦋𝐸 / 𝑥⦌𝐵)(𝐹‘𝑡) = 𝐸))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   ∧ w3a 1097   = wceq 1559   ∈ wcel 2141   ≠ wne 2956  ∀wral 3075  ∃!wreu 3364  {crab 3413  ⦋csb 3850   ∩ cin 3901   ⊆ wss 3902  ∅c0 4283  ∪ ciun 4946   class class class wbr 5097  {copab 5159   ↦ cmpt 5178   Or wor 5550   Se wse 5594   We wwe 5595  dom cdm 5643   “ cima 5646   Fn wfn 6511  ⟶wf 6512  ‘cfv 6516  ℩crio 7347

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-11 2190  ax-12 2211  ax-ext 2733  ax-sep 5243  ax-nul 5253  ax-pr 5387

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  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-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-id 5538  df-po 5551  df-so 5552  df-fr 5596  df-se 5597  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-fv 6524  df-riota 7348

This theorem is referenced by:  weiunfr  36788