Theorem absext 11574

Description: Strong extensionality for absolute value. (Contributed by Jim Kingdon, 12-Aug-2021.)

Assertion

Ref	Expression
absext	⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) → 𝐴 # 𝐵))

Proof of Theorem absext

Step	Hyp	Ref	Expression
1		absval2 11568	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → (abs‘𝐴) = (√‘(((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2))))
2		absval2 11568	. . . . . . 7 ⊢ (𝐵 ∈ ℂ → (abs‘𝐵) = (√‘(((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))))
3	1, 2	breqan12d 4099	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) ↔ (√‘(((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2))) # (√‘(((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)))))
4		simpl 109	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 𝐴 ∈ ℂ)
5	4	recld 11449	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐴) ∈ ℝ)
6	5	resqcld 10921	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐴)↑2) ∈ ℝ)
7	4	imcld 11450	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐴) ∈ ℝ)
8	7	resqcld 10921	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐴)↑2) ∈ ℝ)
9	6, 8	readdcld 8176	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) ∈ ℝ)
10	5	sqge0d 10922	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ ((ℜ‘𝐴)↑2))
11	7	sqge0d 10922	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ ((ℑ‘𝐴)↑2))
12	6, 8, 10, 11	addge0d 8669	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)))
13		simpr 110	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 𝐵 ∈ ℂ)
14	13	recld 11449	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐵) ∈ ℝ)
15	14	resqcld 10921	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐵)↑2) ∈ ℝ)
16	13	imcld 11450	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐵) ∈ ℝ)
17	16	resqcld 10921	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐵)↑2) ∈ ℝ)
18	15, 17	readdcld 8176	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)) ∈ ℝ)
19	14	sqge0d 10922	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ ((ℜ‘𝐵)↑2))
20	16	sqge0d 10922	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ ((ℑ‘𝐵)↑2))
21	15, 17, 19, 20	addge0d 8669	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 0 ≤ (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)))
22		sqrt11ap 11549	. . . . . . 7 ⊢ ((((((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) ∈ ℝ ∧ 0 ≤ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2))) ∧ ((((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)) ∈ ℝ ∧ 0 ≤ (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)))) → ((√‘(((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2))) # (√‘(((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))) ↔ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) # (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))))
23	9, 12, 18, 21, 22	syl22anc 1272	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((√‘(((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2))) # (√‘(((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))) ↔ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) # (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))))
24	3, 23	bitrd 188	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) ↔ (((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) # (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2))))
25	6	recnd 8175	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐴)↑2) ∈ ℂ)
26	8	recnd 8175	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐴)↑2) ∈ ℂ)
27	15	recnd 8175	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐵)↑2) ∈ ℂ)
28	17	recnd 8175	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐵)↑2) ∈ ℂ)
29		addext 8757	. . . . . 6 ⊢ (((((ℜ‘𝐴)↑2) ∈ ℂ ∧ ((ℑ‘𝐴)↑2) ∈ ℂ) ∧ (((ℜ‘𝐵)↑2) ∈ ℂ ∧ ((ℑ‘𝐵)↑2) ∈ ℂ)) → ((((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) # (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) ∨ ((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2))))
30	25, 26, 27, 28, 29	syl22anc 1272	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((((ℜ‘𝐴)↑2) + ((ℑ‘𝐴)↑2)) # (((ℜ‘𝐵)↑2) + ((ℑ‘𝐵)↑2)) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) ∨ ((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2))))
31	24, 30	sylbid 150	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) ∨ ((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2))))
32	5	recnd 8175	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐴) ∈ ℂ)
33	32	sqvald 10892	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐴)↑2) = ((ℜ‘𝐴) · (ℜ‘𝐴)))
34	14	recnd 8175	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐵) ∈ ℂ)
35	34	sqvald 10892	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℜ‘𝐵)↑2) = ((ℜ‘𝐵) · (ℜ‘𝐵)))
36	33, 35	breq12d 4096	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) ↔ ((ℜ‘𝐴) · (ℜ‘𝐴)) # ((ℜ‘𝐵) · (ℜ‘𝐵))))
37		mulext 8761	. . . . . . . 8 ⊢ ((((ℜ‘𝐴) ∈ ℂ ∧ (ℜ‘𝐴) ∈ ℂ) ∧ ((ℜ‘𝐵) ∈ ℂ ∧ (ℜ‘𝐵) ∈ ℂ)) → (((ℜ‘𝐴) · (ℜ‘𝐴)) # ((ℜ‘𝐵) · (ℜ‘𝐵)) → ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℜ‘𝐴) # (ℜ‘𝐵))))
38	32, 32, 34, 34, 37	syl22anc 1272	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴) · (ℜ‘𝐴)) # ((ℜ‘𝐵) · (ℜ‘𝐵)) → ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℜ‘𝐴) # (ℜ‘𝐵))))
39	36, 38	sylbid 150	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) → ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℜ‘𝐴) # (ℜ‘𝐵))))
40		oridm 762	. . . . . 6 ⊢ (((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℜ‘𝐴) # (ℜ‘𝐵)) ↔ (ℜ‘𝐴) # (ℜ‘𝐵))
41	39, 40	imbitrdi 161	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) → (ℜ‘𝐴) # (ℜ‘𝐵)))
42	7	recnd 8175	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐴) ∈ ℂ)
43	42	sqvald 10892	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐴)↑2) = ((ℑ‘𝐴) · (ℑ‘𝐴)))
44	16	recnd 8175	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐵) ∈ ℂ)
45	44	sqvald 10892	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((ℑ‘𝐵)↑2) = ((ℑ‘𝐵) · (ℑ‘𝐵)))
46	43, 45	breq12d 4096	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2) ↔ ((ℑ‘𝐴) · (ℑ‘𝐴)) # ((ℑ‘𝐵) · (ℑ‘𝐵))))
47		mulext 8761	. . . . . . . 8 ⊢ ((((ℑ‘𝐴) ∈ ℂ ∧ (ℑ‘𝐴) ∈ ℂ) ∧ ((ℑ‘𝐵) ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ)) → (((ℑ‘𝐴) · (ℑ‘𝐴)) # ((ℑ‘𝐵) · (ℑ‘𝐵)) → ((ℑ‘𝐴) # (ℑ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
48	42, 42, 44, 44, 47	syl22anc 1272	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℑ‘𝐴) · (ℑ‘𝐴)) # ((ℑ‘𝐵) · (ℑ‘𝐵)) → ((ℑ‘𝐴) # (ℑ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
49	46, 48	sylbid 150	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2) → ((ℑ‘𝐴) # (ℑ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
50		oridm 762	. . . . . 6 ⊢ (((ℑ‘𝐴) # (ℑ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵)) ↔ (ℑ‘𝐴) # (ℑ‘𝐵))
51	49, 50	imbitrdi 161	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2) → (ℑ‘𝐴) # (ℑ‘𝐵)))
52	41, 51	orim12d 791	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((((ℜ‘𝐴)↑2) # ((ℜ‘𝐵)↑2) ∨ ((ℑ‘𝐴)↑2) # ((ℑ‘𝐵)↑2)) → ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
53	31, 52	syld 45	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) → ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
54		apreim 8750	. . . 4 ⊢ ((((ℜ‘𝐴) ∈ ℝ ∧ (ℑ‘𝐴) ∈ ℝ) ∧ ((ℜ‘𝐵) ∈ ℝ ∧ (ℑ‘𝐵) ∈ ℝ)) → (((ℜ‘𝐴) + (i · (ℑ‘𝐴))) # ((ℜ‘𝐵) + (i · (ℑ‘𝐵))) ↔ ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
55	5, 7, 14, 16, 54	syl22anc 1272	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐴) + (i · (ℑ‘𝐴))) # ((ℜ‘𝐵) + (i · (ℑ‘𝐵))) ↔ ((ℜ‘𝐴) # (ℜ‘𝐵) ∨ (ℑ‘𝐴) # (ℑ‘𝐵))))
56	53, 55	sylibrd 169	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) → ((ℜ‘𝐴) + (i · (ℑ‘𝐴))) # ((ℜ‘𝐵) + (i · (ℑ‘𝐵)))))
57	4	replimd 11452	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 𝐴 = ((ℜ‘𝐴) + (i · (ℑ‘𝐴))))
58	13	replimd 11452	. . 3 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
59	57, 58	breq12d 4096	. 2 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (𝐴 # 𝐵 ↔ ((ℜ‘𝐴) + (i · (ℑ‘𝐴))) # ((ℜ‘𝐵) + (i · (ℑ‘𝐵)))))
60	56, 59	sylibrd 169	1 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((abs‘𝐴) # (abs‘𝐵) → 𝐴 # 𝐵))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 713   ∈ wcel 2200   class class class wbr 4083  ‘cfv 5318  (class class class)co 6001  ℂcc 7997  ℝcr 7998  0cc0 7999  ici 8001   + caddc 8002   · cmul 8004   ≤ cle 8182   # cap 8728  2c2 9161  ↑cexp 10760  ℜcre 11351  ℑcim 11352  √csqrt 11507  abscabs 11508

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-coll 4199  ax-sep 4202  ax-nul 4210  ax-pow 4258  ax-pr 4293  ax-un 4524  ax-setind 4629  ax-iinf 4680  ax-cnex 8090  ax-resscn 8091  ax-1cn 8092  ax-1re 8093  ax-icn 8094  ax-addcl 8095  ax-addrcl 8096  ax-mulcl 8097  ax-mulrcl 8098  ax-addcom 8099  ax-mulcom 8100  ax-addass 8101  ax-mulass 8102  ax-distr 8103  ax-i2m1 8104  ax-0lt1 8105  ax-1rid 8106  ax-0id 8107  ax-rnegex 8108  ax-precex 8109  ax-cnre 8110  ax-pre-ltirr 8111  ax-pre-ltwlin 8112  ax-pre-lttrn 8113  ax-pre-apti 8114  ax-pre-ltadd 8115  ax-pre-mulgt0 8116  ax-pre-mulext 8117  ax-arch 8118  ax-caucvg 8119

This theorem depends on definitions:  df-bi 117  df-dc 840  df-3or 1003  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-nel 2496  df-ral 2513  df-rex 2514  df-reu 2515  df-rmo 2516  df-rab 2517  df-v 2801  df-sbc 3029  df-csb 3125  df-dif 3199  df-un 3201  df-in 3203  df-ss 3210  df-nul 3492  df-if 3603  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-uni 3889  df-int 3924  df-iun 3967  df-br 4084  df-opab 4146  df-mpt 4147  df-tr 4183  df-id 4384  df-po 4387  df-iso 4388  df-iord 4457  df-on 4459  df-ilim 4460  df-suc 4462  df-iom 4683  df-xp 4725  df-rel 4726  df-cnv 4727  df-co 4728  df-dm 4729  df-rn 4730  df-res 4731  df-ima 4732  df-iota 5278  df-fun 5320  df-fn 5321  df-f 5322  df-f1 5323  df-fo 5324  df-f1o 5325  df-fv 5326  df-riota 5954  df-ov 6004  df-oprab 6005  df-mpo 6006  df-1st 6286  df-2nd 6287  df-recs 6451  df-frec 6537  df-pnf 8183  df-mnf 8184  df-xr 8185  df-ltxr 8186  df-le 8187  df-sub 8319  df-neg 8320  df-reap 8722  df-ap 8729  df-div 8820  df-inn 9111  df-2 9169  df-3 9170  df-4 9171  df-n0 9370  df-z 9447  df-uz 9723  df-rp 9850  df-seqfrec 10670  df-exp 10761  df-cj 11353  df-re 11354  df-im 11355  df-rsqrt 11509  df-abs 11510

This theorem is referenced by:  abssubap0  11601  absltap  12020  absgtap  12021  apdifflemr  16415