Theorem cantnflem1b 9755

Description: Lemma for cantnf 9762. (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 772	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (◡𝑂‘𝑋) ⊆ 𝑢)
2		cantnflem1.o	. . . . . . 7 ⊢ 𝑂 = OrdIso( E , (𝐺 supp ∅))
3	2	oicl 9598	. . . . . 6 ⊢ Ord dom 𝑂
4		ovexd 7483	. . . . . . . . . 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 9736	. . . . . . . . . . 11 ⊢ (𝜑 → ( E We (𝐺 supp ∅) ∧ dom 𝑂 ∈ ω))
10	9	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → E We (𝐺 supp ∅))
11	2	oiiso 9606	. . . . . . . . . 10 ⊢ (((𝐺 supp ∅) ∈ V ∧ E We (𝐺 supp ∅)) → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
12	4, 10, 11	syl2anc 583	. . . . . . . . 9 ⊢ (𝜑 → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
13		isof1o 7359	. . . . . . . . 9 ⊢ (𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)) → 𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅))
14	12, 13	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅))
15		f1ocnv 6874	. . . . . . . 8 ⊢ (𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅) → ◡𝑂:(𝐺 supp ∅)–1-1-onto→dom 𝑂)
16		f1of 6862	. . . . . . . 8 ⊢ (◡𝑂:(𝐺 supp ∅)–1-1-onto→dom 𝑂 → ◡𝑂:(𝐺 supp ∅)⟶dom 𝑂)
17	14, 15, 16	3syl 18	. . . . . . 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 9754	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝐺 supp ∅))
23	17, 22	ffvelcdmd 7119	. . . . . 6 ⊢ (𝜑 → (◡𝑂‘𝑋) ∈ dom 𝑂)
24		ordelon 6419	. . . . . 6 ⊢ ((Ord dom 𝑂 ∧ (◡𝑂‘𝑋) ∈ dom 𝑂) → (◡𝑂‘𝑋) ∈ On)
25	3, 23, 24	sylancr 586	. . . . 5 ⊢ (𝜑 → (◡𝑂‘𝑋) ∈ On)
26	3	a1i 11	. . . . . . . 8 ⊢ (𝜑 → Ord dom 𝑂)
27		ordelon 6419	. . . . . . . 8 ⊢ ((Ord dom 𝑂 ∧ suc 𝑢 ∈ dom 𝑂) → suc 𝑢 ∈ On)
28	26, 27	sylan 579	. . . . . . 7 ⊢ ((𝜑 ∧ suc 𝑢 ∈ dom 𝑂) → suc 𝑢 ∈ On)
29		onsucb 7853	. . . . . . 7 ⊢ (𝑢 ∈ On ↔ suc 𝑢 ∈ On)
30	28, 29	sylibr 234	. . . . . 6 ⊢ ((𝜑 ∧ suc 𝑢 ∈ dom 𝑂) → 𝑢 ∈ On)
31	30	adantrr 716	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑢 ∈ On)
32		ontri1 6429	. . . . 5 ⊢ (((◡𝑂‘𝑋) ∈ On ∧ 𝑢 ∈ On) → ((◡𝑂‘𝑋) ⊆ 𝑢 ↔ ¬ 𝑢 ∈ (◡𝑂‘𝑋)))
33	25, 31, 32	syl2an2r 684	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ((◡𝑂‘𝑋) ⊆ 𝑢 ↔ ¬ 𝑢 ∈ (◡𝑂‘𝑋)))
34	1, 33	mpbid 232	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ¬ 𝑢 ∈ (◡𝑂‘𝑋))
35	12	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)))
36		ordtr 6409	. . . . . . . 8 ⊢ (Ord dom 𝑂 → Tr dom 𝑂)
37	3, 36	mp1i 13	. . . . . . 7 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → Tr dom 𝑂)
38		simprl 770	. . . . . . 7 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → suc 𝑢 ∈ dom 𝑂)
39		trsuc 6482	. . . . . . 7 ⊢ ((Tr dom 𝑂 ∧ suc 𝑢 ∈ dom 𝑂) → 𝑢 ∈ dom 𝑂)
40	37, 38, 39	syl2anc 583	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑢 ∈ dom 𝑂)
41	23	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (◡𝑂‘𝑋) ∈ dom 𝑂)
42		isorel 7362	. . . . . 6 ⊢ ((𝑂 Isom E , E (dom 𝑂, (𝐺 supp ∅)) ∧ (𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ∈ dom 𝑂)) → (𝑢 E (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋))))
43	35, 40, 41, 42	syl12anc 836	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 E (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋))))
44		fvex 6933	. . . . . 6 ⊢ (◡𝑂‘𝑋) ∈ V
45	44	epeli 5601	. . . . 5 ⊢ (𝑢 E (◡𝑂‘𝑋) ↔ 𝑢 ∈ (◡𝑂‘𝑋))
46		fvex 6933	. . . . . 6 ⊢ (𝑂‘(◡𝑂‘𝑋)) ∈ V
47	46	epeli 5601	. . . . 5 ⊢ ((𝑂‘𝑢) E (𝑂‘(◡𝑂‘𝑋)) ↔ (𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋)))
48	43, 45, 47	3bitr3g 313	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 ∈ (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋))))
49		f1ocnvfv2 7313	. . . . . . 7 ⊢ ((𝑂:dom 𝑂–1-1-onto→(𝐺 supp ∅) ∧ 𝑋 ∈ (𝐺 supp ∅)) → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
50	14, 22, 49	syl2anc 583	. . . . . 6 ⊢ (𝜑 → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
51	50	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘(◡𝑂‘𝑋)) = 𝑋)
52	51	eleq2d 2830	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ((𝑂‘𝑢) ∈ (𝑂‘(◡𝑂‘𝑋)) ↔ (𝑂‘𝑢) ∈ 𝑋))
53	48, 52	bitrd 279	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑢 ∈ (◡𝑂‘𝑋) ↔ (𝑂‘𝑢) ∈ 𝑋))
54	34, 53	mtbid 324	. 2 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → ¬ (𝑂‘𝑢) ∈ 𝑋)
55	5, 6, 7, 18, 19, 8, 20, 21	oemapvali 9753	. . . . 5 ⊢ (𝜑 → (𝑋 ∈ 𝐵 ∧ (𝐹‘𝑋) ∈ (𝐺‘𝑋) ∧ ∀𝑤 ∈ 𝐵 (𝑋 ∈ 𝑤 → (𝐹‘𝑤) = (𝐺‘𝑤))))
56	55	simp1d 1142	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
57		onelon 6420	. . . 4 ⊢ ((𝐵 ∈ On ∧ 𝑋 ∈ 𝐵) → 𝑋 ∈ On)
58	7, 56, 57	syl2anc 583	. . 3 ⊢ (𝜑 → 𝑋 ∈ On)
59		suppssdm 8218	. . . . . . 7 ⊢ (𝐺 supp ∅) ⊆ dom 𝐺
60	5, 6, 7	cantnfs 9735	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 ∈ 𝑆 ↔ (𝐺:𝐵⟶𝐴 ∧ 𝐺 finSupp ∅)))
61	8, 60	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (𝐺:𝐵⟶𝐴 ∧ 𝐺 finSupp ∅))
62	61	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝐺:𝐵⟶𝐴)
63	59, 62	fssdm 6766	. . . . . 6 ⊢ (𝜑 → (𝐺 supp ∅) ⊆ 𝐵)
64	63	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝐺 supp ∅) ⊆ 𝐵)
65	2	oif 9599	. . . . . . 7 ⊢ 𝑂:dom 𝑂⟶(𝐺 supp ∅)
66	65	ffvelcdmi 7117	. . . . . 6 ⊢ (𝑢 ∈ dom 𝑂 → (𝑂‘𝑢) ∈ (𝐺 supp ∅))
67	40, 66	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ (𝐺 supp ∅))
68	64, 67	sseldd 4009	. . . 4 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ 𝐵)
69		onelon 6420	. . . 4 ⊢ ((𝐵 ∈ On ∧ (𝑂‘𝑢) ∈ 𝐵) → (𝑂‘𝑢) ∈ On)
70	7, 68, 69	syl2an2r 684	. . 3 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑂‘𝑢) ∈ On)
71		ontri1 6429	. . 3 ⊢ ((𝑋 ∈ On ∧ (𝑂‘𝑢) ∈ On) → (𝑋 ⊆ (𝑂‘𝑢) ↔ ¬ (𝑂‘𝑢) ∈ 𝑋))
72	58, 70, 71	syl2an2r 684	. 2 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → (𝑋 ⊆ (𝑂‘𝑢) ↔ ¬ (𝑂‘𝑢) ∈ 𝑋))
73	54, 72	mpbird 257	1 ⊢ ((𝜑 ∧ (suc 𝑢 ∈ dom 𝑂 ∧ (◡𝑂‘𝑋) ⊆ 𝑢)) → 𝑋 ⊆ (𝑂‘𝑢))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2108  ∀wral 3067  ∃wrex 3076  {crab 3443  Vcvv 3488   ⊆ wss 3976  ∅c0 4352  ∪ cuni 4931   class class class wbr 5166  {copab 5228  Tr wtr 5283   E cep 5598   We wwe 5651  ^◡ccnv 5699  dom cdm 5700  Ord word 6394  Oncon0 6395  suc csuc 6397  ⟶wf 6569  –1-1-onto→wf1o 6572  ‘cfv 6573   Isom wiso 6574  (class class class)co 7448  ωcom 7903   supp csupp 8201   finSupp cfsupp 9431  OrdIsocoi 9578   CNF ccnf 9730

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-2nd 8031  df-supp 8202  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-seqom 8504  df-1o 8522  df-map 8886  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-oi 9579  df-cnf 9731

This theorem is referenced by:  cantnflem1c  9756