Theorem clsk1indlem1 44498

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 7690	. . . 4 ⊢ {∅, 1o, 2o} ∈ V
2		snsstp1 4748	. . . 4 ⊢ {∅} ⊆ {∅, 1o, 2o}
3	1, 2	elpwi2 5264	. . 3 ⊢ {∅} ∈ 𝒫 {∅, 1o, 2o}
4		df3o2 43767	. . . 4 ⊢ 3o = {∅, 1o, 2o}
5	4	pweqi 4546	. . 3 ⊢ 𝒫 3o = 𝒫 {∅, 1o, 2o}
6	3, 5	eleqtrri 2838	. 2 ⊢ {∅} ∈ 𝒫 3o
7	1	a1i 11	. . . . 5 ⊢ (⊤ → {∅, 1o, 2o} ∈ V)
8	2	a1i 11	. . . . . . 7 ⊢ (⊤ → {∅} ⊆ {∅, 1o, 2o})
9		0ex 5230	. . . . . . . 8 ⊢ ∅ ∈ V
10	9	snss 4717	. . . . . . 7 ⊢ (∅ ∈ {∅, 1o, 2o} ↔ {∅} ⊆ {∅, 1o, 2o})
11	8, 10	sylibr 235	. . . . . 6 ⊢ (⊤ → ∅ ∈ {∅, 1o, 2o})
12		snsstp3 4750	. . . . . . . 8 ⊢ {2o} ⊆ {∅, 1o, 2o}
13	12	a1i 11	. . . . . . 7 ⊢ (⊤ → {2o} ⊆ {∅, 1o, 2o})
14		2oex 8407	. . . . . . . 8 ⊢ 2o ∈ V
15	14	snss 4717	. . . . . . 7 ⊢ (2o ∈ {∅, 1o, 2o} ↔ {2o} ⊆ {∅, 1o, 2o})
16	13, 15	sylibr 235	. . . . . 6 ⊢ (⊤ → 2o ∈ {∅, 1o, 2o})
17	11, 16	prssd 4754	. . . . 5 ⊢ (⊤ → {∅, 2o} ⊆ {∅, 1o, 2o})
18	7, 17	sselpwd 5257	. . . 4 ⊢ (⊤ → {∅, 2o} ∈ 𝒫 {∅, 1o, 2o})
19	18	mptru 1554	. . 3 ⊢ {∅, 2o} ∈ 𝒫 {∅, 1o, 2o}
20	19, 5	eleqtrri 2838	. 2 ⊢ {∅, 2o} ∈ 𝒫 3o
21		simpl 483	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅} ∈ 𝒫 3o)
22		sseq1 3940	. . . . . 6 ⊢ (𝑠 = {∅} → (𝑠 ⊆ 𝑡 ↔ {∅} ⊆ 𝑡))
23		fveq2 6828	. . . . . . . 8 ⊢ (𝑠 = {∅} → (𝐾‘𝑠) = (𝐾‘{∅}))
24	23	sseq1d 3946	. . . . . . 7 ⊢ (𝑠 = {∅} → ((𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
25	24	notbid 319	. . . . . 6 ⊢ (𝑠 = {∅} → (¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
26	22, 25	anbi12d 638	. . . . 5 ⊢ (𝑠 = {∅} → ((𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
27	26	rexbidv 3163	. . . 4 ⊢ (𝑠 = {∅} → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
28	27	adantl 482	. . 3 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑠 = {∅}) → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
29		simpr 485	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅, 2o} ∈ 𝒫 3o)
30		fveq2 6828	. . . . . . . 8 ⊢ (𝑡 = {∅, 2o} → (𝐾‘𝑡) = (𝐾‘{∅, 2o}))
31	30	sseq2d 3947	. . . . . . 7 ⊢ (𝑡 = {∅, 2o} → ((𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
32	31	notbid 319	. . . . . 6 ⊢ (𝑡 = {∅, 2o} → (¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
33	32	cleq2lem 44061	. . . . 5 ⊢ (𝑡 = {∅, 2o} → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
34	33	adantl 482	. . . 4 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑡 = {∅, 2o}) → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
35		1oex 8406	. . . . . . . 8 ⊢ 1o ∈ V
36	35	prid2 4696	. . . . . . 7 ⊢ 1o ∈ {∅, 1o}
37		iftrue 4461	. . . . . . . . 9 ⊢ (𝑟 = {∅} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 1o})
38		clsk1indlem.k	. . . . . . . . 9 ⊢ 𝐾 = (𝑟 ∈ 𝒫 3o ↦ if(𝑟 = {∅}, {∅, 1o}, 𝑟))
39		prex 5368	. . . . . . . . 9 ⊢ {∅, 1o} ∈ V
40	37, 38, 39	fvmpt 6936	. . . . . . . 8 ⊢ ({∅} ∈ 𝒫 3o → (𝐾‘{∅}) = {∅, 1o})
41	40	adantr 481	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅}) = {∅, 1o})
42	36, 41	eleqtrrid 2846	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → 1o ∈ (𝐾‘{∅}))
43		1n0 8414	. . . . . . . . . . 11 ⊢ 1o ≠ ∅
44	43	neii 2936	. . . . . . . . . 10 ⊢ ¬ 1o = ∅
45		eqcom 2746	. . . . . . . . . . . 12 ⊢ (1o = 2o ↔ 2o = 1o)
46		df-2o 8397	. . . . . . . . . . . . 13 ⊢ 2o = suc 1o
47		df-1o 8396	. . . . . . . . . . . . 13 ⊢ 1o = suc ∅
48	46, 47	eqeq12i 2757	. . . . . . . . . . . 12 ⊢ (2o = 1o ↔ suc 1o = suc ∅)
49		suc11reg 9532	. . . . . . . . . . . 12 ⊢ (suc 1o = suc ∅ ↔ 1o = ∅)
50	45, 48, 49	3bitri 298	. . . . . . . . . . 11 ⊢ (1o = 2o ↔ 1o = ∅)
51	43, 50	nemtbir 3030	. . . . . . . . . 10 ⊢ ¬ 1o = 2o
52	44, 51	pm3.2ni 886	. . . . . . . . 9 ⊢ ¬ (1o = ∅ ∨ 1o = 2o)
53		elpri 4580	. . . . . . . . 9 ⊢ (1o ∈ {∅, 2o} → (1o = ∅ ∨ 1o = 2o))
54	52, 53	mto 198	. . . . . . . 8 ⊢ ¬ 1o ∈ {∅, 2o}
55	54	a1i 11	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ {∅, 2o})
56		eqeq1 2743	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → (𝑟 = {∅} ↔ {∅, 2o} = {∅}))
57		id 22	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → 𝑟 = {∅, 2o})
58	56, 57	ifbieq2d 4482	. . . . . . . . . 10 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}))
59	14	prid2 4696	. . . . . . . . . . . 12 ⊢ 2o ∈ {∅, 2o}
60		2on0 8410	. . . . . . . . . . . . 13 ⊢ 2o ≠ ∅
61		nelsn 4599	. . . . . . . . . . . . 13 ⊢ (2o ≠ ∅ → ¬ 2o ∈ {∅})
62	60, 61	ax-mp 5	. . . . . . . . . . . 12 ⊢ ¬ 2o ∈ {∅}
63		nelneq2 2864	. . . . . . . . . . . 12 ⊢ ((2o ∈ {∅, 2o} ∧ ¬ 2o ∈ {∅}) → ¬ {∅, 2o} = {∅})
64	59, 62, 63	mp2an 698	. . . . . . . . . . 11 ⊢ ¬ {∅, 2o} = {∅}
65	64	iffalsei 4465	. . . . . . . . . 10 ⊢ if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}) = {∅, 2o}
66	58, 65	eqtrdi 2790	. . . . . . . . 9 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 2o})
67		prex 5368	. . . . . . . . 9 ⊢ {∅, 2o} ∈ V
68	66, 38, 67	fvmpt 6936	. . . . . . . 8 ⊢ ({∅, 2o} ∈ 𝒫 3o → (𝐾‘{∅, 2o}) = {∅, 2o})
69	68	adantl 482	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅, 2o}) = {∅, 2o})
70	55, 69	neleqtrrd 2862	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ (𝐾‘{∅, 2o}))
71		nelss 3981	. . . . . 6 ⊢ ((1o ∈ (𝐾‘{∅}) ∧ ¬ 1o ∈ (𝐾‘{∅, 2o})) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
72	42, 70, 71	syl2anc 590	. . . . 5 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
73		snsspr1 4746	. . . . 5 ⊢ {∅} ⊆ {∅, 2o}
74	72, 73	jctil 524	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
75	29, 34, 74	rspcedvd 3562	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
76	21, 28, 75	rspcedvd 3562	. 2 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)))
77	6, 20, 76	mp2an 698	1 ⊢ ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡))

Syntax hints:  ¬ wn 3   ↔ wb 207   ∧ wa 396   ∨ wo 853   = wceq 1547  ⊤wtru 1548   ∈ wcel 2119   ≠ wne 2934  ∃wrex 3063  Vcvv 3431   ⊆ wss 3883  ∅c0 4262  ifcif 4455  𝒫 cpw 4530  {csn 4556  {cpr 4558  {ctp 4560   ↦ cmpt 5154  suc csuc 6313  ‘cfv 6486  1_oc1o 8389  2_oc2o 8390  3_oc3o 8391

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5219  ax-nul 5229  ax-pr 5363  ax-un 7679  ax-reg 9498

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-tp 4561  df-op 4563  df-uni 4840  df-br 5074  df-opab 5136  df-mpt 5155  df-id 5514  df-eprel 5519  df-fr 5572  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-suc 6317  df-iota 6442  df-fun 6488  df-fv 6494  df-1o 8396  df-2o 8397  df-3o 8398

This theorem is referenced by:  clsk1independent  44499