Proof of Theorem mapdhval
Step | Hyp | Ref
| Expression |
1 | | otex 5380 |
. . 3
⊢
〈𝑋, 𝐹, 𝑌〉 ∈ V |
2 | | fveq2 6774 |
. . . . . 6
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (2nd ‘𝑥) = (2nd
‘〈𝑋, 𝐹, 𝑌〉)) |
3 | 2 | eqeq1d 2740 |
. . . . 5
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → ((2nd ‘𝑥) = 0 ↔ (2nd
‘〈𝑋, 𝐹, 𝑌〉) = 0 )) |
4 | 2 | sneqd 4573 |
. . . . . . . . 9
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → {(2nd ‘𝑥)} = {(2nd
‘〈𝑋, 𝐹, 𝑌〉)}) |
5 | 4 | fveq2d 6778 |
. . . . . . . 8
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (𝑁‘{(2nd ‘𝑥)}) = (𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) |
6 | 5 | fveqeq2d 6782 |
. . . . . . 7
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ↔ (𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}))) |
7 | | fveq2 6774 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (1st ‘𝑥) = (1st
‘〈𝑋, 𝐹, 𝑌〉)) |
8 | 7 | fveq2d 6778 |
. . . . . . . . . . . 12
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (1st
‘(1st ‘𝑥)) = (1st ‘(1st
‘〈𝑋, 𝐹, 𝑌〉))) |
9 | 8, 2 | oveq12d 7293 |
. . . . . . . . . . 11
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → ((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥)) =
((1st ‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))) |
10 | 9 | sneqd 4573 |
. . . . . . . . . 10
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → {((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))} =
{((1st ‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))}) |
11 | 10 | fveq2d 6778 |
. . . . . . . . 9
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))}) = (𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) |
12 | 11 | fveq2d 6778 |
. . . . . . . 8
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))}))) |
13 | 7 | fveq2d 6778 |
. . . . . . . . . . 11
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (2nd
‘(1st ‘𝑥)) = (2nd ‘(1st
‘〈𝑋, 𝐹, 𝑌〉))) |
14 | 13 | oveq1d 7290 |
. . . . . . . . . 10
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → ((2nd
‘(1st ‘𝑥))𝑅ℎ) = ((2nd ‘(1st
‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)) |
15 | 14 | sneqd 4573 |
. . . . . . . . 9
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → {((2nd
‘(1st ‘𝑥))𝑅ℎ)} = {((2nd ‘(1st
‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}) |
16 | 15 | fveq2d 6778 |
. . . . . . . 8
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)}) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})) |
17 | 12, 16 | eqeq12d 2754 |
. . . . . . 7
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → ((𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)}) ↔ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))) |
18 | 6, 17 | anbi12d 631 |
. . . . . 6
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)})) ↔ ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})))) |
19 | 18 | riotabidv 7234 |
. . . . 5
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)}))) = (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})))) |
20 | 3, 19 | ifbieq2d 4485 |
. . . 4
⊢ (𝑥 = 〈𝑋, 𝐹, 𝑌〉 → if((2nd
‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)})))) = if((2nd ‘〈𝑋, 𝐹, 𝑌〉) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))))) |
21 | | mapdh.i |
. . . 4
⊢ 𝐼 = (𝑥 ∈ V ↦ if((2nd
‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘𝑥)) − (2nd
‘𝑥))})) = (𝐽‘{((2nd
‘(1st ‘𝑥))𝑅ℎ)}))))) |
22 | | mapdh.q |
. . . . . 6
⊢ 𝑄 = (0g‘𝐶) |
23 | 22 | fvexi 6788 |
. . . . 5
⊢ 𝑄 ∈ V |
24 | | riotaex 7236 |
. . . . 5
⊢
(℩ℎ
∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))) ∈ V |
25 | 23, 24 | ifex 4509 |
. . . 4
⊢
if((2nd ‘〈𝑋, 𝐹, 𝑌〉) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})))) ∈ V |
26 | 20, 21, 25 | fvmpt 6875 |
. . 3
⊢
(〈𝑋, 𝐹, 𝑌〉 ∈ V → (𝐼‘〈𝑋, 𝐹, 𝑌〉) = if((2nd
‘〈𝑋, 𝐹, 𝑌〉) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))))) |
27 | 1, 26 | mp1i 13 |
. 2
⊢ (𝜑 → (𝐼‘〈𝑋, 𝐹, 𝑌〉) = if((2nd
‘〈𝑋, 𝐹, 𝑌〉) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))))) |
28 | | mapdh.y |
. . . . 5
⊢ (𝜑 → 𝑌 ∈ 𝐸) |
29 | | ot3rdg 7847 |
. . . . 5
⊢ (𝑌 ∈ 𝐸 → (2nd ‘〈𝑋, 𝐹, 𝑌〉) = 𝑌) |
30 | 28, 29 | syl 17 |
. . . 4
⊢ (𝜑 → (2nd
‘〈𝑋, 𝐹, 𝑌〉) = 𝑌) |
31 | 30 | eqeq1d 2740 |
. . 3
⊢ (𝜑 → ((2nd
‘〈𝑋, 𝐹, 𝑌〉) = 0 ↔ 𝑌 = 0 )) |
32 | 30 | sneqd 4573 |
. . . . . . 7
⊢ (𝜑 → {(2nd
‘〈𝑋, 𝐹, 𝑌〉)} = {𝑌}) |
33 | 32 | fveq2d 6778 |
. . . . . 6
⊢ (𝜑 → (𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)}) = (𝑁‘{𝑌})) |
34 | 33 | fveqeq2d 6782 |
. . . . 5
⊢ (𝜑 → ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ↔ (𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}))) |
35 | | mapdh.x |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑋 ∈ 𝐴) |
36 | | mapdh.f |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐹 ∈ 𝐵) |
37 | | ot1stg 7845 |
. . . . . . . . . . 11
⊢ ((𝑋 ∈ 𝐴 ∧ 𝐹 ∈ 𝐵 ∧ 𝑌 ∈ 𝐸) → (1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) = 𝑋) |
38 | 35, 36, 28, 37 | syl3anc 1370 |
. . . . . . . . . 10
⊢ (𝜑 → (1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) = 𝑋) |
39 | 38, 30 | oveq12d 7293 |
. . . . . . . . 9
⊢ (𝜑 → ((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉)) = (𝑋 − 𝑌)) |
40 | 39 | sneqd 4573 |
. . . . . . . 8
⊢ (𝜑 → {((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))} = {(𝑋 − 𝑌)}) |
41 | 40 | fveq2d 6778 |
. . . . . . 7
⊢ (𝜑 → (𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))}) = (𝑁‘{(𝑋 − 𝑌)})) |
42 | 41 | fveq2d 6778 |
. . . . . 6
⊢ (𝜑 → (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝑀‘(𝑁‘{(𝑋 − 𝑌)}))) |
43 | | ot2ndg 7846 |
. . . . . . . . . 10
⊢ ((𝑋 ∈ 𝐴 ∧ 𝐹 ∈ 𝐵 ∧ 𝑌 ∈ 𝐸) → (2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) = 𝐹) |
44 | 35, 36, 28, 43 | syl3anc 1370 |
. . . . . . . . 9
⊢ (𝜑 → (2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) = 𝐹) |
45 | 44 | oveq1d 7290 |
. . . . . . . 8
⊢ (𝜑 → ((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ) = (𝐹𝑅ℎ)) |
46 | 45 | sneqd 4573 |
. . . . . . 7
⊢ (𝜑 → {((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)} = {(𝐹𝑅ℎ)}) |
47 | 46 | fveq2d 6778 |
. . . . . 6
⊢ (𝜑 → (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}) = (𝐽‘{(𝐹𝑅ℎ)})) |
48 | 42, 47 | eqeq12d 2754 |
. . . . 5
⊢ (𝜑 → ((𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}) ↔ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))) |
49 | 34, 48 | anbi12d 631 |
. . . 4
⊢ (𝜑 → (((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})) ↔ ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)})))) |
50 | 49 | riotabidv 7234 |
. . 3
⊢ (𝜑 → (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)}))) = (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)})))) |
51 | 31, 50 | ifbieq2d 4485 |
. 2
⊢ (𝜑 → if((2nd
‘〈𝑋, 𝐹, 𝑌〉) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘〈𝑋, 𝐹, 𝑌〉)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st
‘(1st ‘〈𝑋, 𝐹, 𝑌〉)) − (2nd
‘〈𝑋, 𝐹, 𝑌〉))})) = (𝐽‘{((2nd
‘(1st ‘〈𝑋, 𝐹, 𝑌〉))𝑅ℎ)})))) = if(𝑌 = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))))) |
52 | 27, 51 | eqtrd 2778 |
1
⊢ (𝜑 → (𝐼‘〈𝑋, 𝐹, 𝑌〉) = if(𝑌 = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))))) |