Metamath Proof Explorer


Theorem fvray

Description: Calculate the value of the Ray function. (Contributed by Scott Fenton, 21-Oct-2013) (Revised by Mario Carneiro, 19-Apr-2014)

Ref Expression
Assertion fvray N P 𝔼 N A 𝔼 N P A P Ray A = x 𝔼 N | P OutsideOf A x

Proof

Step Hyp Ref Expression
1 df-ov P Ray A = Ray P A
2 eqid x 𝔼 N | P OutsideOf A x = x 𝔼 N | P OutsideOf A x
3 fveq2 n = N 𝔼 n = 𝔼 N
4 3 eleq2d n = N P 𝔼 n P 𝔼 N
5 3 eleq2d n = N A 𝔼 n A 𝔼 N
6 4 5 3anbi12d n = N P 𝔼 n A 𝔼 n P A P 𝔼 N A 𝔼 N P A
7 rabeq 𝔼 n = 𝔼 N x 𝔼 n | P OutsideOf A x = x 𝔼 N | P OutsideOf A x
8 3 7 syl n = N x 𝔼 n | P OutsideOf A x = x 𝔼 N | P OutsideOf A x
9 8 eqeq2d n = N x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x x 𝔼 N | P OutsideOf A x = x 𝔼 N | P OutsideOf A x
10 6 9 anbi12d n = N P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x P 𝔼 N A 𝔼 N P A x 𝔼 N | P OutsideOf A x = x 𝔼 N | P OutsideOf A x
11 10 rspcev N P 𝔼 N A 𝔼 N P A x 𝔼 N | P OutsideOf A x = x 𝔼 N | P OutsideOf A x n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
12 2 11 mpanr2 N P 𝔼 N A 𝔼 N P A n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
13 simpr1 N P 𝔼 N A 𝔼 N P A P 𝔼 N
14 simpr2 N P 𝔼 N A 𝔼 N P A A 𝔼 N
15 fvex 𝔼 N V
16 15 rabex x 𝔼 N | P OutsideOf A x V
17 eleq1 p = P p 𝔼 n P 𝔼 n
18 neeq1 p = P p a P a
19 17 18 3anbi13d p = P p 𝔼 n a 𝔼 n p a P 𝔼 n a 𝔼 n P a
20 breq1 p = P p OutsideOf a x P OutsideOf a x
21 20 rabbidv p = P x 𝔼 n | p OutsideOf a x = x 𝔼 n | P OutsideOf a x
22 21 eqeq2d p = P r = x 𝔼 n | p OutsideOf a x r = x 𝔼 n | P OutsideOf a x
23 19 22 anbi12d p = P p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x P 𝔼 n a 𝔼 n P a r = x 𝔼 n | P OutsideOf a x
24 23 rexbidv p = P n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x n P 𝔼 n a 𝔼 n P a r = x 𝔼 n | P OutsideOf a x
25 eleq1 a = A a 𝔼 n A 𝔼 n
26 neeq2 a = A P a P A
27 25 26 3anbi23d a = A P 𝔼 n a 𝔼 n P a P 𝔼 n A 𝔼 n P A
28 opeq1 a = A a x = A x
29 28 breq2d a = A P OutsideOf a x P OutsideOf A x
30 29 rabbidv a = A x 𝔼 n | P OutsideOf a x = x 𝔼 n | P OutsideOf A x
31 30 eqeq2d a = A r = x 𝔼 n | P OutsideOf a x r = x 𝔼 n | P OutsideOf A x
32 27 31 anbi12d a = A P 𝔼 n a 𝔼 n P a r = x 𝔼 n | P OutsideOf a x P 𝔼 n A 𝔼 n P A r = x 𝔼 n | P OutsideOf A x
33 32 rexbidv a = A n P 𝔼 n a 𝔼 n P a r = x 𝔼 n | P OutsideOf a x n P 𝔼 n A 𝔼 n P A r = x 𝔼 n | P OutsideOf A x
34 eqeq1 r = x 𝔼 N | P OutsideOf A x r = x 𝔼 n | P OutsideOf A x x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
35 34 anbi2d r = x 𝔼 N | P OutsideOf A x P 𝔼 n A 𝔼 n P A r = x 𝔼 n | P OutsideOf A x P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
36 35 rexbidv r = x 𝔼 N | P OutsideOf A x n P 𝔼 n A 𝔼 n P A r = x 𝔼 n | P OutsideOf A x n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
37 24 33 36 eloprabg P 𝔼 N A 𝔼 N x 𝔼 N | P OutsideOf A x V P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
38 16 37 mp3an3 P 𝔼 N A 𝔼 N P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
39 13 14 38 syl2anc N P 𝔼 N A 𝔼 N P A P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x n P 𝔼 n A 𝔼 n P A x 𝔼 N | P OutsideOf A x = x 𝔼 n | P OutsideOf A x
40 12 39 mpbird N P 𝔼 N A 𝔼 N P A P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x
41 df-br P A Ray x 𝔼 N | P OutsideOf A x P A x 𝔼 N | P OutsideOf A x Ray
42 df-ray Ray = p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x
43 42 eleq2i P A x 𝔼 N | P OutsideOf A x Ray P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x
44 41 43 bitri P A Ray x 𝔼 N | P OutsideOf A x P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x
45 funray Fun Ray
46 funbrfv Fun Ray P A Ray x 𝔼 N | P OutsideOf A x Ray P A = x 𝔼 N | P OutsideOf A x
47 45 46 ax-mp P A Ray x 𝔼 N | P OutsideOf A x Ray P A = x 𝔼 N | P OutsideOf A x
48 44 47 sylbir P A x 𝔼 N | P OutsideOf A x p a r | n p 𝔼 n a 𝔼 n p a r = x 𝔼 n | p OutsideOf a x Ray P A = x 𝔼 N | P OutsideOf A x
49 40 48 syl N P 𝔼 N A 𝔼 N P A Ray P A = x 𝔼 N | P OutsideOf A x
50 1 49 eqtrid N P 𝔼 N A 𝔼 N P A P Ray A = x 𝔼 N | P OutsideOf A x