Theorem ismrcd1 42686

Description: Any function from the subsets of a set to itself, which is extensive (satisfies mrcssid 17662), isotone (satisfies mrcss 17661), and idempotent (satisfies mrcidm 17664) has a collection of fixed points which is a Moore collection, and itself is the closure operator for that collection. This can be taken as an alternate definition for the closure operators. This is the first half, ismrcd2 42687 is the second. (Contributed by Stefan O'Rear, 1-Feb-2015.)

Hypotheses

Ref	Expression
ismrcd.b	⊢ (𝜑 → 𝐵 ∈ 𝑉)
ismrcd.f	⊢ (𝜑 → 𝐹:𝒫 𝐵⟶𝒫 𝐵)
ismrcd.e	⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
ismrcd.m	⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥))
ismrcd.i	⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵) → (𝐹‘(𝐹‘𝑥)) = (𝐹‘𝑥))

Assertion

Ref	Expression
ismrcd1	⊢ (𝜑 → dom (𝐹 ∩ I ) ∈ (Moore‘𝐵))

Distinct variable groups:   𝜑,𝑥,𝑦   𝑥,𝐵,𝑦   𝑥,𝐹,𝑦   𝑥,𝑉,𝑦

Proof of Theorem ismrcd1

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		inss1 4245	. . . 4 ⊢ (𝐹 ∩ I ) ⊆ 𝐹
2		dmss 5916	. . . 4 ⊢ ((𝐹 ∩ I ) ⊆ 𝐹 → dom (𝐹 ∩ I ) ⊆ dom 𝐹)
3	1, 2	ax-mp 5	. . 3 ⊢ dom (𝐹 ∩ I ) ⊆ dom 𝐹
4		ismrcd.f	. . 3 ⊢ (𝜑 → 𝐹:𝒫 𝐵⟶𝒫 𝐵)
5	3, 4	fssdm 6756	. 2 ⊢ (𝜑 → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
6		ssid 4018	. . . . . . 7 ⊢ 𝐵 ⊆ 𝐵
7		ismrcd.b	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
8		elpwg 4608	. . . . . . . 8 ⊢ (𝐵 ∈ 𝑉 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
9	7, 8	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
10	6, 9	mpbiri 258	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ 𝒫 𝐵)
11	4, 10	ffvelcdmd 7105	. . . . 5 ⊢ (𝜑 → (𝐹‘𝐵) ∈ 𝒫 𝐵)
12	11	elpwid 4614	. . . 4 ⊢ (𝜑 → (𝐹‘𝐵) ⊆ 𝐵)
13		velpw 4610	. . . . . . 7 ⊢ (𝑥 ∈ 𝒫 𝐵 ↔ 𝑥 ⊆ 𝐵)
14		ismrcd.e	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
15	13, 14	sylan2b 594	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝒫 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
16	15	ralrimiva 3144	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
17		id 22	. . . . . . 7 ⊢ (𝑥 = 𝐵 → 𝑥 = 𝐵)
18		fveq2 6907	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
19	17, 18	sseq12d 4029	. . . . . 6 ⊢ (𝑥 = 𝐵 → (𝑥 ⊆ (𝐹‘𝑥) ↔ 𝐵 ⊆ (𝐹‘𝐵)))
20	19	rspcva 3620	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → 𝐵 ⊆ (𝐹‘𝐵))
21	10, 16, 20	syl2anc 584	. . . 4 ⊢ (𝜑 → 𝐵 ⊆ (𝐹‘𝐵))
22	12, 21	eqssd 4013	. . 3 ⊢ (𝜑 → (𝐹‘𝐵) = 𝐵)
23	4	ffnd 6738	. . . 4 ⊢ (𝜑 → 𝐹 Fn 𝒫 𝐵)
24		fnelfp 7195	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝐵 ∈ 𝒫 𝐵) → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
25	23, 10, 24	syl2anc 584	. . 3 ⊢ (𝜑 → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
26	22, 25	mpbird 257	. 2 ⊢ (𝜑 → 𝐵 ∈ dom (𝐹 ∩ I ))
27		simp2 1136	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ dom (𝐹 ∩ I ))
28	5	3ad2ant1 1132	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
29	27, 28	sstrd 4006	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ 𝒫 𝐵)
30		simp3 1137	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ≠ ∅)
31		intssuni2 4978	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝒫 𝐵 ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
32	29, 30, 31	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
33		unipw 5461	. . . . . . . . . . 11 ⊢ ∪ 𝒫 𝐵 = 𝐵
34	32, 33	sseqtrdi 4046	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ 𝐵)
35		intex 5350	. . . . . . . . . . . 12 ⊢ (𝑧 ≠ ∅ ↔ ∩ 𝑧 ∈ V)
36		elpwg 4608	. . . . . . . . . . . 12 ⊢ (∩ 𝑧 ∈ V → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
37	35, 36	sylbi 217	. . . . . . . . . . 11 ⊢ (𝑧 ≠ ∅ → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
38	37	3ad2ant3 1134	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
39	34, 38	mpbird 257	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ 𝒫 𝐵)
40	39	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ∈ 𝒫 𝐵)
41		ismrcd.m	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥))
42	41	3expib 1121	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
43	42	alrimiv 1925	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
44	43	3ad2ant1 1132	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
45	44	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
46	29	sselda 3995	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ 𝒫 𝐵)
47	46	elpwid 4614	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ⊆ 𝐵)
48		intss1 4968	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑧 → ∩ 𝑧 ⊆ 𝑥)
49	48	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ⊆ 𝑥)
50	47, 49	jca 511	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥))
51		sseq1 4021	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝑦 ⊆ 𝑥 ↔ ∩ 𝑧 ⊆ 𝑥))
52	51	anbi2d 630	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) ↔ (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥)))
53		fveq2 6907	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝐹‘𝑦) = (𝐹‘∩ 𝑧))
54	53	sseq1d 4027	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝐹‘𝑦) ⊆ (𝐹‘𝑥) ↔ (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥)))
55	52, 54	imbi12d 344	. . . . . . . . 9 ⊢ (𝑦 = ∩ 𝑧 → (((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) ↔ ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
56	55	spcgv 3596	. . . . . . . 8 ⊢ (∩ 𝑧 ∈ 𝒫 𝐵 → (∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) → ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
57	40, 45, 50, 56	syl3c 66	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))
58	27	sselda 3995	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ dom (𝐹 ∩ I ))
59	23	3ad2ant1 1132	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝐹 Fn 𝒫 𝐵)
60	59	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝐹 Fn 𝒫 𝐵)
61		fnelfp 7195	. . . . . . . . 9 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝑥 ∈ 𝒫 𝐵) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
62	60, 46, 61	syl2anc 584	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
63	58, 62	mpbid 232	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘𝑥) = 𝑥)
64	57, 63	sseqtrd 4036	. . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ 𝑥)
65	64	ralrimiva 3144	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
66		ssint 4969	. . . . 5 ⊢ ((𝐹‘∩ 𝑧) ⊆ ∩ 𝑧 ↔ ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
67	65, 66	sylibr 234	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) ⊆ ∩ 𝑧)
68	16	3ad2ant1 1132	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
69		id 22	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → 𝑥 = ∩ 𝑧)
70		fveq2 6907	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → (𝐹‘𝑥) = (𝐹‘∩ 𝑧))
71	69, 70	sseq12d 4029	. . . . . 6 ⊢ (𝑥 = ∩ 𝑧 → (𝑥 ⊆ (𝐹‘𝑥) ↔ ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧)))
72	71	rspcva 3620	. . . . 5 ⊢ ((∩ 𝑧 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
73	39, 68, 72	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
74	67, 73	eqssd 4013	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) = ∩ 𝑧)
75		fnelfp 7195	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ ∩ 𝑧 ∈ 𝒫 𝐵) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
76	59, 39, 75	syl2anc 584	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
77	74, 76	mpbird 257	. 2 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ dom (𝐹 ∩ I ))
78	5, 26, 77	ismred 17647	1 ⊢ (𝜑 → dom (𝐹 ∩ I ) ∈ (Moore‘𝐵))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086  ∀wal 1535   = wceq 1537   ∈ wcel 2106   ≠ wne 2938  ∀wral 3059  Vcvv 3478   ∩ cin 3962   ⊆ wss 3963  ∅c0 4339  𝒫 cpw 4605  ∪ cuni 4912  ∩ cint 4951   I cid 5582  dom cdm 5689   Fn wfn 6558  ⟶wf 6559  ‘cfv 6563  Moorecmre 17627

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-int 4952  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-fv 6571  df-mre 17631

This theorem is referenced by:  ismrcd2  42687  istopclsd  42688  ismrc  42689