Metamath Proof Explorer


Theorem lazaddcl

Description: The extended integers are closed under addition. (Contributed by AV, 25-Oct-2026)

Ref Expression
Hypothesis laznegcl.r No typesetting found for |- R = ( Z[]l ` S ) with typecode |-
Assertion lazaddcl ⊢ S ∈ ℂ → A ∈ R ∧ B ∈ R → A + B ∈ R

Proof

Step Hyp Ref Expression
1 laznegcl.r Could not format R = ( Z[]l ` S ) : No typesetting found for |- R = ( Z[]l ` S ) with typecode |-
2 1 eleq2i Could not format ( A e. R <-> A e. ( Z[]l ` S ) ) : No typesetting found for |- ( A e. R <-> A e. ( Z[]l ` S ) ) with typecode |-
3 1 eleq2i Could not format ( B e. R <-> B e. ( Z[]l ` S ) ) : No typesetting found for |- ( B e. R <-> B e. ( Z[]l ` S ) ) with typecode |-
4 2 3 anbi12i Could not format ( ( A e. R /\ B e. R ) <-> ( A e. ( Z[]l ` S ) /\ B e. ( Z[]l ` S ) ) ) : No typesetting found for |- ( ( A e. R /\ B e. R ) <-> ( A e. ( Z[]l ` S ) /\ B e. ( Z[]l ` S ) ) ) with typecode |-
5 ellazim Could not format ( ( S e. CC /\ A e. ( Z[]l ` S ) ) -> E. a e. ZZ E. b e. ZZ A = ( a + ( b x. S ) ) ) : No typesetting found for |- ( ( S e. CC /\ A e. ( Z[]l ` S ) ) -> E. a e. ZZ E. b e. ZZ A = ( a + ( b x. S ) ) ) with typecode |-
6 5 ex Could not format ( S e. CC -> ( A e. ( Z[]l ` S ) -> E. a e. ZZ E. b e. ZZ A = ( a + ( b x. S ) ) ) ) : No typesetting found for |- ( S e. CC -> ( A e. ( Z[]l ` S ) -> E. a e. ZZ E. b e. ZZ A = ( a + ( b x. S ) ) ) ) with typecode |-
7 ellazim Could not format ( ( S e. CC /\ B e. ( Z[]l ` S ) ) -> E. c e. ZZ E. d e. ZZ B = ( c + ( d x. S ) ) ) : No typesetting found for |- ( ( S e. CC /\ B e. ( Z[]l ` S ) ) -> E. c e. ZZ E. d e. ZZ B = ( c + ( d x. S ) ) ) with typecode |-
8 7 ex Could not format ( S e. CC -> ( B e. ( Z[]l ` S ) -> E. c e. ZZ E. d e. ZZ B = ( c + ( d x. S ) ) ) ) : No typesetting found for |- ( S e. CC -> ( B e. ( Z[]l ` S ) -> E. c e. ZZ E. d e. ZZ B = ( c + ( d x. S ) ) ) ) with typecode |-
9 simpl ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → S ∈ ℂ
10 9 adantr ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → S ∈ ℂ
11 simpl ⊢ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℤ
12 11 adantl ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℤ
13 simpl ⊢ c ∈ ℤ ∧ d ∈ ℤ → c ∈ ℤ
14 zaddcl ⊢ a ∈ ℤ ∧ c ∈ ℤ → a + c ∈ ℤ
15 12 13 14 syl2an ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + c ∈ ℤ
16 simpr ⊢ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℤ
17 16 adantl ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℤ
18 simpr ⊢ c ∈ ℤ ∧ d ∈ ℤ → d ∈ ℤ
19 zaddcl ⊢ b ∈ ℤ ∧ d ∈ ℤ → b + d ∈ ℤ
20 17 18 19 syl2an ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → b + d ∈ ℤ
21 15 20 jca ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + c ∈ ℤ ∧ b + d ∈ ℤ
22 lazlinz Could not format ( S e. CC -> ( ( ( a + c ) e. ZZ /\ ( b + d ) e. ZZ ) -> ( ( a + c ) + ( ( b + d ) x. S ) ) e. ( Z[]l ` S ) ) ) : No typesetting found for |- ( S e. CC -> ( ( ( a + c ) e. ZZ /\ ( b + d ) e. ZZ ) -> ( ( a + c ) + ( ( b + d ) x. S ) ) e. ( Z[]l ` S ) ) ) with typecode |-
23 10 21 22 sylc Could not format ( ( ( S e. CC /\ ( a e. ZZ /\ b e. ZZ ) ) /\ ( c e. ZZ /\ d e. ZZ ) ) -> ( ( a + c ) + ( ( b + d ) x. S ) ) e. ( Z[]l ` S ) ) : No typesetting found for |- ( ( ( S e. CC /\ ( a e. ZZ /\ b e. ZZ ) ) /\ ( c e. ZZ /\ d e. ZZ ) ) -> ( ( a + c ) + ( ( b + d ) x. S ) ) e. ( Z[]l ` S ) ) with typecode |-
24 zcn ⊢ a ∈ ℤ → a ∈ ℂ
25 24 ad2antrl ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℂ
26 25 adantr ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a ∈ ℂ
27 zcn ⊢ b ∈ ℤ → b ∈ ℂ
28 27 ad2antll ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℂ
29 28 adantr ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → b ∈ ℂ
30 29 10 mulcld ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → b ⁢ S ∈ ℂ
31 zcn ⊢ c ∈ ℤ → c ∈ ℂ
32 31 ad2antrl ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → c ∈ ℂ
33 zcn ⊢ d ∈ ℤ → d ∈ ℂ
34 33 ad2antll ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → d ∈ ℂ
35 34 10 mulcld ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → d ⁢ S ∈ ℂ
36 26 30 32 35 add4d ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + b ⁢ S + c + d ⁢ S = a + c + b ⁢ S + d ⁢ S
37 29 34 10 adddird ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → b + d ⁢ S = b ⁢ S + d ⁢ S
38 37 eqcomd ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → b ⁢ S + d ⁢ S = b + d ⁢ S
39 38 oveq2d ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + c + b ⁢ S + d ⁢ S = a + c + b + d ⁢ S
40 36 39 eqtrd ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + b ⁢ S + c + d ⁢ S = a + c + b + d ⁢ S
41 1 a1i Could not format ( ( ( S e. CC /\ ( a e. ZZ /\ b e. ZZ ) ) /\ ( c e. ZZ /\ d e. ZZ ) ) -> R = ( Z[]l ` S ) ) : No typesetting found for |- ( ( ( S e. CC /\ ( a e. ZZ /\ b e. ZZ ) ) /\ ( c e. ZZ /\ d e. ZZ ) ) -> R = ( Z[]l ` S ) ) with typecode |-
42 23 40 41 3eltr4d ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → a + b ⁢ S + c + d ⁢ S ∈ R
43 oveq12 ⊢ A = a + b ⁢ S ∧ B = c + d ⁢ S → A + B = a + b ⁢ S + c + d ⁢ S
44 43 eleq1d ⊢ A = a + b ⁢ S ∧ B = c + d ⁢ S → A + B ∈ R ↔ a + b ⁢ S + c + d ⁢ S ∈ R
45 44 ancoms ⊢ B = c + d ⁢ S ∧ A = a + b ⁢ S → A + B ∈ R ↔ a + b ⁢ S + c + d ⁢ S ∈ R
46 42 45 syl5ibrcom ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → B = c + d ⁢ S ∧ A = a + b ⁢ S → A + B ∈ R
47 46 expd ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ d ∈ ℤ → B = c + d ⁢ S → A = a + b ⁢ S → A + B ∈ R
48 47 rexlimdvva ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → ∃ c ∈ ℤ ∃ d ∈ ℤ B = c + d ⁢ S → A = a + b ⁢ S → A + B ∈ R
49 48 com23 ⊢ S ∈ ℂ ∧ a ∈ ℤ ∧ b ∈ ℤ → A = a + b ⁢ S → ∃ c ∈ ℤ ∃ d ∈ ℤ B = c + d ⁢ S → A + B ∈ R
50 49 rexlimdvva ⊢ S ∈ ℂ → ∃ a ∈ ℤ ∃ b ∈ ℤ A = a + b ⁢ S → ∃ c ∈ ℤ ∃ d ∈ ℤ B = c + d ⁢ S → A + B ∈ R
51 50 impd ⊢ S ∈ ℂ → ∃ a ∈ ℤ ∃ b ∈ ℤ A = a + b ⁢ S ∧ ∃ c ∈ ℤ ∃ d ∈ ℤ B = c + d ⁢ S → A + B ∈ R
52 6 8 51 syl2and Could not format ( S e. CC -> ( ( A e. ( Z[]l ` S ) /\ B e. ( Z[]l ` S ) ) -> ( A + B ) e. R ) ) : No typesetting found for |- ( S e. CC -> ( ( A e. ( Z[]l ` S ) /\ B e. ( Z[]l ` S ) ) -> ( A + B ) e. R ) ) with typecode |-
53 4 52 biimtrid ⊢ S ∈ ℂ → A ∈ R ∧ B ∈ R → A + B ∈ R