Theorem clsk1indlem1 42782

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 7731	. . . 4 ⊢ {∅, 1o, 2o} ∈ V
2		snsstp1 4819	. . . 4 ⊢ {∅} ⊆ {∅, 1o, 2o}
3	1, 2	elpwi2 5346	. . 3 ⊢ {∅} ∈ 𝒫 {∅, 1o, 2o}
4		df3o2 42049	. . . 4 ⊢ 3o = {∅, 1o, 2o}
5	4	pweqi 4618	. . 3 ⊢ 𝒫 3o = 𝒫 {∅, 1o, 2o}
6	3, 5	eleqtrri 2833	. 2 ⊢ {∅} ∈ 𝒫 3o
7	1	a1i 11	. . . . 5 ⊢ (⊤ → {∅, 1o, 2o} ∈ V)
8	2	a1i 11	. . . . . . 7 ⊢ (⊤ → {∅} ⊆ {∅, 1o, 2o})
9		0ex 5307	. . . . . . . 8 ⊢ ∅ ∈ V
10	9	snss 4789	. . . . . . 7 ⊢ (∅ ∈ {∅, 1o, 2o} ↔ {∅} ⊆ {∅, 1o, 2o})
11	8, 10	sylibr 233	. . . . . 6 ⊢ (⊤ → ∅ ∈ {∅, 1o, 2o})
12		snsstp3 4821	. . . . . . . 8 ⊢ {2o} ⊆ {∅, 1o, 2o}
13	12	a1i 11	. . . . . . 7 ⊢ (⊤ → {2o} ⊆ {∅, 1o, 2o})
14		2oex 8474	. . . . . . . 8 ⊢ 2o ∈ V
15	14	snss 4789	. . . . . . 7 ⊢ (2o ∈ {∅, 1o, 2o} ↔ {2o} ⊆ {∅, 1o, 2o})
16	13, 15	sylibr 233	. . . . . 6 ⊢ (⊤ → 2o ∈ {∅, 1o, 2o})
17	11, 16	prssd 4825	. . . . 5 ⊢ (⊤ → {∅, 2o} ⊆ {∅, 1o, 2o})
18	7, 17	sselpwd 5326	. . . 4 ⊢ (⊤ → {∅, 2o} ∈ 𝒫 {∅, 1o, 2o})
19	18	mptru 1549	. . 3 ⊢ {∅, 2o} ∈ 𝒫 {∅, 1o, 2o}
20	19, 5	eleqtrri 2833	. 2 ⊢ {∅, 2o} ∈ 𝒫 3o
21		simpl 484	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅} ∈ 𝒫 3o)
22		sseq1 4007	. . . . . 6 ⊢ (𝑠 = {∅} → (𝑠 ⊆ 𝑡 ↔ {∅} ⊆ 𝑡))
23		fveq2 6889	. . . . . . . 8 ⊢ (𝑠 = {∅} → (𝐾‘𝑠) = (𝐾‘{∅}))
24	23	sseq1d 4013	. . . . . . 7 ⊢ (𝑠 = {∅} → ((𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
25	24	notbid 318	. . . . . 6 ⊢ (𝑠 = {∅} → (¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
26	22, 25	anbi12d 632	. . . . 5 ⊢ (𝑠 = {∅} → ((𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
27	26	rexbidv 3179	. . . 4 ⊢ (𝑠 = {∅} → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
28	27	adantl 483	. . 3 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑠 = {∅}) → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
29		simpr 486	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅, 2o} ∈ 𝒫 3o)
30		fveq2 6889	. . . . . . . 8 ⊢ (𝑡 = {∅, 2o} → (𝐾‘𝑡) = (𝐾‘{∅, 2o}))
31	30	sseq2d 4014	. . . . . . 7 ⊢ (𝑡 = {∅, 2o} → ((𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
32	31	notbid 318	. . . . . 6 ⊢ (𝑡 = {∅, 2o} → (¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
33	32	cleq2lem 42345	. . . . 5 ⊢ (𝑡 = {∅, 2o} → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
34	33	adantl 483	. . . 4 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑡 = {∅, 2o}) → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
35		1oex 8473	. . . . . . . 8 ⊢ 1o ∈ V
36	35	prid2 4767	. . . . . . 7 ⊢ 1o ∈ {∅, 1o}
37		iftrue 4534	. . . . . . . . 9 ⊢ (𝑟 = {∅} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 1o})
38		clsk1indlem.k	. . . . . . . . 9 ⊢ 𝐾 = (𝑟 ∈ 𝒫 3o ↦ if(𝑟 = {∅}, {∅, 1o}, 𝑟))
39		prex 5432	. . . . . . . . 9 ⊢ {∅, 1o} ∈ V
40	37, 38, 39	fvmpt 6996	. . . . . . . 8 ⊢ ({∅} ∈ 𝒫 3o → (𝐾‘{∅}) = {∅, 1o})
41	40	adantr 482	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅}) = {∅, 1o})
42	36, 41	eleqtrrid 2841	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → 1o ∈ (𝐾‘{∅}))
43		1n0 8485	. . . . . . . . . . 11 ⊢ 1o ≠ ∅
44	43	neii 2943	. . . . . . . . . 10 ⊢ ¬ 1o = ∅
45		eqcom 2740	. . . . . . . . . . . 12 ⊢ (1o = 2o ↔ 2o = 1o)
46		df-2o 8464	. . . . . . . . . . . . 13 ⊢ 2o = suc 1o
47		df-1o 8463	. . . . . . . . . . . . 13 ⊢ 1o = suc ∅
48	46, 47	eqeq12i 2751	. . . . . . . . . . . 12 ⊢ (2o = 1o ↔ suc 1o = suc ∅)
49		suc11reg 9611	. . . . . . . . . . . 12 ⊢ (suc 1o = suc ∅ ↔ 1o = ∅)
50	45, 48, 49	3bitri 297	. . . . . . . . . . 11 ⊢ (1o = 2o ↔ 1o = ∅)
51	43, 50	nemtbir 3039	. . . . . . . . . 10 ⊢ ¬ 1o = 2o
52	44, 51	pm3.2ni 880	. . . . . . . . 9 ⊢ ¬ (1o = ∅ ∨ 1o = 2o)
53		elpri 4650	. . . . . . . . 9 ⊢ (1o ∈ {∅, 2o} → (1o = ∅ ∨ 1o = 2o))
54	52, 53	mto 196	. . . . . . . 8 ⊢ ¬ 1o ∈ {∅, 2o}
55	54	a1i 11	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ {∅, 2o})
56		eqeq1 2737	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → (𝑟 = {∅} ↔ {∅, 2o} = {∅}))
57		id 22	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → 𝑟 = {∅, 2o})
58	56, 57	ifbieq2d 4554	. . . . . . . . . 10 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}))
59	14	prid2 4767	. . . . . . . . . . . 12 ⊢ 2o ∈ {∅, 2o}
60		2on0 8479	. . . . . . . . . . . . 13 ⊢ 2o ≠ ∅
61		nelsn 4668	. . . . . . . . . . . . 13 ⊢ (2o ≠ ∅ → ¬ 2o ∈ {∅})
62	60, 61	ax-mp 5	. . . . . . . . . . . 12 ⊢ ¬ 2o ∈ {∅}
63		nelneq2 2859	. . . . . . . . . . . 12 ⊢ ((2o ∈ {∅, 2o} ∧ ¬ 2o ∈ {∅}) → ¬ {∅, 2o} = {∅})
64	59, 62, 63	mp2an 691	. . . . . . . . . . 11 ⊢ ¬ {∅, 2o} = {∅}
65	64	iffalsei 4538	. . . . . . . . . 10 ⊢ if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}) = {∅, 2o}
66	58, 65	eqtrdi 2789	. . . . . . . . 9 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 2o})
67		prex 5432	. . . . . . . . 9 ⊢ {∅, 2o} ∈ V
68	66, 38, 67	fvmpt 6996	. . . . . . . 8 ⊢ ({∅, 2o} ∈ 𝒫 3o → (𝐾‘{∅, 2o}) = {∅, 2o})
69	68	adantl 483	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅, 2o}) = {∅, 2o})
70	55, 69	neleqtrrd 2857	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ (𝐾‘{∅, 2o}))
71		nelss 4047	. . . . . 6 ⊢ ((1o ∈ (𝐾‘{∅}) ∧ ¬ 1o ∈ (𝐾‘{∅, 2o})) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
72	42, 70, 71	syl2anc 585	. . . . 5 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
73		snsspr1 4817	. . . . 5 ⊢ {∅} ⊆ {∅, 2o}
74	72, 73	jctil 521	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
75	29, 34, 74	rspcedvd 3615	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
76	21, 28, 75	rspcedvd 3615	. 2 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)))
77	6, 20, 76	mp2an 691	1 ⊢ ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡))

Syntax hints:  ¬ wn 3   ↔ wb 205   ∧ wa 397   ∨ wo 846   = wceq 1542  ⊤wtru 1543   ∈ wcel 2107   ≠ wne 2941  ∃wrex 3071  Vcvv 3475   ⊆ wss 3948  ∅c0 4322  ifcif 4528  𝒫 cpw 4602  {csn 4628  {cpr 4630  {ctp 4632   ↦ cmpt 5231  suc csuc 6364  ‘cfv 6541  1_oc1o 8456  2_oc2o 8457  3_oc3o 8458

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5299  ax-nul 5306  ax-pr 5427  ax-un 7722  ax-reg 9584

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3434  df-v 3477  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-eprel 5580  df-fr 5631  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-suc 6368  df-iota 6493  df-fun 6543  df-fv 6549  df-1o 8463  df-2o 8464  df-3o 8465

This theorem is referenced by:  clsk1independent  42783