Theorem cantnflem1b 9643

Description: Lemma for cantnf 9650. (Contributed by Mario Carneiro, 4-Jun-2015.) (Revised by AV, 2-Jul-2019.)

Hypotheses

Ref	Expression
cantnfs.s	⊢ 𝑆 = dom (𝐴 CNF 𝐵)
cantnfs.a	⊢ (𝜑 → 𝐴 ∈ On)
cantnfs.b	⊢ (𝜑 → 𝐵 ∈ On)
oemapval.t	⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ∃𝑧 ∈ 𝐵 ((𝑥‘𝑧) ∈ (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐵 (𝑧 ∈ 𝑤 → (𝑥‘𝑤) = (𝑦‘𝑤)))}
oemapval.f	⊢ (𝜑 → 𝐹 ∈ 𝑆)
oemapval.g	⊢ (𝜑 → 𝐺 ∈ 𝑆)
oemapvali.r	⊢ (𝜑 → 𝐹𝑇𝐺)
oemapvali.x	⊢ 𝑋 = ∪ {𝑐 ∈ 𝐵 ∣ (𝐹‘𝑐) ∈ (𝐺‘𝑐)}
cantnflem1.o	⊢ 𝑂 = OrdIso( E , (𝐺 supp ∅))

Assertion

Ref	Expression
cantnflem1b	⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑋 ⊆ (𝑂‘𝑢))

Distinct variable groups:   𝑢,𝑐,𝑤,𝑥,𝑦,𝑧,𝐵   𝐴,𝑐,𝑢,𝑤,𝑥,𝑦,𝑧   𝑇,𝑐,𝑢   𝑢,𝐹,𝑤,𝑥,𝑦,𝑧   𝑆,𝑐,𝑢,𝑥,𝑦,𝑧   𝐺,𝑐,𝑢,𝑤,𝑥,𝑦,𝑧   𝑢,𝑂,𝑤,𝑥,𝑦,𝑧   𝜑,𝑢,𝑥,𝑦,𝑧   𝑢,𝑋,𝑤,𝑥,𝑦,𝑧   𝐹,𝑐   𝜑,𝑐

Allowed substitution hints:   𝜑(𝑤)   𝑆(𝑤)   𝑇(𝑥,𝑦,𝑧,𝑤)   𝑂(𝑐)   𝑋(𝑐)

Proof of Theorem cantnflem1b

Step	Hyp	Ref	Expression
1		simprr 784	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (◡𝑂‘𝑋) ⊆ 𝑢)
2		cantnflem1.o	. . . . . . 7 ⊢ 𝑂 = OrdIso( E , (𝐺 supp ∅))
3	2	oicl 9479	. . . . . 6 ⊢ Ord dom 𝑂
4		ovexd 7435	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 supp ∅) ∈ V)
5		cantnfs.s	. . . . . . . . . . . 12 ⊢ 𝑆 = dom (𝐴 CNF 𝐵)
6		cantnfs.a	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ On)
7		cantnfs.b	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ On)
8		oemapval.g	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺 ∈ 𝑆)
9	5, 6, 7, 2, 8	cantnfcl 9624	. . . . . . . . . . 11 ⊢ (𝜑 → ( E We (𝐺 supp ∅) ∧ dom 𝑂 ∈ ω))
10	9	simpld 499	. . . . . . . . . 10 ⊢ (𝜑 → E We (𝐺 supp ∅))
11	2	oiiso 9487	. . . . . . . . . 10 ⊢ (((𝐺 supp ∅) ∈ V ∧ E We (𝐺 supp ∅)) → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
12	4, 10, 11	syl2anc 595	. . . . . . . . 9 ⊢ (𝜑 → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
13		isof1o 7311	. . . . . . . . 9 ⊢ (𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)) → 𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅))
14	12, 13	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅))
15		f1ocnv 6823	. . . . . . . 8 ⊢ (𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅) → ◡𝑂:(𝐺 supp ∅)–1-1-onto→dom 𝑂)
16		f1of 6810	. . . . . . . 8 ⊢ (◡𝑂:(𝐺 supp ∅)–1-1-onto→dom 𝑂 → ◡𝑂:(𝐺 supp ∅)⟶dom 𝑂)
17	14, 15, 16	3syl 19	. . . . . . 7 ⊢ (𝜑 → ◡𝑂:(𝐺 supp ∅)⟶dom 𝑂)
18		oemapval.t	. . . . . . . 8 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ∃𝑧 ∈ 𝐵 ((𝑥‘𝑧) ∈ (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐵 (𝑧 ∈ 𝑤 → (𝑥‘𝑤) = (𝑦‘𝑤)))}
19		oemapval.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ 𝑆)
20		oemapvali.r	. . . . . . . 8 ⊢ (𝜑 → 𝐹𝑇𝐺)
21		oemapvali.x	. . . . . . . 8 ⊢ 𝑋 = ∪ {𝑐 ∈ 𝐵 ∣ (𝐹‘𝑐) ∈ (𝐺‘𝑐)}
22	5, 6, 7, 18, 19, 8, 20, 21	cantnflem1a 9642	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝐺 supp ∅))
23	17, 22	ffvelcdmd 7070	. . . . . 6 ⊢ (𝜑 → (◡𝑂‘𝑋) ∈ dom 𝑂)
24		ordelon 6373	. . . . . 6 ⊢ ((Ord dom 𝑂 ∧ (◡𝑂‘𝑋) ∈ dom 𝑂) → (◡𝑂‘𝑋) ∈ On)
25	3, 23, 24	sylancr 598	. . . . 5 ⊢ (𝜑 → (◡𝑂‘𝑋) ∈ On)
26	3	a1i 11	. . . . . . . 8 ⊢ (𝜑 → Ord dom 𝑂)
27		ordelon 6373	. . . . . . . 8 ⊢ ((Ord dom 𝑂 ∧ suc 𝑢 ∈ dom 𝑂) → suc 𝑢 ∈ On)
28	26, 27	sylan 591	. . . . . . 7 ⊢ ((𝜑 ∧ suc 𝑢 ∈ dom 𝑂) → suc 𝑢 ∈ On)
29		onsucb 7801	. . . . . . 7 ⊢ (𝑢 ∈ On ↔ suc 𝑢 ∈ On)
30	28, 29	sylibr 237	. . . . . 6 ⊢ ((𝜑 ∧ suc 𝑢 ∈ dom 𝑂) → 𝑢 ∈ On)
31	30	adantrr 729	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑢 ∈ On)
32		ontri1 6384	. . . . 5 ⊢ (((◡𝑂‘𝑋) ∈ On ∧ 𝑢 ∈ On) → ((◡𝑂‘𝑋) ⊆ 𝑢 ↔ ¬ 𝑢 ∈ (◡𝑂‘𝑋)))
33	25, 31, 32	syl2an2r 697	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ((◡𝑂‘𝑋) ⊆ 𝑢 ↔ ¬ 𝑢 ∈ (◡𝑂‘𝑋)))
34	1, 33	mpbid 235	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ¬ 𝑢 ∈ (◡𝑂‘𝑋))
35	12	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
36		ordtr 6363	. . . . . . . 8 ⊢ (Ord dom 𝑂 → Tr dom 𝑂)
37	3, 36	mp1i 14	. . . . . . 7 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → Tr dom 𝑂)
38		simprl 782	. . . . . . 7 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → suc 𝑢 ∈ dom 𝑂)
39		trsuc 6439	. . . . . . 7 ⊢ ((Tr dom 𝑂 ∧ suc 𝑢 ∈ dom 𝑂) → 𝑢 ∈ dom 𝑂)
40	37, 38, 39	syl2anc 595	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑢 ∈ dom 𝑂)
41	23	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (◡𝑂‘𝑋) ∈ dom 𝑂)
42		isorel 7314	. . . . . 6 ⊢ ((𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)) ∧ (𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ∈ dom 𝑂)) → (𝑢 E (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋))))
43	35, 40, 41, 42	syl12anc 849	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 E (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋))))
44		fvex 6884	. . . . . 6 ⊢ (◡𝑂‘𝑋) ∈ V
45	44	epeli 5553	. . . . 5 ⊢ (𝑢 E (◡𝑂‘𝑋) ↔ 𝑢 ∈ (◡𝑂‘𝑋))
46		fvex 6884	. . . . . 6 ⊢ (𝑂‘(◡𝑂‘𝑋)) ∈ V
47	46	epeli 5553	. . . . 5 ⊢ ((𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋)) ↔ (𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋)))
48	43, 45, 47	3bitr3g 316	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 ∈ (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋))))
49		f1ocnvfv2 7265	. . . . . . 7 ⊢ ((𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅) ∧ 𝑋 ∈ (𝐺 supp ∅)) → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
50	14, 22, 49	syl2anc 595	. . . . . 6 ⊢ (𝜑 → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
51	50	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
52	51	eleq2d 2851	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ((𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋)) ↔ (𝑂‘𝑢) ∈ 𝑋))
53	48, 52	bitrd 282	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 ∈ (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) ∈ 𝑋))
54	34, 53	mtbid 327	. 2 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ¬ (𝑂‘𝑢) ∈ 𝑋)
55	5, 6, 7, 18, 19, 8, 20, 21	oemapvali 9641	. . . . 5 ⊢ (𝜑 → (𝑋 ∈ 𝐵 ∧ (𝐹‘𝑋) ∈ (𝐺‘𝑋) ∧ ∀𝑤 ∈ 𝐵 (𝑋 ∈ 𝑤 → (𝐹‘𝑤) = (𝐺‘𝑤))))
56	55	simp1d 1158	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
57		onelon 6374	. . . 4 ⊢ ((𝐵 ∈ On ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ On)
58	7, 56, 57	syl2anc 595	. . 3 ⊢ (𝜑 → 𝑋 ∈ On)
59		suppssdm 8161	. . . . . . 7 ⊢ (𝐺 supp ∅) ⊆ dom 𝐺
60	5, 6, 7	cantnfs 9623	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 ∈ 𝑆 ↔ (𝐺:𝐵⟶𝐴 ∧ 𝐺 finSupp ∅)))
61	8, 60	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (𝐺:𝐵⟶𝐴 ∧ 𝐺 finSupp ∅))
62	61	simpld 499	. . . . . . 7 ⊢ (𝜑 → 𝐺:𝐵⟶𝐴)
63	59, 62	fssdm 6715	. . . . . 6 ⊢ (𝜑 → (𝐺 supp ∅) ⊆ 𝐵)
64	63	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝐺 supp ∅) ⊆ 𝐵)
65	2	oif 9480	. . . . . . 7 ⊢ 𝑂:dom 𝑂⟶(𝐺 supp ∅)
66	65	ffvelcdmi 7068	. . . . . 6 ⊢ (𝑢 ∈ dom 𝑂 → (𝑂‘𝑢) ∈ (𝐺 supp ∅))
67	40, 66	syl 18	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ (𝐺 supp ∅))
68	64, 67	sseldd 3940	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ 𝐵)
69		onelon 6374	. . . 4 ⊢ ((𝐵 ∈ On ∧ (𝑂‘𝑢) ∈ 𝐵) → (𝑂‘𝑢) ∈ On)
70	7, 68, 69	syl2an2r 697	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ On)
71		ontri1 6384	. . 3 ⊢ ((𝑋 ∈ On ∧ (𝑂‘𝑢) ∈ On) → (𝑋 ⊆ (𝑂‘𝑢) ↔ ¬ (𝑂‘𝑢) ∈ 𝑋))
72	58, 70, 71	syl2an2r 697	. 2 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑋 ⊆ (𝑂‘𝑢) ↔ ¬ (𝑂‘𝑢) ∈ 𝑋))
73	54, 72	mpbird 260	1 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑋 ⊆ (𝑂‘𝑢))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1563   ∈ wcel 2145  ∀wral 3079  ∃wrex 3089  {crab 3417  Vcvv 3457   ⊆ wss 3907  ∅c0 4288  ∪ cuni 4867   class class class wbr 5104  {copab 5166  Tr wtr 5211   E cep 5550   We wwe 5603  ^◡ccnv 5650  dom cdm 5651  Ord word 6348  Oncon0 6349  suc csuc 6351  ⟶wf 6521  –1-1-onto→wf1o 6524  ‘cfv 6525   Isom wiso 6526  (class class class)co 7400  ωcom 7850   supp csupp 8144   finSupp cfsupp 9309  OrdIsocoi 9459   CNF ccnf 9618

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-rep 5231  ax-sep 5250  ax-nul 5260  ax-pow 5326  ax-pr 5394  ax-un 7722

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3080  df-rex 3090  df-rmo 3370  df-reu 3371  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-pss 3927  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-iun 4953  df-br 5105  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6291  df-ord 6352  df-on 6353  df-lim 6354  df-suc 6355  df-iota 6481  df-fun 6527  df-fn 6528  df-f 6529  df-f1 6530  df-fo 6531  df-f1o 6532  df-fv 6533  df-isom 6534  df-riota 7357  df-ov 7403  df-oprab 7404  df-mpo 7405  df-om 7851  df-2nd 7975  df-supp 8145  df-frecs 8266  df-wrecs 8297  df-recs 8346  df-rdg 8385  df-seqom 8423  df-1o 8441  df-map 8814  df-en 8932  df-dom 8933  df-sdom 8934  df-fin 8935  df-fsupp 9310  df-oi 9460  df-cnf 9619

This theorem is referenced by:  cantnflem1c  9644