Theorem ismrcd1 39639

Description: Any function from the subsets of a set to itself, which is extensive (satisfies mrcssid 16880), isotone (satisfies mrcss 16879), and idempotent (satisfies mrcidm 16882) 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 39640 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 4155	. . . 4 ⊢ (𝐹 ∩ I ) ⊆ 𝐹
2		dmss 5735	. . . 4 ⊢ ((𝐹 ∩ I ) ⊆ 𝐹 → dom (𝐹 ∩ I ) ⊆ dom 𝐹)
3	1, 2	ax-mp 5	. . 3 ⊢ dom (𝐹 ∩ I ) ⊆ dom 𝐹
4		ismrcd.f	. . 3 ⊢ (𝜑 → 𝐹:𝒫 𝐵⟶𝒫 𝐵)
5	3, 4	fssdm 6504	. 2 ⊢ (𝜑 → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
6		ssid 3937	. . . . . . 7 ⊢ 𝐵 ⊆ 𝐵
7		ismrcd.b	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
8		elpwg 4500	. . . . . . . 8 ⊢ (𝐵 ∈ 𝑉 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
9	7, 8	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐵 ∈ 𝒫 𝐵 ↔ 𝐵 ⊆ 𝐵))
10	6, 9	mpbiri 261	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ 𝒫 𝐵)
11	4, 10	ffvelrnd 6829	. . . . 5 ⊢ (𝜑 → (𝐹‘𝐵) ∈ 𝒫 𝐵)
12	11	elpwid 4508	. . . 4 ⊢ (𝜑 → (𝐹‘𝐵) ⊆ 𝐵)
13		velpw 4502	. . . . . . 7 ⊢ (𝑥 ∈ 𝒫 𝐵 ↔ 𝑥 ⊆ 𝐵)
14		ismrcd.e	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
15	13, 14	sylan2b 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝒫 𝐵) → 𝑥 ⊆ (𝐹‘𝑥))
16	15	ralrimiva 3149	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
17		id 22	. . . . . . 7 ⊢ (𝑥 = 𝐵 → 𝑥 = 𝐵)
18		fveq2 6645	. . . . . . 7 ⊢ (𝑥 = 𝐵 → (𝐹‘𝑥) = (𝐹‘𝐵))
19	17, 18	sseq12d 3948	. . . . . 6 ⊢ (𝑥 = 𝐵 → (𝑥 ⊆ (𝐹‘𝑥) ↔ 𝐵 ⊆ (𝐹‘𝐵)))
20	19	rspcva 3569	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → 𝐵 ⊆ (𝐹‘𝐵))
21	10, 16, 20	syl2anc 587	. . . 4 ⊢ (𝜑 → 𝐵 ⊆ (𝐹‘𝐵))
22	12, 21	eqssd 3932	. . 3 ⊢ (𝜑 → (𝐹‘𝐵) = 𝐵)
23	4	ffnd 6488	. . . 4 ⊢ (𝜑 → 𝐹 Fn 𝒫 𝐵)
24		fnelfp 6914	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝐵 ∈ 𝒫 𝐵) → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
25	23, 10, 24	syl2anc 587	. . 3 ⊢ (𝜑 → (𝐵 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝐵) = 𝐵))
26	22, 25	mpbird 260	. 2 ⊢ (𝜑 → 𝐵 ∈ dom (𝐹 ∩ I ))
27		simp2 1134	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ dom (𝐹 ∩ I ))
28	5	3ad2ant1 1130	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → dom (𝐹 ∩ I ) ⊆ 𝒫 𝐵)
29	27, 28	sstrd 3925	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ⊆ 𝒫 𝐵)
30		simp3 1135	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝑧 ≠ ∅)
31		intssuni2 4863	. . . . . . . . . . . 12 ⊢ ((𝑧 ⊆ 𝒫 𝐵 ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
32	29, 30, 31	syl2anc 587	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ ∪ 𝒫 𝐵)
33		unipw 5308	. . . . . . . . . . 11 ⊢ ∪ 𝒫 𝐵 = 𝐵
34	32, 33	sseqtrdi 3965	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ 𝐵)
35		intex 5204	. . . . . . . . . . . 12 ⊢ (𝑧 ≠ ∅ ↔ ∩ 𝑧 ∈ V)
36		elpwg 4500	. . . . . . . . . . . 12 ⊢ (∩ 𝑧 ∈ V → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
37	35, 36	sylbi 220	. . . . . . . . . . 11 ⊢ (𝑧 ≠ ∅ → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
38	37	3ad2ant3 1132	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ 𝒫 𝐵 ↔ ∩ 𝑧 ⊆ 𝐵))
39	34, 38	mpbird 260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ 𝒫 𝐵)
40	39	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ∈ 𝒫 𝐵)
41		ismrcd.m	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥))
42	41	3expib 1119	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
43	42	alrimiv 1928	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
44	43	3ad2ant1 1130	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
45	44	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)))
46	29	sselda 3915	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ 𝒫 𝐵)
47	46	elpwid 4508	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ⊆ 𝐵)
48		intss1 4853	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑧 → ∩ 𝑧 ⊆ 𝑥)
49	48	adantl 485	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → ∩ 𝑧 ⊆ 𝑥)
50	47, 49	jca 515	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥))
51		sseq1 3940	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝑦 ⊆ 𝑥 ↔ ∩ 𝑧 ⊆ 𝑥))
52	51	anbi2d 631	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) ↔ (𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥)))
53		fveq2 6645	. . . . . . . . . . 11 ⊢ (𝑦 = ∩ 𝑧 → (𝐹‘𝑦) = (𝐹‘∩ 𝑧))
54	53	sseq1d 3946	. . . . . . . . . 10 ⊢ (𝑦 = ∩ 𝑧 → ((𝐹‘𝑦) ⊆ (𝐹‘𝑥) ↔ (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥)))
55	52, 54	imbi12d 348	. . . . . . . . 9 ⊢ (𝑦 = ∩ 𝑧 → (((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) ↔ ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
56	55	spcgv 3543	. . . . . . . 8 ⊢ (∩ 𝑧 ∈ 𝒫 𝐵 → (∀𝑦((𝑥 ⊆ 𝐵 ∧ 𝑦 ⊆ 𝑥) → (𝐹‘𝑦) ⊆ (𝐹‘𝑥)) → ((𝑥 ⊆ 𝐵 ∧ ∩ 𝑧 ⊆ 𝑥) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))))
57	40, 45, 50, 56	syl3c 66	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ (𝐹‘𝑥))
58	27	sselda 3915	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝑥 ∈ dom (𝐹 ∩ I ))
59	23	3ad2ant1 1130	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → 𝐹 Fn 𝒫 𝐵)
60	59	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → 𝐹 Fn 𝒫 𝐵)
61		fnelfp 6914	. . . . . . . . 9 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ 𝑥 ∈ 𝒫 𝐵) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
62	60, 46, 61	syl2anc 587	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝑥 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘𝑥) = 𝑥))
63	58, 62	mpbid 235	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘𝑥) = 𝑥)
64	57, 63	sseqtrd 3955	. . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) ∧ 𝑥 ∈ 𝑧) → (𝐹‘∩ 𝑧) ⊆ 𝑥)
65	64	ralrimiva 3149	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
66		ssint 4854	. . . . 5 ⊢ ((𝐹‘∩ 𝑧) ⊆ ∩ 𝑧 ↔ ∀𝑥 ∈ 𝑧 (𝐹‘∩ 𝑧) ⊆ 𝑥)
67	65, 66	sylibr 237	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) ⊆ ∩ 𝑧)
68	16	3ad2ant1 1130	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥))
69		id 22	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → 𝑥 = ∩ 𝑧)
70		fveq2 6645	. . . . . . 7 ⊢ (𝑥 = ∩ 𝑧 → (𝐹‘𝑥) = (𝐹‘∩ 𝑧))
71	69, 70	sseq12d 3948	. . . . . 6 ⊢ (𝑥 = ∩ 𝑧 → (𝑥 ⊆ (𝐹‘𝑥) ↔ ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧)))
72	71	rspcva 3569	. . . . 5 ⊢ ((∩ 𝑧 ∈ 𝒫 𝐵 ∧ ∀𝑥 ∈ 𝒫 𝐵𝑥 ⊆ (𝐹‘𝑥)) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
73	39, 68, 72	syl2anc 587	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ⊆ (𝐹‘∩ 𝑧))
74	67, 73	eqssd 3932	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (𝐹‘∩ 𝑧) = ∩ 𝑧)
75		fnelfp 6914	. . . 4 ⊢ ((𝐹 Fn 𝒫 𝐵 ∧ ∩ 𝑧 ∈ 𝒫 𝐵) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
76	59, 39, 75	syl2anc 587	. . 3 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → (∩ 𝑧 ∈ dom (𝐹 ∩ I ) ↔ (𝐹‘∩ 𝑧) = ∩ 𝑧))
77	74, 76	mpbird 260	. 2 ⊢ ((𝜑 ∧ 𝑧 ⊆ dom (𝐹 ∩ I ) ∧ 𝑧 ≠ ∅) → ∩ 𝑧 ∈ dom (𝐹 ∩ I ))
78	5, 26, 77	ismred 16865	1 ⊢ (𝜑 → dom (𝐹 ∩ I ) ∈ (Moore‘𝐵))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084  ∀wal 1536   = wceq 1538   ∈ wcel 2111   ≠ wne 2987  ∀wral 3106  Vcvv 3441   ∩ cin 3880   ⊆ wss 3881  ∅c0 4243  𝒫 cpw 4497  ∪ cuni 4800  ∩ cint 4838   I cid 5424  dom cdm 5519   Fn wfn 6319  ⟶wf 6320  ‘cfv 6324  Moorecmre 16845

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-rab 3115  df-v 3443  df-sbc 3721  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-int 4839  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-fv 6332  df-mre 16849

This theorem is referenced by:  ismrcd2  39640  istopclsd  39641  ismrc  39642