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