| Step | Hyp | Ref
| Expression |
| 1 | | mgmn0plusgf.g |
. . . 4
⊢ (𝜑 → 𝐺 ∈ Mgm) |
| 2 | | mgmn0plusgf.b |
. . . . 5
⊢ 𝐵 = (Base‘𝐺) |
| 3 | | mgmn0plusgplusf.p |
. . . . 5
⊢ ⨣ =
(+𝑓‘𝐺) |
| 4 | 2, 3 | mgmplusf 18730 |
. . . 4
⊢ (𝐺 ∈ Mgm → ⨣
:(𝐵 × 𝐵)⟶𝐵) |
| 5 | 1, 4 | syl 18 |
. . 3
⊢ (𝜑 → ⨣ :(𝐵 × 𝐵)⟶𝐵) |
| 6 | 5 | ffnd 6710 |
. 2
⊢ (𝜑 → ⨣ Fn (𝐵 × 𝐵)) |
| 7 | | mgmn0plusgf.p |
. . . 4
⊢ + =
(+g‘𝐺) |
| 8 | | mgmn0plusgf.0 |
. . . 4
⊢ (𝜑 → ∅ ∉ 𝐵) |
| 9 | | eqid 2765 |
. . . 4
⊢ ( + ↾
(𝐵 × 𝐵)) = ( + ↾ (𝐵 × 𝐵)) |
| 10 | 2, 7, 1, 8, 9 | mgmn0plusgf 18731 |
. . 3
⊢ (𝜑 → ( + ↾ (𝐵 × 𝐵)):(𝐵 × 𝐵)⟶𝐵) |
| 11 | 10 | ffnd 6710 |
. 2
⊢ (𝜑 → ( + ↾ (𝐵 × 𝐵)) Fn (𝐵 × 𝐵)) |
| 12 | | elxp 5686 |
. . . 4
⊢ (𝑧 ∈ (𝐵 × 𝐵) ↔ ∃𝑥∃𝑦(𝑧 = 〈𝑥, 𝑦〉 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵))) |
| 13 | | df-ov 7422 |
. . . . . . . . 9
⊢ (𝑥 + 𝑦) = ( + ‘〈𝑥, 𝑦〉) |
| 14 | 2, 7, 3 | plusfval 18727 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 ⨣ 𝑦) = (𝑥 + 𝑦)) |
| 15 | 14 | ad2antlr 740 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → (𝑥 ⨣ 𝑦) = (𝑥 + 𝑦)) |
| 16 | | opelxpi 5700 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → 〈𝑥, 𝑦〉 ∈ (𝐵 × 𝐵)) |
| 17 | 16 | ad2antlr 740 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → 〈𝑥, 𝑦〉 ∈ (𝐵 × 𝐵)) |
| 18 | 17 | fvresd 6905 |
. . . . . . . . 9
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → (( + ↾ (𝐵 × 𝐵))‘〈𝑥, 𝑦〉) = ( + ‘〈𝑥, 𝑦〉)) |
| 19 | 13, 15, 18 | 3eqtr4a 2826 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → (𝑥 ⨣ 𝑦) = (( + ↾ (𝐵 × 𝐵))‘〈𝑥, 𝑦〉)) |
| 20 | | fveq2 6885 |
. . . . . . . . . . 11
⊢ (𝑧 = 〈𝑥, 𝑦〉 → ( ⨣ ‘𝑧) = ( ⨣ ‘〈𝑥, 𝑦〉)) |
| 21 | | df-ov 7422 |
. . . . . . . . . . 11
⊢ (𝑥 ⨣ 𝑦) = ( ⨣ ‘〈𝑥, 𝑦〉) |
| 22 | 20, 21 | eqtr4di 2818 |
. . . . . . . . . 10
⊢ (𝑧 = 〈𝑥, 𝑦〉 → ( ⨣ ‘𝑧) = (𝑥 ⨣ 𝑦)) |
| 23 | | fveq2 6885 |
. . . . . . . . . 10
⊢ (𝑧 = 〈𝑥, 𝑦〉 → (( + ↾ (𝐵 × 𝐵))‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘〈𝑥, 𝑦〉)) |
| 24 | 22, 23 | eqeq12d 2781 |
. . . . . . . . 9
⊢ (𝑧 = 〈𝑥, 𝑦〉 → (( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧) ↔ (𝑥 ⨣ 𝑦) = (( + ↾ (𝐵 × 𝐵))‘〈𝑥, 𝑦〉))) |
| 25 | 24 | adantl 487 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → (( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧) ↔ (𝑥 ⨣ 𝑦) = (( + ↾ (𝐵 × 𝐵))‘〈𝑥, 𝑦〉))) |
| 26 | 19, 25 | mpbird 260 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 = 〈𝑥, 𝑦〉) → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧)) |
| 27 | 26 | exp31 425 |
. . . . . 6
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑧 = 〈𝑥, 𝑦〉 → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧)))) |
| 28 | 27 | impcomd 417 |
. . . . 5
⊢ (𝜑 → ((𝑧 = 〈𝑥, 𝑦〉 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧))) |
| 29 | 28 | exlimdvv 1967 |
. . . 4
⊢ (𝜑 → (∃𝑥∃𝑦(𝑧 = 〈𝑥, 𝑦〉 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧))) |
| 30 | 12, 29 | biimtrid 245 |
. . 3
⊢ (𝜑 → (𝑧 ∈ (𝐵 × 𝐵) → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧))) |
| 31 | 30 | imp 412 |
. 2
⊢ ((𝜑 ∧ 𝑧 ∈ (𝐵 × 𝐵)) → ( ⨣ ‘𝑧) = (( + ↾ (𝐵 × 𝐵))‘𝑧)) |
| 32 | 6, 11, 31 | eqfnfvd 7032 |
1
⊢ (𝜑 → ⨣ = ( + ↾
(𝐵 × 𝐵))) |