Metamath Proof Explorer


Theorem 0rrv

Description: The constant function equal to zero is a random variable. (Contributed by Thierry Arnoux, 16-Jan-2017) (Revised by Thierry Arnoux, 30-Jan-2017)

Ref Expression
Hypothesis 0rrv.1 φ P Prob
Assertion 0rrv φ x dom P 0 RndVar P

Proof

Step Hyp Ref Expression
1 0rrv.1 φ P Prob
2 0re 0
3 2 rgenw x dom P 0
4 eqid x dom P 0 = x dom P 0
5 4 fmpt x dom P 0 x dom P 0 : dom P
6 3 5 mpbi x dom P 0 : dom P
7 6 a1i φ x dom P 0 : dom P
8 fconstmpt dom P × 0 = x dom P 0
9 8 cnveqi dom P × 0 -1 = x dom P 0 -1
10 cnvxp dom P × 0 -1 = 0 × dom P
11 9 10 eqtr3i x dom P 0 -1 = 0 × dom P
12 11 imaeq1i x dom P 0 -1 y = 0 × dom P y
13 df-ima 0 × dom P y = ran 0 × dom P y
14 df-rn ran 0 × dom P y = dom 0 × dom P y -1
15 12 13 14 3eqtri x dom P 0 -1 y = dom 0 × dom P y -1
16 df-res 0 × dom P y = 0 × dom P y × V
17 inxp 0 × dom P y × V = 0 y × dom P V
18 inv1 dom P V = dom P
19 18 xpeq2i 0 y × dom P V = 0 y × dom P
20 16 17 19 3eqtri 0 × dom P y = 0 y × dom P
21 20 cnveqi 0 × dom P y -1 = 0 y × dom P -1
22 21 dmeqi dom 0 × dom P y -1 = dom 0 y × dom P -1
23 cnvxp 0 y × dom P -1 = dom P × 0 y
24 23 dmeqi dom 0 y × dom P -1 = dom dom P × 0 y
25 15 22 24 3eqtri x dom P 0 -1 y = dom dom P × 0 y
26 xpeq2 0 y = dom P × 0 y = dom P ×
27 xp0 dom P × =
28 26 27 eqtrdi 0 y = dom P × 0 y =
29 28 dmeqd 0 y = dom dom P × 0 y = dom
30 dm0 dom =
31 29 30 eqtrdi 0 y = dom dom P × 0 y =
32 31 adantl φ 0 y = dom dom P × 0 y =
33 domprobsiga P Prob dom P ran sigAlgebra
34 0elsiga dom P ran sigAlgebra dom P
35 1 33 34 3syl φ dom P
36 35 adantr φ 0 y = dom P
37 32 36 eqeltrd φ 0 y = dom dom P × 0 y dom P
38 25 37 eqeltrid φ 0 y = x dom P 0 -1 y dom P
39 dmxp 0 y dom dom P × 0 y = dom P
40 39 adantl φ 0 y dom dom P × 0 y = dom P
41 1 unveldomd φ dom P dom P
42 41 adantr φ 0 y dom P dom P
43 40 42 eqeltrd φ 0 y dom dom P × 0 y dom P
44 25 43 eqeltrid φ 0 y x dom P 0 -1 y dom P
45 38 44 pm2.61dane φ x dom P 0 -1 y dom P
46 45 ralrimivw φ y 𝔅 x dom P 0 -1 y dom P
47 1 isrrvv φ x dom P 0 RndVar P x dom P 0 : dom P y 𝔅 x dom P 0 -1 y dom P
48 7 46 47 mpbir2and φ x dom P 0 RndVar P