Theorem clsk1indlem1 44034

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 7722	. . . 4 ⊢ {∅, 1o, 2o} ∈ V
2		snsstp1 4780	. . . 4 ⊢ {∅} ⊆ {∅, 1o, 2o}
3	1, 2	elpwi2 5290	. . 3 ⊢ {∅} ∈ 𝒫 {∅, 1o, 2o}
4		df3o2 43302	. . . 4 ⊢ 3o = {∅, 1o, 2o}
5	4	pweqi 4579	. . 3 ⊢ 𝒫 3o = 𝒫 {∅, 1o, 2o}
6	3, 5	eleqtrri 2827	. 2 ⊢ {∅} ∈ 𝒫 3o
7	1	a1i 11	. . . . 5 ⊢ (⊤ → {∅, 1o, 2o} ∈ V)
8	2	a1i 11	. . . . . . 7 ⊢ (⊤ → {∅} ⊆ {∅, 1o, 2o})
9		0ex 5262	. . . . . . . 8 ⊢ ∅ ∈ V
10	9	snss 4749	. . . . . . 7 ⊢ (∅ ∈ {∅, 1o, 2o} ↔ {∅} ⊆ {∅, 1o, 2o})
11	8, 10	sylibr 234	. . . . . 6 ⊢ (⊤ → ∅ ∈ {∅, 1o, 2o})
12		snsstp3 4782	. . . . . . . 8 ⊢ {2o} ⊆ {∅, 1o, 2o}
13	12	a1i 11	. . . . . . 7 ⊢ (⊤ → {2o} ⊆ {∅, 1o, 2o})
14		2oex 8445	. . . . . . . 8 ⊢ 2o ∈ V
15	14	snss 4749	. . . . . . 7 ⊢ (2o ∈ {∅, 1o, 2o} ↔ {2o} ⊆ {∅, 1o, 2o})
16	13, 15	sylibr 234	. . . . . 6 ⊢ (⊤ → 2o ∈ {∅, 1o, 2o})
17	11, 16	prssd 4786	. . . . 5 ⊢ (⊤ → {∅, 2o} ⊆ {∅, 1o, 2o})
18	7, 17	sselpwd 5283	. . . 4 ⊢ (⊤ → {∅, 2o} ∈ 𝒫 {∅, 1o, 2o})
19	18	mptru 1547	. . 3 ⊢ {∅, 2o} ∈ 𝒫 {∅, 1o, 2o}
20	19, 5	eleqtrri 2827	. 2 ⊢ {∅, 2o} ∈ 𝒫 3o
21		simpl 482	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅} ∈ 𝒫 3o)
22		sseq1 3972	. . . . . 6 ⊢ (𝑠 = {∅} → (𝑠 ⊆ 𝑡 ↔ {∅} ⊆ 𝑡))
23		fveq2 6858	. . . . . . . 8 ⊢ (𝑠 = {∅} → (𝐾‘𝑠) = (𝐾‘{∅}))
24	23	sseq1d 3978	. . . . . . 7 ⊢ (𝑠 = {∅} → ((𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
25	24	notbid 318	. . . . . 6 ⊢ (𝑠 = {∅} → (¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
26	22, 25	anbi12d 632	. . . . 5 ⊢ (𝑠 = {∅} → ((𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
27	26	rexbidv 3157	. . . 4 ⊢ (𝑠 = {∅} → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
28	27	adantl 481	. . 3 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑠 = {∅}) → (∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)) ↔ ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡))))
29		simpr 484	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → {∅, 2o} ∈ 𝒫 3o)
30		fveq2 6858	. . . . . . . 8 ⊢ (𝑡 = {∅, 2o} → (𝐾‘𝑡) = (𝐾‘{∅, 2o}))
31	30	sseq2d 3979	. . . . . . 7 ⊢ (𝑡 = {∅, 2o} → ((𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
32	31	notbid 318	. . . . . 6 ⊢ (𝑡 = {∅, 2o} → (¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡) ↔ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
33	32	cleq2lem 43597	. . . . 5 ⊢ (𝑡 = {∅, 2o} → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
34	33	adantl 481	. . . 4 ⊢ ((({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) ∧ 𝑡 = {∅, 2o}) → (({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)) ↔ ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))))
35		1oex 8444	. . . . . . . 8 ⊢ 1o ∈ V
36	35	prid2 4727	. . . . . . 7 ⊢ 1o ∈ {∅, 1o}
37		iftrue 4494	. . . . . . . . 9 ⊢ (𝑟 = {∅} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 1o})
38		clsk1indlem.k	. . . . . . . . 9 ⊢ 𝐾 = (𝑟 ∈ 𝒫 3o ↦ if(𝑟 = {∅}, {∅, 1o}, 𝑟))
39		prex 5392	. . . . . . . . 9 ⊢ {∅, 1o} ∈ V
40	37, 38, 39	fvmpt 6968	. . . . . . . 8 ⊢ ({∅} ∈ 𝒫 3o → (𝐾‘{∅}) = {∅, 1o})
41	40	adantr 480	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅}) = {∅, 1o})
42	36, 41	eleqtrrid 2835	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → 1o ∈ (𝐾‘{∅}))
43		1n0 8452	. . . . . . . . . . 11 ⊢ 1o ≠ ∅
44	43	neii 2927	. . . . . . . . . 10 ⊢ ¬ 1o = ∅
45		eqcom 2736	. . . . . . . . . . . 12 ⊢ (1o = 2o ↔ 2o = 1o)
46		df-2o 8435	. . . . . . . . . . . . 13 ⊢ 2o = suc 1o
47		df-1o 8434	. . . . . . . . . . . . 13 ⊢ 1o = suc ∅
48	46, 47	eqeq12i 2747	. . . . . . . . . . . 12 ⊢ (2o = 1o ↔ suc 1o = suc ∅)
49		suc11reg 9572	. . . . . . . . . . . 12 ⊢ (suc 1o = suc ∅ ↔ 1o = ∅)
50	45, 48, 49	3bitri 297	. . . . . . . . . . 11 ⊢ (1o = 2o ↔ 1o = ∅)
51	43, 50	nemtbir 3021	. . . . . . . . . 10 ⊢ ¬ 1o = 2o
52	44, 51	pm3.2ni 880	. . . . . . . . 9 ⊢ ¬ (1o = ∅ ∨ 1o = 2o)
53		elpri 4613	. . . . . . . . 9 ⊢ (1o ∈ {∅, 2o} → (1o = ∅ ∨ 1o = 2o))
54	52, 53	mto 197	. . . . . . . 8 ⊢ ¬ 1o ∈ {∅, 2o}
55	54	a1i 11	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ {∅, 2o})
56		eqeq1 2733	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → (𝑟 = {∅} ↔ {∅, 2o} = {∅}))
57		id 22	. . . . . . . . . . 11 ⊢ (𝑟 = {∅, 2o} → 𝑟 = {∅, 2o})
58	56, 57	ifbieq2d 4515	. . . . . . . . . 10 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}))
59	14	prid2 4727	. . . . . . . . . . . 12 ⊢ 2o ∈ {∅, 2o}
60		2on0 8448	. . . . . . . . . . . . 13 ⊢ 2o ≠ ∅
61		nelsn 4630	. . . . . . . . . . . . 13 ⊢ (2o ≠ ∅ → ¬ 2o ∈ {∅})
62	60, 61	ax-mp 5	. . . . . . . . . . . 12 ⊢ ¬ 2o ∈ {∅}
63		nelneq2 2853	. . . . . . . . . . . 12 ⊢ ((2o ∈ {∅, 2o} ∧ ¬ 2o ∈ {∅}) → ¬ {∅, 2o} = {∅})
64	59, 62, 63	mp2an 692	. . . . . . . . . . 11 ⊢ ¬ {∅, 2o} = {∅}
65	64	iffalsei 4498	. . . . . . . . . 10 ⊢ if({∅, 2o} = {∅}, {∅, 1o}, {∅, 2o}) = {∅, 2o}
66	58, 65	eqtrdi 2780	. . . . . . . . 9 ⊢ (𝑟 = {∅, 2o} → if(𝑟 = {∅}, {∅, 1o}, 𝑟) = {∅, 2o})
67		prex 5392	. . . . . . . . 9 ⊢ {∅, 2o} ∈ V
68	66, 38, 67	fvmpt 6968	. . . . . . . 8 ⊢ ({∅, 2o} ∈ 𝒫 3o → (𝐾‘{∅, 2o}) = {∅, 2o})
69	68	adantl 481	. . . . . . 7 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → (𝐾‘{∅, 2o}) = {∅, 2o})
70	55, 69	neleqtrrd 2851	. . . . . 6 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ 1o ∈ (𝐾‘{∅, 2o}))
71		nelss 4012	. . . . . 6 ⊢ ((1o ∈ (𝐾‘{∅}) ∧ ¬ 1o ∈ (𝐾‘{∅, 2o})) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
72	42, 70, 71	syl2anc 584	. . . . 5 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o}))
73		snsspr1 4778	. . . . 5 ⊢ {∅} ⊆ {∅, 2o}
74	72, 73	jctil 519	. . . 4 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ({∅} ⊆ {∅, 2o} ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘{∅, 2o})))
75	29, 34, 74	rspcedvd 3590	. . 3 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑡 ∈ 𝒫 3o({∅} ⊆ 𝑡 ∧ ¬ (𝐾‘{∅}) ⊆ (𝐾‘𝑡)))
76	21, 28, 75	rspcedvd 3590	. 2 ⊢ (({∅} ∈ 𝒫 3o ∧ {∅, 2o} ∈ 𝒫 3o) → ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡)))
77	6, 20, 76	mp2an 692	1 ⊢ ∃𝑠 ∈ 𝒫 3o∃𝑡 ∈ 𝒫 3o(𝑠 ⊆ 𝑡 ∧ ¬ (𝐾‘𝑠) ⊆ (𝐾‘𝑡))

Syntax hints:  ¬ wn 3   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1540  ⊤wtru 1541   ∈ wcel 2109   ≠ wne 2925  ∃wrex 3053  Vcvv 3447   ⊆ wss 3914  ∅c0 4296  ifcif 4488  𝒫 cpw 4563  {csn 4589  {cpr 4591  {ctp 4593   ↦ cmpt 5188  suc csuc 6334  ‘cfv 6511  1_oc1o 8427  2_oc2o 8428  3_oc3o 8429

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5251  ax-nul 5261  ax-pr 5387  ax-un 7711  ax-reg 9545

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3406  df-v 3449  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4872  df-br 5108  df-opab 5170  df-mpt 5189  df-id 5533  df-eprel 5538  df-fr 5591  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-suc 6338  df-iota 6464  df-fun 6513  df-fv 6519  df-1o 8434  df-2o 8435  df-3o 8436

This theorem is referenced by:  clsk1independent  44035