Proof of Theorem idressid
| Step | Hyp | Ref
| Expression |
| 1 | | idressidex.0 |
. . 3
⊢ (𝜑 → 0 ∈ 𝐴) |
| 2 | | idressidex.a |
. . . 4
⊢ (𝜑 → 𝐴 ⊆ 𝐵) |
| 3 | | idressidex.s |
. . . . 5
⊢ 𝑆 = (𝐺 ↾s 𝐴) |
| 4 | | idressidex.b |
. . . . 5
⊢ 𝐵 = (Base‘𝐺) |
| 5 | 3, 4 | ressbas2 17323 |
. . . 4
⊢ (𝐴 ⊆ 𝐵 → 𝐴 = (Base‘𝑆)) |
| 6 | 2, 5 | syl 18 |
. . 3
⊢ (𝜑 → 𝐴 = (Base‘𝑆)) |
| 7 | 1, 6 | eleqtrd 2868 |
. 2
⊢ (𝜑 → 0 ∈ (Base‘𝑆)) |
| 8 | | idressidex.o |
. . . 4
⊢ 0 =
(0g‘𝐺) |
| 9 | | idressidex.p |
. . . 4
⊢ + =
(+g‘𝐺) |
| 10 | | idressidex.e |
. . . 4
⊢ (𝜑 → ∃𝑒 ∈ 𝐵 ∀𝑥 ∈ 𝐵 ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) |
| 11 | 4, 8, 9, 10 | 0gisid 18751 |
. . 3
⊢ (𝜑 → ( 0 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))) |
| 12 | | ssralv 4009 |
. . . . . 6
⊢ (𝐴 ⊆ 𝐵 → (∀𝑥 ∈ 𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥) → ∀𝑥 ∈ 𝐴 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))) |
| 13 | 2, 12 | syl 18 |
. . . . 5
⊢ (𝜑 → (∀𝑥 ∈ 𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥) → ∀𝑥 ∈ 𝐴 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥))) |
| 14 | 4 | fvexi 6902 |
. . . . . . . . . . . 12
⊢ 𝐵 ∈ V |
| 15 | 14 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐵 ∈ V) |
| 16 | 15, 2 | ssexd 5300 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐴 ∈ V) |
| 17 | 3, 9 | ressplusg 17369 |
. . . . . . . . . 10
⊢ (𝐴 ∈ V → + =
(+g‘𝑆)) |
| 18 | 16, 17 | syl 18 |
. . . . . . . . 9
⊢ (𝜑 → + =
(+g‘𝑆)) |
| 19 | 18 | oveqd 7440 |
. . . . . . . 8
⊢ (𝜑 → ( 0 + 𝑥) = ( 0 (+g‘𝑆)𝑥)) |
| 20 | 19 | eqeq1d 2768 |
. . . . . . 7
⊢ (𝜑 → (( 0 + 𝑥) = 𝑥 ↔ ( 0 (+g‘𝑆)𝑥) = 𝑥)) |
| 21 | 18 | oveqd 7440 |
. . . . . . . 8
⊢ (𝜑 → (𝑥 + 0 ) = (𝑥(+g‘𝑆) 0 )) |
| 22 | 21 | eqeq1d 2768 |
. . . . . . 7
⊢ (𝜑 → ((𝑥 + 0 ) = 𝑥 ↔ (𝑥(+g‘𝑆) 0 ) = 𝑥)) |
| 23 | 20, 22 | anbi12d 644 |
. . . . . 6
⊢ (𝜑 → ((( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥) ↔ (( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥))) |
| 24 | 6, 23 | raleqbidv 3341 |
. . . . 5
⊢ (𝜑 → (∀𝑥 ∈ 𝐴 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥) ↔ ∀𝑥 ∈ (Base‘𝑆)(( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥))) |
| 25 | 13, 24 | sylibd 242 |
. . . 4
⊢ (𝜑 → (∀𝑥 ∈ 𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥) → ∀𝑥 ∈ (Base‘𝑆)(( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥))) |
| 26 | 25 | adantld 496 |
. . 3
⊢ (𝜑 → (( 0 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝐵 (( 0 + 𝑥) = 𝑥 ∧ (𝑥 + 0 ) = 𝑥)) → ∀𝑥 ∈ (Base‘𝑆)(( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥))) |
| 27 | 11, 26 | mpd 16 |
. 2
⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝑆)(( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥)) |
| 28 | | eqid 2766 |
. . 3
⊢
(Base‘𝑆) =
(Base‘𝑆) |
| 29 | | eqid 2766 |
. . 3
⊢
(0g‘𝑆) = (0g‘𝑆) |
| 30 | | eqid 2766 |
. . 3
⊢
(+g‘𝑆) = (+g‘𝑆) |
| 31 | 4, 9, 8, 10, 3, 2,
1, 28 | idressidex0 18760 |
. . . 4
⊢ (𝜑 → ∃𝑒 ∈ (Base‘𝑆)∀𝑥 ∈ (Base‘𝑆)((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥)) |
| 32 | 18 | eqcomd 2772 |
. . . . . . . . 9
⊢ (𝜑 → (+g‘𝑆) = + ) |
| 33 | 32 | oveqd 7440 |
. . . . . . . 8
⊢ (𝜑 → (𝑒(+g‘𝑆)𝑥) = (𝑒 + 𝑥)) |
| 34 | 33 | eqeq1d 2768 |
. . . . . . 7
⊢ (𝜑 → ((𝑒(+g‘𝑆)𝑥) = 𝑥 ↔ (𝑒 + 𝑥) = 𝑥)) |
| 35 | 32 | oveqd 7440 |
. . . . . . . 8
⊢ (𝜑 → (𝑥(+g‘𝑆)𝑒) = (𝑥 + 𝑒)) |
| 36 | 35 | eqeq1d 2768 |
. . . . . . 7
⊢ (𝜑 → ((𝑥(+g‘𝑆)𝑒) = 𝑥 ↔ (𝑥 + 𝑒) = 𝑥)) |
| 37 | 34, 36 | anbi12d 644 |
. . . . . 6
⊢ (𝜑 → (((𝑒(+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆)𝑒) = 𝑥) ↔ ((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))) |
| 38 | 37 | ralbidv 3191 |
. . . . 5
⊢ (𝜑 → (∀𝑥 ∈ (Base‘𝑆)((𝑒(+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆)𝑒) = 𝑥) ↔ ∀𝑥 ∈ (Base‘𝑆)((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))) |
| 39 | 38 | rexbidv 3192 |
. . . 4
⊢ (𝜑 → (∃𝑒 ∈ (Base‘𝑆)∀𝑥 ∈ (Base‘𝑆)((𝑒(+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆)𝑒) = 𝑥) ↔ ∃𝑒 ∈ (Base‘𝑆)∀𝑥 ∈ (Base‘𝑆)((𝑒 + 𝑥) = 𝑥 ∧ (𝑥 + 𝑒) = 𝑥))) |
| 40 | 31, 39 | mpbird 260 |
. . 3
⊢ (𝜑 → ∃𝑒 ∈ (Base‘𝑆)∀𝑥 ∈ (Base‘𝑆)((𝑒(+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆)𝑒) = 𝑥)) |
| 41 | 28, 29, 30, 40 | ismgmid 18748 |
. 2
⊢ (𝜑 → (( 0 ∈ (Base‘𝑆) ∧ ∀𝑥 ∈ (Base‘𝑆)(( 0 (+g‘𝑆)𝑥) = 𝑥 ∧ (𝑥(+g‘𝑆) 0 ) = 𝑥)) ↔ (0g‘𝑆) = 0 )) |
| 42 | 7, 27, 41 | mpbi2and 725 |
1
⊢ (𝜑 → (0g‘𝑆) = 0 ) |