Theorem prsal 45333

Description: The pair of the empty set and the whole base is a sigma-algebra. (Contributed by Glauco Siliprandi, 17-Aug-2020.)

Assertion

Ref	Expression
prsal	⊢ (𝑋 ∈ 𝑉 → {∅, 𝑋} ∈ SAlg)

Proof of Theorem prsal

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		0ex 5307	. . . 4 ⊢ ∅ ∈ V
2	1	prid1 4766	. . 3 ⊢ ∅ ∈ {∅, 𝑋}
3	2	a1i 11	. 2 ⊢ (𝑋 ∈ 𝑉 → ∅ ∈ {∅, 𝑋})
4		uniprg 4925	. . . . . . . 8 ⊢ ((∅ ∈ V ∧ 𝑋 ∈ 𝑉) → ∪ {∅, 𝑋} = (∅ ∪ 𝑋))
5	1, 4	mpan 688	. . . . . . 7 ⊢ (𝑋 ∈ 𝑉 → ∪ {∅, 𝑋} = (∅ ∪ 𝑋))
6		0un 4392	. . . . . . 7 ⊢ (∅ ∪ 𝑋) = 𝑋
7	5, 6	eqtrdi 2788	. . . . . 6 ⊢ (𝑋 ∈ 𝑉 → ∪ {∅, 𝑋} = 𝑋)
8	7	difeq1d 4121	. . . . 5 ⊢ (𝑋 ∈ 𝑉 → (∪ {∅, 𝑋} ∖ 𝑦) = (𝑋 ∖ 𝑦))
9	8	adantr 481	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (∪ {∅, 𝑋} ∖ 𝑦) = (𝑋 ∖ 𝑦))
10		difeq2 4116	. . . . . . . . 9 ⊢ (𝑦 = ∅ → (𝑋 ∖ 𝑦) = (𝑋 ∖ ∅))
11	10	adantl 482	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) = (𝑋 ∖ ∅))
12		dif0 4372	. . . . . . . 8 ⊢ (𝑋 ∖ ∅) = 𝑋
13	11, 12	eqtrdi 2788	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) = 𝑋)
14		prid2g 4765	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ {∅, 𝑋})
15	14	adantr 481	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → 𝑋 ∈ {∅, 𝑋})
16	13, 15	eqeltrd 2833	. . . . . 6 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
17	16	adantlr 713	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
18		neqne 2948	. . . . . . . 8 ⊢ (¬ 𝑦 = ∅ → 𝑦 ≠ ∅)
19		elprn1 44648	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, 𝑋} ∧ 𝑦 ≠ ∅) → 𝑦 = 𝑋)
20	18, 19	sylan2 593	. . . . . . 7 ⊢ ((𝑦 ∈ {∅, 𝑋} ∧ ¬ 𝑦 = ∅) → 𝑦 = 𝑋)
21	20	adantll 712	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ ¬ 𝑦 = ∅) → 𝑦 = 𝑋)
22		difeq2 4116	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) = (𝑋 ∖ 𝑋))
23		difid 4370	. . . . . . . 8 ⊢ (𝑋 ∖ 𝑋) = ∅
24	22, 23	eqtrdi 2788	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) = ∅)
25	2	a1i 11	. . . . . . 7 ⊢ (𝑦 = 𝑋 → ∅ ∈ {∅, 𝑋})
26	24, 25	eqeltrd 2833	. . . . . 6 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
27	21, 26	syl 17	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ ¬ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
28	17, 27	pm2.61dan 811	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
29	9, 28	eqeltrd 2833	. . 3 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋})
30	29	ralrimiva 3146	. 2 ⊢ (𝑋 ∈ 𝑉 → ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋})
31		elpwi 4609	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ⊆ {∅, 𝑋})
32	31	unissd 4918	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → ∪ 𝑦 ⊆ ∪ {∅, 𝑋})
33	32	adantl 482	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ⊆ ∪ {∅, 𝑋})
34	7	adantr 481	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ {∅, 𝑋} = 𝑋)
35	33, 34	sseqtrd 4022	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ⊆ 𝑋)
36	35	adantr 481	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 ⊆ 𝑋)
37		elssuni 4941	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑦 → 𝑋 ⊆ ∪ 𝑦)
38	37	adantl 482	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → 𝑋 ⊆ ∪ 𝑦)
39	36, 38	eqssd 3999	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 = 𝑋)
40	14	ad2antrr 724	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → 𝑋 ∈ {∅, 𝑋})
41	39, 40	eqeltrd 2833	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 ∈ {∅, 𝑋})
42		id 22	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ∈ 𝒫 {∅, 𝑋})
43		pwpr 4902	. . . . . . . . . . 11 ⊢ 𝒫 {∅, 𝑋} = ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}})
44	42, 43	eleqtrdi 2843	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
45	44	adantr 481	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝒫 {∅, 𝑋} ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
46	45	adantll 712	. . . . . . . 8 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
47		snidg 4662	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ {𝑋})
48	47	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → 𝑋 ∈ {𝑋})
49		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = {𝑋} → 𝑦 = {𝑋})
50	49	eqcomd 2738	. . . . . . . . . . . . . 14 ⊢ (𝑦 = {𝑋} → {𝑋} = 𝑦)
51	50	adantl 482	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → {𝑋} = 𝑦)
52	48, 51	eleqtrd 2835	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
53	52	adantlr 713	. . . . . . . . . . 11 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
54		id 22	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ 𝑉)
55	54	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑉)
56		neqne 2948	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑦 = {𝑋} → 𝑦 ≠ {𝑋})
57		elprn1 44648	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ {{𝑋}, {∅, 𝑋}} ∧ 𝑦 ≠ {𝑋}) → 𝑦 = {∅, 𝑋})
58	56, 57	sylan2 593	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ {{𝑋}, {∅, 𝑋}} ∧ ¬ 𝑦 = {𝑋}) → 𝑦 = {∅, 𝑋})
59	58	adantll 712	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑦 = {∅, 𝑋})
60	14	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → 𝑋 ∈ {∅, 𝑋})
61		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = {∅, 𝑋} → 𝑦 = {∅, 𝑋})
62	61	eqcomd 2738	. . . . . . . . . . . . . 14 ⊢ (𝑦 = {∅, 𝑋} → {∅, 𝑋} = 𝑦)
63	62	adantl 482	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → {∅, 𝑋} = 𝑦)
64	60, 63	eleqtrd 2835	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → 𝑋 ∈ 𝑦)
65	55, 59, 64	syl2anc 584	. . . . . . . . . . 11 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
66	53, 65	pm2.61dan 811	. . . . . . . . . 10 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) → 𝑋 ∈ 𝑦)
67	66	stoic1a 1774	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ ¬ 𝑋 ∈ 𝑦) → ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}})
68	67	adantlr 713	. . . . . . . 8 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}})
69		elunnel2 4150	. . . . . . . 8 ⊢ ((𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) → 𝑦 ∈ {∅, {∅}})
70	46, 68, 69	syl2anc 584	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ {∅, {∅}})
71		unieq 4919	. . . . . . . . . 10 ⊢ (𝑦 = ∅ → ∪ 𝑦 = ∪ ∅)
72		uni0 4939	. . . . . . . . . 10 ⊢ ∪ ∅ = ∅
73	71, 72	eqtrdi 2788	. . . . . . . . 9 ⊢ (𝑦 = ∅ → ∪ 𝑦 = ∅)
74	73	adantl 482	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ 𝑦 = ∅) → ∪ 𝑦 = ∅)
75		elprn1 44648	. . . . . . . . . 10 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ 𝑦 ≠ ∅) → 𝑦 = {∅})
76	18, 75	sylan2 593	. . . . . . . . 9 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ ¬ 𝑦 = ∅) → 𝑦 = {∅})
77		unieq 4919	. . . . . . . . . 10 ⊢ (𝑦 = {∅} → ∪ 𝑦 = ∪ {∅})
78		unisn0 44043	. . . . . . . . . 10 ⊢ ∪ {∅} = ∅
79	77, 78	eqtrdi 2788	. . . . . . . . 9 ⊢ (𝑦 = {∅} → ∪ 𝑦 = ∅)
80	76, 79	syl 17	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ ¬ 𝑦 = ∅) → ∪ 𝑦 = ∅)
81	74, 80	pm2.61dan 811	. . . . . . 7 ⊢ (𝑦 ∈ {∅, {∅}} → ∪ 𝑦 = ∅)
82	70, 81	syl 17	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∪ 𝑦 = ∅)
83	2	a1i 11	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∅ ∈ {∅, 𝑋})
84	82, 83	eqeltrd 2833	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∪ 𝑦 ∈ {∅, 𝑋})
85	41, 84	pm2.61dan 811	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ∈ {∅, 𝑋})
86	85	a1d 25	. . 3 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))
87	86	ralrimiva 3146	. 2 ⊢ (𝑋 ∈ 𝑉 → ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))
88		prex 5432	. . 3 ⊢ {∅, 𝑋} ∈ V
89		issal 45329	. . 3 ⊢ ({∅, 𝑋} ∈ V → ({∅, 𝑋} ∈ SAlg ↔ (∅ ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))))
90	88, 89	mp1i 13	. 2 ⊢ (𝑋 ∈ 𝑉 → ({∅, 𝑋} ∈ SAlg ↔ (∅ ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))))
91	3, 30, 87, 90	mpbir3and 1342	1 ⊢ (𝑋 ∈ 𝑉 → {∅, 𝑋} ∈ SAlg)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   ≠ wne 2940  ∀wral 3061  Vcvv 3474   ∖ cdif 3945   ∪ cun 3946   ⊆ wss 3948  ∅c0 4322  𝒫 cpw 4602  {csn 4628  {cpr 4630  ∪ cuni 4908   class class class wbr 5148  ωcom 7857   ≼ cdom 8939  SAlgcsalg 45323

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-11 2154  ax-ext 2703  ax-sep 5299  ax-nul 5306  ax-pr 5427

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-sb 2068  df-clab 2710  df-cleq 2724  df-clel 2810  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-pw 4604  df-sn 4629  df-pr 4631  df-uni 4909  df-salg 45324

This theorem is referenced by: (None)