Theorem ismrcd1 39371

Description: Any function from the subsets of a set to itself, which is extensive (satisfies mrcssid 16883), isotone (satisfies mrcss 16882), and idempotent (satisfies mrcidm 16885) 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 39372 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 4198	. . . 4 ⊢ (𝐹 ∩ I ) ⊆ 𝐹
2		dmss 5764	. . . 4 ⊢ ((𝐹 ∩ I ) ⊆ 𝐹 → dom (𝐹 ∩ I ) ⊆ dom 𝐹)
3	1, 2	ax-mp 5	. . 3 ⊢ dom (𝐹 ∩ I ) ⊆ dom 𝐹
4		ismrcd.f	. . 3 ⊢ (𝜑 → 𝐹:𝒫 𝐵⟶𝒫 𝐵)
5	3, 4	fssdm 6523	. 2 ⊢ (𝜑 → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
6		ssid 3982	. . . . . . 7 ⊢ 𝐵 ⊆ 𝐵
7		ismrcd.b	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
8		elpwg 4535	. . . . . . . 8 ⊢ (𝐵 ∈ 𝑉 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
9	7, 8	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
10	6, 9	mpbiri 260	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ 𝒫 𝐵)
11	4, 10	ffvelrnd 6845	. . . . 5 ⊢ (𝜑 → (𝐹‘𝐵) ∈ 𝒫 𝐵)
12	11	elpwid 4543	. . . 4 ⊢ (𝜑 → (𝐹‘𝐵) ⊆ 𝐵)
13		velpw 4537	. . . . . . 7 ⊢ (𝑥 ∈ 𝒫 𝐵 ↔ 𝑥 ⊆ 𝐵)
14		ismrcd.e	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
15	13, 14	sylan2b 595	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝒫 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
16	15	ralrimiva 3181	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
17		id 22	. . . . . . 7 ⊢ (𝑥 = 𝐵 → 𝑥 = 𝐵)
18		fveq2 6663	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
19	17, 18	sseq12d 3993	. . . . . 6 ⊢ (𝑥 = 𝐵 → (𝑥 ⊆ (𝐹‘𝑥) ↔ 𝐵 ⊆ (𝐹‘𝐵)))
20	19	rspcva 3618	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → 𝐵 ⊆ (𝐹‘𝐵))
21	10, 16, 20	syl2anc 586	. . . 4 ⊢ (𝜑 → 𝐵 ⊆ (𝐹‘𝐵))
22	12, 21	eqssd 3977	. . 3 ⊢ (𝜑 → (𝐹‘𝐵) = 𝐵)
23	4	ffnd 6508	. . . 4 ⊢ (𝜑 → 𝐹 Fn 𝒫 𝐵)
24		fnelfp 6930	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝐵 ∈ 𝒫 𝐵) → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
25	23, 10, 24	syl2anc 586	. . 3 ⊢ (𝜑 → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
26	22, 25	mpbird 259	. 2 ⊢ (𝜑 → 𝐵 ∈ dom (𝐹 ∩ I ))
27		simp2 1132	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ dom (𝐹 ∩ I ))
28	5	3ad2ant1 1128	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
29	27, 28	sstrd 3970	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ 𝒫 𝐵)
30		simp3 1133	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ≠ ∅)
31		intssuni2 4894	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝒫 𝐵 ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
32	29, 30, 31	syl2anc 586	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
33		unipw 5336	. . . . . . . . . . 11 ⊢ ∪ 𝒫 𝐵 = 𝐵
34	32, 33	sseqtrdi 4010	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ 𝐵)
35		intex 5233	. . . . . . . . . . . 12 ⊢ (𝑧 ≠ ∅ ↔ ∩ 𝑧 ∈ V)
36		elpwg 4535	. . . . . . . . . . . 12 ⊢ (∩ 𝑧 ∈ V → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
37	35, 36	sylbi 219	. . . . . . . . . . 11 ⊢ (𝑧 ≠ ∅ → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
38	37	3ad2ant3 1130	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
39	34, 38	mpbird 259	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ 𝒫 𝐵)
40	39	adantr 483	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ∈ 𝒫 𝐵)
41		ismrcd.m	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥))
42	41	3expib 1117	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
43	42	alrimiv 1927	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
44	43	3ad2ant1 1128	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
45	44	adantr 483	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
46	29	sselda 3960	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ 𝒫 𝐵)
47	46	elpwid 4543	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ⊆ 𝐵)
48		intss1 4884	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑧 → ∩ 𝑧 ⊆ 𝑥)
49	48	adantl 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ⊆ 𝑥)
50	47, 49	jca 514	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥))
51		sseq1 3985	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝑦 ⊆ 𝑥 ↔ ∩ 𝑧 ⊆ 𝑥))
52	51	anbi2d 630	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) ↔ (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥)))
53		fveq2 6663	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝐹‘𝑦) = (𝐹‘∩ 𝑧))
54	53	sseq1d 3991	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝐹‘𝑦) ⊆ (𝐹‘𝑥) ↔ (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥)))
55	52, 54	imbi12d 347	. . . . . . . . 9 ⊢ (𝑦 = ∩ 𝑧 → (((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) ↔ ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
56	55	spcgv 3592	. . . . . . . 8 ⊢ (∩ 𝑧 ∈ 𝒫 𝐵 → (∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) → ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
57	40, 45, 50, 56	syl3c 66	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))
58	27	sselda 3960	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ dom (𝐹 ∩ I ))
59	23	3ad2ant1 1128	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝐹 Fn 𝒫 𝐵)
60	59	adantr 483	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝐹 Fn 𝒫 𝐵)
61		fnelfp 6930	. . . . . . . . 9 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝑥 ∈ 𝒫 𝐵) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
62	60, 46, 61	syl2anc 586	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
63	58, 62	mpbid 234	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘𝑥) = 𝑥)
64	57, 63	sseqtrd 4000	. . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ 𝑥)
65	64	ralrimiva 3181	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
66		ssint 4885	. . . . 5 ⊢ ((𝐹‘∩ 𝑧) ⊆ ∩ 𝑧 ↔ ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
67	65, 66	sylibr 236	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) ⊆ ∩ 𝑧)
68	16	3ad2ant1 1128	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
69		id 22	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → 𝑥 = ∩ 𝑧)
70		fveq2 6663	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → (𝐹‘𝑥) = (𝐹‘∩ 𝑧))
71	69, 70	sseq12d 3993	. . . . . 6 ⊢ (𝑥 = ∩ 𝑧 → (𝑥 ⊆ (𝐹‘𝑥) ↔ ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧)))
72	71	rspcva 3618	. . . . 5 ⊢ ((∩ 𝑧 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
73	39, 68, 72	syl2anc 586	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
74	67, 73	eqssd 3977	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) = ∩ 𝑧)
75		fnelfp 6930	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ ∩ 𝑧 ∈ 𝒫 𝐵) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
76	59, 39, 75	syl2anc 586	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
77	74, 76	mpbird 259	. 2 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ dom (𝐹 ∩ I ))
78	5, 26, 77	ismred 16868	1 ⊢ (𝜑 → dom (𝐹 ∩ I ) ∈ (Moore‘𝐵))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1082  ∀wal 1534   = wceq 1536   ∈ wcel 2113   ≠ wne 3015  ∀wral 3137  Vcvv 3491   ∩ cin 3928   ⊆ wss 3929  ∅c0 4284  𝒫 cpw 4532  ∪ cuni 4831  ∩ cint 4869   I cid 5452  dom cdm 5548   Fn wfn 6343  ⟶wf 6344  ‘cfv 6348  Moorecmre 16848

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 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2792  ax-sep 5196  ax-nul 5203  ax-pow 5259  ax-pr 5323

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1084  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2892  df-nfc 2962  df-ne 3016  df-ral 3142  df-rex 3143  df-rab 3146  df-v 3493  df-sbc 3769  df-dif 3932  df-un 3934  df-in 3936  df-ss 3945  df-nul 4285  df-if 4461  df-pw 4534  df-sn 4561  df-pr 4563  df-op 4567  df-uni 4832  df-int 4870  df-br 5060  df-opab 5122  df-mpt 5140  df-id 5453  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-fv 6356  df-mre 16852

This theorem is referenced by:  ismrcd2  39372  istopclsd  39373  ismrc  39374