Theorem prsal 47601

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 5267	. . . 4 ⊢ ∅ ∈ V
2	1	prid1 4725	. . 3 ⊢ ∅ ∈ {∅, 𝑋}
3	2	a1i 11	. 2 ⊢ (𝑋 ∈ 𝑉 → ∅ ∈ {∅, 𝑋})
4		uniprg 4888	. . . . . . . 8 ⊢ ((∅ ∈ V ∧ 𝑋 ∈ 𝑉) → ∪ {∅, 𝑋} = (∅ ∪ 𝑋))
5	1, 4	mpan 703	. . . . . . 7 ⊢ (𝑋 ∈ 𝑉 → ∪ {∅, 𝑋} = (∅ ∪ 𝑋))
6		0un 4349	. . . . . . 7 ⊢ (∅ ∪ 𝑋) = 𝑋
7	5, 6	eqtrdi 2814	. . . . . 6 ⊢ (𝑋 ∈ 𝑉 → ∪ {∅, 𝑋} = 𝑋)
8	7	difeq1d 4065	. . . . 5 ⊢ (𝑋 ∈ 𝑉 → (∪ {∅, 𝑋} ∖ 𝑦) = (𝑋 ∖ 𝑦))
9	8	adantr 486	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (∪ {∅, 𝑋} ∖ 𝑦) = (𝑋 ∖ 𝑦))
10		difeq2 4060	. . . . . . . . 9 ⊢ (𝑦 = ∅ → (𝑋 ∖ 𝑦) = (𝑋 ∖ ∅))
11	10	adantl 487	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) = (𝑋 ∖ ∅))
12		dif0 4330	. . . . . . . 8 ⊢ (𝑋 ∖ ∅) = 𝑋
13	11, 12	eqtrdi 2814	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) = 𝑋)
14		prid2g 4724	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ {∅, 𝑋})
15	14	adantr 486	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → 𝑋 ∈ {∅, 𝑋})
16	13, 15	eqeltrd 2864	. . . . . 6 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
17	16	adantlr 728	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
18		neqne 2967	. . . . . . . 8 ⊢ (¬ 𝑦 = ∅ → 𝑦 ≠ ∅)
19		elprn1 4612	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, 𝑋} ∧ 𝑦 ≠ ∅) → 𝑦 = 𝑋)
20	18, 19	sylan2 605	. . . . . . 7 ⊢ ((𝑦 ∈ {∅, 𝑋} ∧ ¬ 𝑦 = ∅) → 𝑦 = 𝑋)
21	20	adantll 727	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ ¬ 𝑦 = ∅) → 𝑦 = 𝑋)
22		difeq2 4060	. . . . . . . 8 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) = (𝑋 ∖ 𝑋))
23		difid 4328	. . . . . . . 8 ⊢ (𝑋 ∖ 𝑋) = ∅
24	22, 23	eqtrdi 2814	. . . . . . 7 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) = ∅)
25	2	a1i 11	. . . . . . 7 ⊢ (𝑦 = 𝑋 → ∅ ∈ {∅, 𝑋})
26	24, 25	eqeltrd 2864	. . . . . 6 ⊢ (𝑦 = 𝑋 → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
27	21, 26	syl 18	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) ∧ ¬ 𝑦 = ∅) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
28	17, 27	pm2.61dan 825	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (𝑋 ∖ 𝑦) ∈ {∅, 𝑋})
29	9, 28	eqeltrd 2864	. . 3 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {∅, 𝑋}) → (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋})
30	29	ralrimiva 3158	. 2 ⊢ (𝑋 ∈ 𝑉 → ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋})
31		elpwi 4567	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ⊆ {∅, 𝑋})
32	31	unissd 4882	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → ∪ 𝑦 ⊆ ∪ {∅, 𝑋})
33	32	adantl 487	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ⊆ ∪ {∅, 𝑋})
34	7	adantr 486	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ {∅, 𝑋} = 𝑋)
35	33, 34	sseqtrd 3949	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ⊆ 𝑋)
36	35	adantr 486	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 ⊆ 𝑋)
37		elssuni 4904	. . . . . . . 8 ⊢ (𝑋 ∈ 𝑦 → 𝑋 ⊆ ∪ 𝑦)
38	37	adantl 487	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → 𝑋 ⊆ ∪ 𝑦)
39	36, 38	eqssd 3930	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 = 𝑋)
40	14	ad2antrr 739	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → 𝑋 ∈ {∅, 𝑋})
41	39, 40	eqeltrd 2864	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ 𝑋 ∈ 𝑦) → ∪ 𝑦 ∈ {∅, 𝑋})
42		id 23	. . . . . . . . . . 11 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ∈ 𝒫 {∅, 𝑋})
43		pwpr 4833	. . . . . . . . . . 11 ⊢ 𝒫 {∅, 𝑋} = ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}})
44	42, 43	eleqtrdi 2874	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝒫 {∅, 𝑋} → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
45	44	adantr 486	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝒫 {∅, 𝑋} ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
46	45	adantll 727	. . . . . . . 8 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}))
47		snidg 4622	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ {𝑋})
48	47	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → 𝑋 ∈ {𝑋})
49		id 23	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = {𝑋} → 𝑦 = {𝑋})
50	49	eqcomd 2769	. . . . . . . . . . . . . 14 ⊢ (𝑦 = {𝑋} → {𝑋} = 𝑦)
51	50	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → {𝑋} = 𝑦)
52	48, 51	eleqtrd 2866	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
53	52	adantlr 728	. . . . . . . . . . 11 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
54		id 23	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ 𝑉 → 𝑋 ∈ 𝑉)
55	54	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑉)
56		neqne 2967	. . . . . . . . . . . . . 14 ⊢ (¬ 𝑦 = {𝑋} → 𝑦 ≠ {𝑋})
57		elprn1 4612	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ {{𝑋}, {∅, 𝑋}} ∧ 𝑦 ≠ {𝑋}) → 𝑦 = {∅, 𝑋})
58	56, 57	sylan2 605	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ {{𝑋}, {∅, 𝑋}} ∧ ¬ 𝑦 = {𝑋}) → 𝑦 = {∅, 𝑋})
59	58	adantll 727	. . . . . . . . . . . 12 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑦 = {∅, 𝑋})
60	14	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → 𝑋 ∈ {∅, 𝑋})
61		id 23	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = {∅, 𝑋} → 𝑦 = {∅, 𝑋})
62	61	eqcomd 2769	. . . . . . . . . . . . . 14 ⊢ (𝑦 = {∅, 𝑋} → {∅, 𝑋} = 𝑦)
63	62	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → {∅, 𝑋} = 𝑦)
64	60, 63	eleqtrd 2866	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 = {∅, 𝑋}) → 𝑋 ∈ 𝑦)
65	55, 59, 64	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 = {𝑋}) → 𝑋 ∈ 𝑦)
66	53, 65	pm2.61dan 825	. . . . . . . . . 10 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) → 𝑋 ∈ 𝑦)
67	66	stoic1a 1805	. . . . . . . . 9 ⊢ ((𝑋 ∈ 𝑉 ∧ ¬ 𝑋 ∈ 𝑦) → ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}})
68	67	adantlr 728	. . . . . . . 8 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}})
69		elunnel2 4157	. . . . . . . 8 ⊢ ((𝑦 ∈ ({∅, {∅}} ∪ {{𝑋}, {∅, 𝑋}}) ∧ ¬ 𝑦 ∈ {{𝑋}, {∅, 𝑋}}) → 𝑦 ∈ {∅, {∅}})
70	46, 68, 69	syl2anc 596	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → 𝑦 ∈ {∅, {∅}})
71		unieq 4883	. . . . . . . . . 10 ⊢ (𝑦 = ∅ → ∪ 𝑦 = ∪ ∅)
72		uni0 4901	. . . . . . . . . 10 ⊢ ∪ ∅ = ∅
73	71, 72	eqtrdi 2814	. . . . . . . . 9 ⊢ (𝑦 = ∅ → ∪ 𝑦 = ∅)
74	73	adantl 487	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ 𝑦 = ∅) → ∪ 𝑦 = ∅)
75		elprn1 4612	. . . . . . . . . 10 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ 𝑦 ≠ ∅) → 𝑦 = {∅})
76	18, 75	sylan2 605	. . . . . . . . 9 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ ¬ 𝑦 = ∅) → 𝑦 = {∅})
77		unieq 4883	. . . . . . . . . 10 ⊢ (𝑦 = {∅} → ∪ 𝑦 = ∪ {∅})
78		unisn0 46345	. . . . . . . . . 10 ⊢ ∪ {∅} = ∅
79	77, 78	eqtrdi 2814	. . . . . . . . 9 ⊢ (𝑦 = {∅} → ∪ 𝑦 = ∅)
80	76, 79	syl 18	. . . . . . . 8 ⊢ ((𝑦 ∈ {∅, {∅}} ∧ ¬ 𝑦 = ∅) → ∪ 𝑦 = ∅)
81	74, 80	pm2.61dan 825	. . . . . . 7 ⊢ (𝑦 ∈ {∅, {∅}} → ∪ 𝑦 = ∅)
82	70, 81	syl 18	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∪ 𝑦 = ∅)
83	2	a1i 11	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∅ ∈ {∅, 𝑋})
84	82, 83	eqeltrd 2864	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) ∧ ¬ 𝑋 ∈ 𝑦) → ∪ 𝑦 ∈ {∅, 𝑋})
85	41, 84	pm2.61dan 825	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → ∪ 𝑦 ∈ {∅, 𝑋})
86	85	a1d 26	. . 3 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑦 ∈ 𝒫 {∅, 𝑋}) → (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))
87	86	ralrimiva 3158	. 2 ⊢ (𝑋 ∈ 𝑉 → ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))
88		prex 5403	. . 3 ⊢ {∅, 𝑋} ∈ V
89		issal 47597	. . 3 ⊢ ({∅, 𝑋} ∈ V → ({∅, 𝑋} ∈ SAlg ↔ (∅ ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))))
90	88, 89	mp1i 14	. 2 ⊢ (𝑋 ∈ 𝑉 → ({∅, 𝑋} ∈ SAlg ↔ (∅ ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ {∅, 𝑋} (∪ {∅, 𝑋} ∖ 𝑦) ∈ {∅, 𝑋} ∧ ∀𝑦 ∈ 𝒫 {∅, 𝑋} (𝑦 ≼ ω → ∪ 𝑦 ∈ {∅, 𝑋}))))
91	3, 30, 87, 90	mpbir3and 1361	1 ⊢ (𝑋 ∈ 𝑉 → {∅, 𝑋} ∈ SAlg)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  Vcvv 3454   ⊆ wss 3900   ∖ cdif 4048   ∪ cun 4152  ∅c0 4281  𝒫 cpw 4560  {csn 4588  {cpr 4590  ∪ cuni 4872   class class class wbr 5108  ωcom 7911   ≼ cdom 9009  SAlgcsalg 47591

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-11 2197  ax-ext 2735  ax-sep 5255  ax-nul 5266  ax-pr 5398

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2102  df-clab 2742  df-cleq 2755  df-clel 2839  df-ne 2960  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-pw 4562  df-sn 4589  df-pr 4591  df-uni 4873  df-salg 47592

This theorem is used by: (None)