Theorem clsk1indlem1 44831

Description: The ansatz closure function (𝑟 ∈ 𝒫 3_o ↦ if(𝑟 = {∅}, {∅, 1_o}, 𝑟)) does not have the K1 property of isotony. (Contributed by RP, 6-Jul-2021.)

Hypothesis

Ref	Expression
clsk1indlem.k	⊢ 𝐾 = (𝑟 ∈ 𝒫 3o ↦ if(𝑟 = {∅}, {∅, 1o}, 𝑟))

Assertion

Ref	Expression
clsk1indlem1	⊢ ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡))

Distinct variable groups:   𝐾,𝑠,𝑡   𝑠,𝑟,𝑡

Allowed substitution hint:   𝐾(𝑟)

Proof of Theorem clsk1indlem1

Step	Hyp	Ref	Expression
1		tpex 7753	. . . 4 ⊢ {∅, 1o, 2o} ∈ V
2		snsstp1 4784	. . . 4 ⊢ {∅} ⊆ {∅, 1o, 2o}
3	1, 2	elpwi2 5308	. . 3 ⊢ {∅} ∈ 𝒫 {∅, 1o, 2o}
4		df3o2 44100	. . . 4 ⊢ 3o = {∅, 1o, 2o}
5	4	pweqi 4580	. . 3 ⊢ 𝒫 3o = 𝒫 {∅, 1o, 2o}
6	3, 5	eleqtrri 2864	. 2 ⊢ {∅} ∈ 𝒫 3o
7	1	a1i 11	. . . . 5 ⊢ (⊤ → {∅, 1o, 2o} ∈ V)
8	2	a1i 11	. . . . . . 7 ⊢ (⊤ → {∅} ⊆ {∅, 1o, 2o})
9		0ex 5272	. . . . . . . 8 ⊢ ∅ ∈ V
10	9	snss 4752	. . . . . . 7 ⊢ (∅ ∈ {∅, 1o, 2o} ↔ {∅} ⊆ {∅, 1o, 2o})
11	8, 10	sylibr 237	. . . . . 6 ⊢ (⊤ → ∅ ∈ {∅, 1o, 2o})
12		snsstp3 4786	. . . . . . . 8 ⊢ {2o} ⊆ {∅, 1o, 2o}
13	12	a1i 11	. . . . . . 7 ⊢ (⊤ → {2o} ⊆ {∅, 1o, 2o})
14		2oex 8471	. . . . . . . 8 ⊢ 2o ∈ V
15	14	snss 4752	. . . . . . 7 ⊢ (2o ∈ {∅, 1o, 2o} ↔ {2o} ⊆ {∅, 1o, 2o})
16	13, 15	sylibr 237	. . . . . 6 ⊢ (⊤ → 2o ∈ {∅, 1o, 2o})
17	11, 16	prssd 4790	. . . . 5 ⊢ (⊤ → {∅, 2o} ⊆ {∅, 1o, 2o})
18	7, 17	sselpwd 5301	. . . 4 ⊢ (⊤ → {∅, 2o} ∈ 𝒫 {∅, 1o, 2o})
19	18	mptru 1577	. . 3 ⊢ {∅, 2o} ∈ 𝒫 {∅, 1o, 2o}
20	19, 5	eleqtrri 2864	. 2 ⊢ {∅, 2o} ∈ 𝒫 3o
21		simpl 488	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅} ∈ 𝒫 3o)
22		sseq1 3963	. . . . . 6 ⊢ (𝑠 = {∅} → (𝑠 ⊆ 𝑡 ↔ {∅} ⊆ 𝑡))
23		fveq2 6885	. . . . . . . 8 ⊢ (𝑠 = {∅} → (𝐾‘𝑠) = (𝐾‘{∅}))
24	23	sseq1d 3969	. . . . . . 7 ⊢ (𝑠 = {∅} → ((𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
25	24	notbid 321	. . . . . 6 ⊢ (𝑠 = {∅} → (¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
26	22, 25	anbi12d 644	. . . . 5 ⊢ (𝑠 = {∅} → ((𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
27	26	rexbidv 3191	. . . 4 ⊢ (𝑠 = {∅} → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
28	27	adantl 487	. . 3 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑠 = {∅}) → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
29		simpr 490	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅, 2o} ∈ 𝒫 3o)
30		fveq2 6885	. . . . . . . 8 ⊢ (𝑡 = {∅, 2o} → (𝐾‘𝑡) = (𝐾‘{∅, 2o}))
31	30	sseq2d 3970	. . . . . . 7 ⊢ (𝑡 = {∅, 2o} → ((𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
32	31	notbid 321	. . . . . 6 ⊢ (𝑡 = {∅, 2o} → (¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
33	32	cleq2lem 44394	. . . . 5 ⊢ (𝑡 = {∅, 2o} → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
34	33	adantl 487	. . . 4 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑡 = {∅, 2o}) → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
35		1oelpr 8470	. . . . . . 7 ⊢ 1o ∈ {∅, 1o}
36		iftrue 4495	. . . . . . . . 9 ⊢ (𝑟 = {∅} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 1o})
37		clsk1indlem.k	. . . . . . . . 9 ⊢ 𝐾 = (𝑟 ∈ 𝒫 3o ↦ if(𝑟 = {∅}, {∅, 1o}, 𝑟))
38		prex 5411	. . . . . . . . 9 ⊢ {∅, 1o} ∈ V
39	36, 37, 38	fvmpt 6993	. . . . . . . 8 ⊢ ({∅} ∈ 𝒫 3o → (𝐾‘{∅}) = {∅, 1o})
40	39	adantr 486	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅}) = {∅, 1o})
41	35, 40	eleqtrrid 2872	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → 1o ∈ (𝐾‘{∅}))
42		1n0 8478	. . . . . . . . . . 11 ⊢ 1o ≠ ∅
43	42	neii 2962	. . . . . . . . . 10 ⊢ ¬ 1o = ∅
44		eqcom 2772	. . . . . . . . . . . 12 ⊢ (1o = 2o ↔ 2o = 1o)
45		df-2o 8460	. . . . . . . . . . . . 13 ⊢ 2o = suc 1o
46		df-1o 8459	. . . . . . . . . . . . 13 ⊢ 1o = suc ∅
47	45, 46	eqeq12i 2783	. . . . . . . . . . . 12 ⊢ (2o = 1o ↔ suc 1o = suc ∅)
48		suc11reg 9595	. . . . . . . . . . . 12 ⊢ (suc 1o = suc ∅ ↔ 1o = ∅)
49	44, 47, 48	3bitri 300	. . . . . . . . . . 11 ⊢ (1o = 2o ↔ 1o = ∅)
50	42, 49	nemtbir 3056	. . . . . . . . . 10 ⊢ ¬ 1o = 2o
51	43, 50	pm3.2ni 894	. . . . . . . . 9 ⊢ ¬ (1o = ∅ ∨ 1o = 2o)
52		elpri 4615	. . . . . . . . 9 ⊢ (1o ∈ {∅, 2o} → (1o = ∅ ∨ 1o = 2o))
53	51, 52	mto 200	. . . . . . . 8 ⊢ ¬ 1o ∈ {∅, 2o}
54	53	a1i 11	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ {∅, 2o})
55		eqeq1 2769	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → (𝑟 = {∅} ↔ {∅, 2o} = {∅}))
56		id 23	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → 𝑟 = {∅, 2o})
57	55, 56	ifbieq2d 4516	. . . . . . . . . 10 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}))
58	14	prid2 4731	. . . . . . . . . . . 12 ⊢ 2o ∈ {∅, 2o}
59		2on0 8474	. . . . . . . . . . . . 13 ⊢ 2o ≠ ∅
60		nelsn 4634	. . . . . . . . . . . . 13 ⊢ (2o ≠ ∅ → ¬ 2o ∈ {∅})
61	59, 60	ax-mp 5	. . . . . . . . . . . 12 ⊢ ¬ 2o ∈ {∅}
62		nelneq2 2890	. . . . . . . . . . . 12 ⊢ ((2o ∈ {∅, 2o} ∧ ¬ 2o ∈ {∅}) → ¬ {∅, 2o} = {∅})
63	58, 61, 62	mp2an 705	. . . . . . . . . . 11 ⊢ ¬ {∅, 2o} = {∅}
64	63	iffalsei 4499	. . . . . . . . . 10 ⊢ if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}) = {∅, 2o}
65	57, 64	eqtrdi 2816	. . . . . . . . 9 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 2o})
66		prex 5411	. . . . . . . . 9 ⊢ {∅, 2o} ∈ V
67	65, 37, 66	fvmpt 6993	. . . . . . . 8 ⊢ ({∅, 2o} ∈ 𝒫 3o → (𝐾‘{∅, 2o}) = {∅, 2o})
68	67	adantl 487	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅, 2o}) = {∅, 2o})
69	54, 68	neleqtrrd 2888	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ (𝐾‘{∅, 2o}))
70		nelss 4004	. . . . . 6 ⊢ ((1o ∈ (𝐾‘{∅}) ∧ ¬ 1o ∈ (𝐾‘{∅, 2o})) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
71	41, 69, 70	syl2anc 596	. . . . 5 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
72		snsspr1 4782	. . . . 5 ⊢ {∅} ⊆ {∅, 2o}
73	71, 72	jctil 529	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
74	29, 34, 73	rspcedvd 3585	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
75	21, 28, 74	rspcedvd 3585	. 2 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)))
76	6, 20, 75	mp2an 705	1 ⊢ ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡))

This proof depends on syntax axioms:  ¬ wn 3   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570  ⊤wtru 1571   ∈ wcel 2146   ≠ wne 2960  ∃wrex 3091  Vcvv 3457   ⊆ wss 3906  ∅c0 4286  ifcif 4489  𝒫 cpw 4564  {csn 4591  {cpr 4593  {ctp 4595   ↦ cmpt 5194  suc csuc 6366  ‘cfv 6540  1_oc1o 8452  2_oc2o 8453  3_oc3o 8454

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pr 5406  ax-un 7742  ax-reg 9561

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-rab 3419  df-v 3459  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5558  df-eprel 5563  df-fr 5616  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-suc 6370  df-iota 6496  df-fun 6542  df-fv 6548  df-1o 8459  df-2o 8460  df-3o 8461

This theorem is used by:  clsk1independent  44832