Metamath Proof Explorer


Theorem probun

Description: The probability of the union two incompatible events is the sum of their probabilities. (Contributed by Thierry Arnoux, 25-Dec-2016)

Ref Expression
Assertion probun ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → ( ( 𝐴𝐵 ) = ∅ → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) ) )

Proof

Step Hyp Ref Expression
1 simpll1 ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴 = 𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝑃 ∈ Prob )
2 simplr ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴 = 𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝐴 = 𝐵 )
3 simpr ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴 = 𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝐴𝐵 ) = ∅ )
4 disj3 ( ( 𝐴𝐵 ) = ∅ ↔ 𝐴 = ( 𝐴𝐵 ) )
5 4 biimpi ( ( 𝐴𝐵 ) = ∅ → 𝐴 = ( 𝐴𝐵 ) )
6 difeq1 ( 𝐴 = 𝐵 → ( 𝐴𝐵 ) = ( 𝐵𝐵 ) )
7 difid ( 𝐵𝐵 ) = ∅
8 6 7 eqtrdi ( 𝐴 = 𝐵 → ( 𝐴𝐵 ) = ∅ )
9 5 8 sylan9eqr ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → 𝐴 = ∅ )
10 eqtr2 ( ( 𝐴 = 𝐵𝐴 = ∅ ) → 𝐵 = ∅ )
11 9 10 syldan ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → 𝐵 = ∅ )
12 9 11 uneq12d ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝐴𝐵 ) = ( ∅ ∪ ∅ ) )
13 unidm ( ∅ ∪ ∅ ) = ∅
14 12 13 eqtrdi ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝐴𝐵 ) = ∅ )
15 14 fveq2d ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( 𝑃 ‘ ∅ ) )
16 probnul ( 𝑃 ∈ Prob → ( 𝑃 ‘ ∅ ) = 0 )
17 15 16 sylan9eqr ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = 0 )
18 9 fveq2d ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐴 ) = ( 𝑃 ‘ ∅ ) )
19 18 16 sylan9eqr ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( 𝑃𝐴 ) = 0 )
20 11 fveq2d ( ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐵 ) = ( 𝑃 ‘ ∅ ) )
21 20 16 sylan9eqr ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( 𝑃𝐵 ) = 0 )
22 19 21 oveq12d ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) = ( 0 + 0 ) )
23 00id ( 0 + 0 ) = 0
24 22 23 eqtrdi ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) = 0 )
25 17 24 eqtr4d ( ( 𝑃 ∈ Prob ∧ ( 𝐴 = 𝐵 ∧ ( 𝐴𝐵 ) = ∅ ) ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) )
26 1 2 3 25 syl12anc ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴 = 𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) )
27 26 ex ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴 = 𝐵 ) → ( ( 𝐴𝐵 ) = ∅ → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) ) )
28 3anass ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ↔ ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ) )
29 28 anbi1i ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ↔ ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ) ∧ 𝐴𝐵 ) )
30 df-3an ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ↔ ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ) ∧ 𝐴𝐵 ) )
31 29 30 bitr4i ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ↔ ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) )
32 simpl1 ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝑃 ∈ Prob )
33 prssi ( ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → { 𝐴 , 𝐵 } ⊆ dom 𝑃 )
34 33 3ad2ant2 ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → { 𝐴 , 𝐵 } ⊆ dom 𝑃 )
35 34 adantr ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → { 𝐴 , 𝐵 } ⊆ dom 𝑃 )
36 prex { 𝐴 , 𝐵 } ∈ V
37 36 elpw ( { 𝐴 , 𝐵 } ∈ 𝒫 dom 𝑃 ↔ { 𝐴 , 𝐵 } ⊆ dom 𝑃 )
38 35 37 sylibr ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → { 𝐴 , 𝐵 } ∈ 𝒫 dom 𝑃 )
39 prct ( ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → { 𝐴 , 𝐵 } ≼ ω )
40 39 3ad2ant2 ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → { 𝐴 , 𝐵 } ≼ ω )
41 40 adantr ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → { 𝐴 , 𝐵 } ≼ ω )
42 simp2l ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → 𝐴 ∈ dom 𝑃 )
43 simp2r ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → 𝐵 ∈ dom 𝑃 )
44 simp3 ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → 𝐴𝐵 )
45 id ( 𝑥 = 𝐴𝑥 = 𝐴 )
46 id ( 𝑥 = 𝐵𝑥 = 𝐵 )
47 45 46 disjprg ( ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃𝐴𝐵 ) → ( Disj 𝑥 ∈ { 𝐴 , 𝐵 } 𝑥 ↔ ( 𝐴𝐵 ) = ∅ ) )
48 42 43 44 47 syl3anc ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( Disj 𝑥 ∈ { 𝐴 , 𝐵 } 𝑥 ↔ ( 𝐴𝐵 ) = ∅ ) )
49 48 biimpar ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → Disj 𝑥 ∈ { 𝐴 , 𝐵 } 𝑥 )
50 probcun ( ( 𝑃 ∈ Prob ∧ { 𝐴 , 𝐵 } ∈ 𝒫 dom 𝑃 ∧ ( { 𝐴 , 𝐵 } ≼ ω ∧ Disj 𝑥 ∈ { 𝐴 , 𝐵 } 𝑥 ) ) → ( 𝑃 { 𝐴 , 𝐵 } ) = Σ* 𝑥 ∈ { 𝐴 , 𝐵 } ( 𝑃𝑥 ) )
51 32 38 41 49 50 syl112anc ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 { 𝐴 , 𝐵 } ) = Σ* 𝑥 ∈ { 𝐴 , 𝐵 } ( 𝑃𝑥 ) )
52 uniprg ( ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → { 𝐴 , 𝐵 } = ( 𝐴𝐵 ) )
53 52 fveq2d ( ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → ( 𝑃 { 𝐴 , 𝐵 } ) = ( 𝑃 ‘ ( 𝐴𝐵 ) ) )
54 53 3ad2ant2 ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( 𝑃 { 𝐴 , 𝐵 } ) = ( 𝑃 ‘ ( 𝐴𝐵 ) ) )
55 fveq2 ( 𝑥 = 𝐴 → ( 𝑃𝑥 ) = ( 𝑃𝐴 ) )
56 55 adantl ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ 𝑥 = 𝐴 ) → ( 𝑃𝑥 ) = ( 𝑃𝐴 ) )
57 fveq2 ( 𝑥 = 𝐵 → ( 𝑃𝑥 ) = ( 𝑃𝐵 ) )
58 57 adantl ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ 𝑥 = 𝐵 ) → ( 𝑃𝑥 ) = ( 𝑃𝐵 ) )
59 unitssxrge0 ( 0 [,] 1 ) ⊆ ( 0 [,] +∞ )
60 simp1 ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → 𝑃 ∈ Prob )
61 prob01 ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃 ) → ( 𝑃𝐴 ) ∈ ( 0 [,] 1 ) )
62 60 42 61 syl2anc ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( 𝑃𝐴 ) ∈ ( 0 [,] 1 ) )
63 59 62 sselid ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( 𝑃𝐴 ) ∈ ( 0 [,] +∞ ) )
64 prob01 ( ( 𝑃 ∈ Prob ∧ 𝐵 ∈ dom 𝑃 ) → ( 𝑃𝐵 ) ∈ ( 0 [,] 1 ) )
65 60 43 64 syl2anc ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( 𝑃𝐵 ) ∈ ( 0 [,] 1 ) )
66 59 65 sselid ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( 𝑃𝐵 ) ∈ ( 0 [,] +∞ ) )
67 56 58 42 43 63 66 44 esumpr ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → Σ* 𝑥 ∈ { 𝐴 , 𝐵 } ( 𝑃𝑥 ) = ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) )
68 54 67 eqeq12d ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( ( 𝑃 { 𝐴 , 𝐵 } ) = Σ* 𝑥 ∈ { 𝐴 , 𝐵 } ( 𝑃𝑥 ) ↔ ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) ) )
69 68 adantr ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( ( 𝑃 { 𝐴 , 𝐵 } ) = Σ* 𝑥 ∈ { 𝐴 , 𝐵 } ( 𝑃𝑥 ) ↔ ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) ) )
70 51 69 mpbid ( ( ( 𝑃 ∈ Prob ∧ ( 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) )
71 31 70 sylanb ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) )
72 unitssre ( 0 [,] 1 ) ⊆ ℝ
73 simpll1 ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝑃 ∈ Prob )
74 simpll2 ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝐴 ∈ dom 𝑃 )
75 73 74 61 syl2anc ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐴 ) ∈ ( 0 [,] 1 ) )
76 72 75 sselid ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐴 ) ∈ ℝ )
77 simpll3 ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → 𝐵 ∈ dom 𝑃 )
78 73 77 64 syl2anc ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐵 ) ∈ ( 0 [,] 1 ) )
79 72 78 sselid ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃𝐵 ) ∈ ℝ )
80 rexadd ( ( ( 𝑃𝐴 ) ∈ ℝ ∧ ( 𝑃𝐵 ) ∈ ℝ ) → ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) )
81 76 79 80 syl2anc ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( ( 𝑃𝐴 ) +𝑒 ( 𝑃𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) )
82 71 81 eqtrd ( ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) ∧ ( 𝐴𝐵 ) = ∅ ) → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) )
83 82 ex ( ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) ∧ 𝐴𝐵 ) → ( ( 𝐴𝐵 ) = ∅ → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) ) )
84 27 83 pm2.61dane ( ( 𝑃 ∈ Prob ∧ 𝐴 ∈ dom 𝑃𝐵 ∈ dom 𝑃 ) → ( ( 𝐴𝐵 ) = ∅ → ( 𝑃 ‘ ( 𝐴𝐵 ) ) = ( ( 𝑃𝐴 ) + ( 𝑃𝐵 ) ) ) )