Metamath Proof Explorer


Theorem mndmolinv

Description: An element of a monoid that has a right inverse has at most one left inverse. (Contributed by metakunt, 25-Apr-2025)

Ref Expression
Hypotheses mndmolinv.1 ⊢ B = Base M
mndmolinv.2 ⊢ φ → M ∈ Mnd
mndmolinv.3 ⊢ φ → A ∈ B
mndmolinv.4 ⊢ φ → ∃ x ∈ B A + M x = 0 M
Assertion mndmolinv ⊢ φ → ∃* x ∈ B x + M A = 0 M

Proof

Step Hyp Ref Expression
1 mndmolinv.1 ⊢ B = Base M
2 mndmolinv.2 ⊢ φ → M ∈ Mnd
3 mndmolinv.3 ⊢ φ → A ∈ B
4 mndmolinv.4 ⊢ φ → ∃ x ∈ B A + M x = 0 M
5 nfv ⊢ Ⅎ y A + M x = 0 M
6 nfv ⊢ Ⅎ x A + M y = 0 M
7 oveq2 ⊢ x = y → A + M x = A + M y
8 7 eqeq1d ⊢ x = y → A + M x = 0 M ↔ A + M y = 0 M
9 5 6 8 cbvrexw ⊢ ∃ x ∈ B A + M x = 0 M ↔ ∃ y ∈ B A + M y = 0 M
10 9 biimpi ⊢ ∃ x ∈ B A + M x = 0 M → ∃ y ∈ B A + M y = 0 M
11 4 10 syl ⊢ φ → ∃ y ∈ B A + M y = 0 M
12 2 ad4antr ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → M ∈ Mnd
13 simplr ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x ∈ B
14 eqid ⊢ + M = + M
15 eqid ⊢ 0 M = 0 M
16 1 14 15 mndrid ⊢ M ∈ Mnd ∧ x ∈ B → x + M 0 M = x
17 12 13 16 syl2anc ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M 0 M = x
18 17 eqcomd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x = x + M 0 M
19 simpllr ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → A + M y = 0 M
20 19 eqcomd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → 0 M = A + M y
21 20 oveq2d ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M 0 M = x + M A + M y
22 18 21 eqtrd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x = x + M A + M y
23 3 ad4antr ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → A ∈ B
24 simp-4r ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → y ∈ B
25 13 23 24 3jca ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x ∈ B ∧ A ∈ B ∧ y ∈ B
26 1 14 mndass ⊢ M ∈ Mnd ∧ x ∈ B ∧ A ∈ B ∧ y ∈ B → x + M A + M y = x + M A + M y
27 12 25 26 syl2anc ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M A + M y = x + M A + M y
28 27 eqcomd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M A + M y = x + M A + M y
29 simpr ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M A = 0 M
30 29 oveq1d ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M A + M y = 0 M + M y
31 1 14 15 mndlid ⊢ M ∈ Mnd ∧ y ∈ B → 0 M + M y = y
32 12 24 31 syl2anc ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → 0 M + M y = y
33 30 32 eqtrd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x + M A + M y = y
34 22 28 33 3eqtrd ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B ∧ x + M A = 0 M → x = y
35 34 ex ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M ∧ x ∈ B → x + M A = 0 M → x = y
36 35 ralrimiva ⊢ φ ∧ y ∈ B ∧ A + M y = 0 M → ∀ x ∈ B x + M A = 0 M → x = y
37 36 ex ⊢ φ ∧ y ∈ B → A + M y = 0 M → ∀ x ∈ B x + M A = 0 M → x = y
38 37 reximdva ⊢ φ → ∃ y ∈ B A + M y = 0 M → ∃ y ∈ B ∀ x ∈ B x + M A = 0 M → x = y
39 11 38 mpd ⊢ φ → ∃ y ∈ B ∀ x ∈ B x + M A = 0 M → x = y
40 nfv ⊢ Ⅎ y x + M A = 0 M
41 40 rmo2i ⊢ ∃ y ∈ B ∀ x ∈ B x + M A = 0 M → x = y → ∃* x ∈ B x + M A = 0 M
42 39 41 syl ⊢ φ → ∃* x ∈ B x + M A = 0 M