MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  nrmmetd Structured version   Visualization version   GIF version

Theorem nrmmetd 22189
Description: Show that a group norm generates a metric. Part of Definition 2.2-1 of [Kreyszig] p. 58. (Contributed by NM, 4-Dec-2006.) (Revised by Mario Carneiro, 2-Oct-2015.)
Hypotheses
Ref Expression
nrmmetd.x 𝑋 = (Base‘𝐺)
nrmmetd.m = (-g𝐺)
nrmmetd.z 0 = (0g𝐺)
nrmmetd.g (𝜑𝐺 ∈ Grp)
nrmmetd.f (𝜑𝐹:𝑋⟶ℝ)
nrmmetd.1 ((𝜑𝑥𝑋) → ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ))
nrmmetd.2 ((𝜑 ∧ (𝑥𝑋𝑦𝑋)) → (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)))
Assertion
Ref Expression
nrmmetd (𝜑 → (𝐹 ) ∈ (Met‘𝑋))
Distinct variable groups:   𝑥,𝑦,   𝑥, 0 ,𝑦   𝑥,𝐹,𝑦   𝜑,𝑥,𝑦   𝑥,𝑋,𝑦
Allowed substitution hints:   𝐺(𝑥,𝑦)

Proof of Theorem nrmmetd
Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nrmmetd.f . . 3 (𝜑𝐹:𝑋⟶ℝ)
2 nrmmetd.g . . . 4 (𝜑𝐺 ∈ Grp)
3 nrmmetd.x . . . . 5 𝑋 = (Base‘𝐺)
4 nrmmetd.m . . . . 5 = (-g𝐺)
53, 4grpsubf 17317 . . . 4 (𝐺 ∈ Grp → :(𝑋 × 𝑋)⟶𝑋)
62, 5syl 17 . . 3 (𝜑 :(𝑋 × 𝑋)⟶𝑋)
7 fco 5971 . . 3 ((𝐹:𝑋⟶ℝ ∧ :(𝑋 × 𝑋)⟶𝑋) → (𝐹 ):(𝑋 × 𝑋)⟶ℝ)
81, 6, 7syl2anc 691 . 2 (𝜑 → (𝐹 ):(𝑋 × 𝑋)⟶ℝ)
9 opelxpi 5072 . . . . . . . 8 ((𝑎𝑋𝑏𝑋) → ⟨𝑎, 𝑏⟩ ∈ (𝑋 × 𝑋))
10 fvco3 6185 . . . . . . . 8 (( :(𝑋 × 𝑋)⟶𝑋 ∧ ⟨𝑎, 𝑏⟩ ∈ (𝑋 × 𝑋)) → ((𝐹 )‘⟨𝑎, 𝑏⟩) = (𝐹‘( ‘⟨𝑎, 𝑏⟩)))
116, 9, 10syl2an 493 . . . . . . 7 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝐹 )‘⟨𝑎, 𝑏⟩) = (𝐹‘( ‘⟨𝑎, 𝑏⟩)))
12 df-ov 6552 . . . . . . 7 (𝑎(𝐹 )𝑏) = ((𝐹 )‘⟨𝑎, 𝑏⟩)
13 df-ov 6552 . . . . . . . 8 (𝑎 𝑏) = ( ‘⟨𝑎, 𝑏⟩)
1413fveq2i 6106 . . . . . . 7 (𝐹‘(𝑎 𝑏)) = (𝐹‘( ‘⟨𝑎, 𝑏⟩))
1511, 12, 143eqtr4g 2669 . . . . . 6 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝑎(𝐹 )𝑏) = (𝐹‘(𝑎 𝑏)))
1615eqeq1d 2612 . . . . 5 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝑎(𝐹 )𝑏) = 0 ↔ (𝐹‘(𝑎 𝑏)) = 0))
173, 4grpsubcl 17318 . . . . . . . 8 ((𝐺 ∈ Grp ∧ 𝑎𝑋𝑏𝑋) → (𝑎 𝑏) ∈ 𝑋)
18173expb 1258 . . . . . . 7 ((𝐺 ∈ Grp ∧ (𝑎𝑋𝑏𝑋)) → (𝑎 𝑏) ∈ 𝑋)
192, 18sylan 487 . . . . . 6 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝑎 𝑏) ∈ 𝑋)
20 nrmmetd.1 . . . . . . . 8 ((𝜑𝑥𝑋) → ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ))
2120ralrimiva 2949 . . . . . . 7 (𝜑 → ∀𝑥𝑋 ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ))
22 fveq2 6103 . . . . . . . . . 10 (𝑥 = (𝑎 𝑏) → (𝐹𝑥) = (𝐹‘(𝑎 𝑏)))
2322eqeq1d 2612 . . . . . . . . 9 (𝑥 = (𝑎 𝑏) → ((𝐹𝑥) = 0 ↔ (𝐹‘(𝑎 𝑏)) = 0))
24 eqeq1 2614 . . . . . . . . 9 (𝑥 = (𝑎 𝑏) → (𝑥 = 0 ↔ (𝑎 𝑏) = 0 ))
2523, 24bibi12d 334 . . . . . . . 8 (𝑥 = (𝑎 𝑏) → (((𝐹𝑥) = 0 ↔ 𝑥 = 0 ) ↔ ((𝐹‘(𝑎 𝑏)) = 0 ↔ (𝑎 𝑏) = 0 )))
2625rspccva 3281 . . . . . . 7 ((∀𝑥𝑋 ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ) ∧ (𝑎 𝑏) ∈ 𝑋) → ((𝐹‘(𝑎 𝑏)) = 0 ↔ (𝑎 𝑏) = 0 ))
2721, 26sylan 487 . . . . . 6 ((𝜑 ∧ (𝑎 𝑏) ∈ 𝑋) → ((𝐹‘(𝑎 𝑏)) = 0 ↔ (𝑎 𝑏) = 0 ))
2819, 27syldan 486 . . . . 5 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝐹‘(𝑎 𝑏)) = 0 ↔ (𝑎 𝑏) = 0 ))
29 nrmmetd.z . . . . . . . 8 0 = (0g𝐺)
303, 29, 4grpsubeq0 17324 . . . . . . 7 ((𝐺 ∈ Grp ∧ 𝑎𝑋𝑏𝑋) → ((𝑎 𝑏) = 0𝑎 = 𝑏))
31303expb 1258 . . . . . 6 ((𝐺 ∈ Grp ∧ (𝑎𝑋𝑏𝑋)) → ((𝑎 𝑏) = 0𝑎 = 𝑏))
322, 31sylan 487 . . . . 5 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝑎 𝑏) = 0𝑎 = 𝑏))
3316, 28, 323bitrd 293 . . . 4 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝑎(𝐹 )𝑏) = 0 ↔ 𝑎 = 𝑏))
341adantr 480 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → 𝐹:𝑋⟶ℝ)
3519adantrr 749 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑎 𝑏) ∈ 𝑋)
3634, 35ffvelrnd 6268 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑎 𝑏)) ∈ ℝ)
372adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → 𝐺 ∈ Grp)
38 simprll 798 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → 𝑎𝑋)
39 simprr 792 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → 𝑐𝑋)
403, 4grpsubcl 17318 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ 𝑎𝑋𝑐𝑋) → (𝑎 𝑐) ∈ 𝑋)
4137, 38, 39, 40syl3anc 1318 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑎 𝑐) ∈ 𝑋)
4234, 41ffvelrnd 6268 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑎 𝑐)) ∈ ℝ)
43 simprlr 799 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → 𝑏𝑋)
443, 4grpsubcl 17318 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ 𝑏𝑋𝑐𝑋) → (𝑏 𝑐) ∈ 𝑋)
4537, 43, 39, 44syl3anc 1318 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑏 𝑐) ∈ 𝑋)
4634, 45ffvelrnd 6268 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑏 𝑐)) ∈ ℝ)
4742, 46readdcld 9948 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))) ∈ ℝ)
483, 4grpsubcl 17318 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ 𝑐𝑋𝑎𝑋) → (𝑐 𝑎) ∈ 𝑋)
4937, 39, 38, 48syl3anc 1318 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑐 𝑎) ∈ 𝑋)
5034, 49ffvelrnd 6268 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑐 𝑎)) ∈ ℝ)
513, 4grpsubcl 17318 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ 𝑐𝑋𝑏𝑋) → (𝑐 𝑏) ∈ 𝑋)
5237, 39, 43, 51syl3anc 1318 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑐 𝑏) ∈ 𝑋)
5334, 52ffvelrnd 6268 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑐 𝑏)) ∈ ℝ)
5450, 53readdcld 9948 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝐹‘(𝑐 𝑎)) + (𝐹‘(𝑐 𝑏))) ∈ ℝ)
553, 4grpnnncan2 17335 . . . . . . . . . . 11 ((𝐺 ∈ Grp ∧ (𝑎𝑋𝑏𝑋𝑐𝑋)) → ((𝑎 𝑐) (𝑏 𝑐)) = (𝑎 𝑏))
5637, 38, 43, 39, 55syl13anc 1320 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝑎 𝑐) (𝑏 𝑐)) = (𝑎 𝑏))
5756fveq2d 6107 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘((𝑎 𝑐) (𝑏 𝑐))) = (𝐹‘(𝑎 𝑏)))
58 nrmmetd.2 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥𝑋𝑦𝑋)) → (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)))
5958ralrimivva 2954 . . . . . . . . . . 11 (𝜑 → ∀𝑥𝑋𝑦𝑋 (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)))
6059adantr 480 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ∀𝑥𝑋𝑦𝑋 (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)))
61 oveq1 6556 . . . . . . . . . . . . 13 (𝑥 = (𝑎 𝑐) → (𝑥 𝑦) = ((𝑎 𝑐) 𝑦))
6261fveq2d 6107 . . . . . . . . . . . 12 (𝑥 = (𝑎 𝑐) → (𝐹‘(𝑥 𝑦)) = (𝐹‘((𝑎 𝑐) 𝑦)))
63 fveq2 6103 . . . . . . . . . . . . 13 (𝑥 = (𝑎 𝑐) → (𝐹𝑥) = (𝐹‘(𝑎 𝑐)))
6463oveq1d 6564 . . . . . . . . . . . 12 (𝑥 = (𝑎 𝑐) → ((𝐹𝑥) + (𝐹𝑦)) = ((𝐹‘(𝑎 𝑐)) + (𝐹𝑦)))
6562, 64breq12d 4596 . . . . . . . . . . 11 (𝑥 = (𝑎 𝑐) → ((𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)) ↔ (𝐹‘((𝑎 𝑐) 𝑦)) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹𝑦))))
66 oveq2 6557 . . . . . . . . . . . . 13 (𝑦 = (𝑏 𝑐) → ((𝑎 𝑐) 𝑦) = ((𝑎 𝑐) (𝑏 𝑐)))
6766fveq2d 6107 . . . . . . . . . . . 12 (𝑦 = (𝑏 𝑐) → (𝐹‘((𝑎 𝑐) 𝑦)) = (𝐹‘((𝑎 𝑐) (𝑏 𝑐))))
68 fveq2 6103 . . . . . . . . . . . . 13 (𝑦 = (𝑏 𝑐) → (𝐹𝑦) = (𝐹‘(𝑏 𝑐)))
6968oveq2d 6565 . . . . . . . . . . . 12 (𝑦 = (𝑏 𝑐) → ((𝐹‘(𝑎 𝑐)) + (𝐹𝑦)) = ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))))
7067, 69breq12d 4596 . . . . . . . . . . 11 (𝑦 = (𝑏 𝑐) → ((𝐹‘((𝑎 𝑐) 𝑦)) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹𝑦)) ↔ (𝐹‘((𝑎 𝑐) (𝑏 𝑐))) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐)))))
7165, 70rspc2va 3294 . . . . . . . . . 10 ((((𝑎 𝑐) ∈ 𝑋 ∧ (𝑏 𝑐) ∈ 𝑋) ∧ ∀𝑥𝑋𝑦𝑋 (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦))) → (𝐹‘((𝑎 𝑐) (𝑏 𝑐))) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))))
7241, 45, 60, 71syl21anc 1317 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘((𝑎 𝑐) (𝑏 𝑐))) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))))
7357, 72eqbrtrrd 4607 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑎 𝑏)) ≤ ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))))
74 eleq1 2676 . . . . . . . . . . . . . 14 (𝑏 = 𝑐 → (𝑏𝑋𝑐𝑋))
7574anbi2d 736 . . . . . . . . . . . . 13 (𝑏 = 𝑐 → ((𝑎𝑋𝑏𝑋) ↔ (𝑎𝑋𝑐𝑋)))
7675anbi2d 736 . . . . . . . . . . . 12 (𝑏 = 𝑐 → ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) ↔ (𝜑 ∧ (𝑎𝑋𝑐𝑋))))
77 oveq2 6557 . . . . . . . . . . . . . 14 (𝑏 = 𝑐 → (𝑎 𝑏) = (𝑎 𝑐))
7877fveq2d 6107 . . . . . . . . . . . . 13 (𝑏 = 𝑐 → (𝐹‘(𝑎 𝑏)) = (𝐹‘(𝑎 𝑐)))
79 oveq1 6556 . . . . . . . . . . . . . 14 (𝑏 = 𝑐 → (𝑏 𝑎) = (𝑐 𝑎))
8079fveq2d 6107 . . . . . . . . . . . . 13 (𝑏 = 𝑐 → (𝐹‘(𝑏 𝑎)) = (𝐹‘(𝑐 𝑎)))
8178, 80breq12d 4596 . . . . . . . . . . . 12 (𝑏 = 𝑐 → ((𝐹‘(𝑎 𝑏)) ≤ (𝐹‘(𝑏 𝑎)) ↔ (𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎))))
8276, 81imbi12d 333 . . . . . . . . . . 11 (𝑏 = 𝑐 → (((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘(𝑎 𝑏)) ≤ (𝐹‘(𝑏 𝑎))) ↔ ((𝜑 ∧ (𝑎𝑋𝑐𝑋)) → (𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎)))))
832adantr 480 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → 𝐺 ∈ Grp)
843, 29grpidcl 17273 . . . . . . . . . . . . . 14 (𝐺 ∈ Grp → 0𝑋)
8583, 84syl 17 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → 0𝑋)
86 simprr 792 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → 𝑏𝑋)
87 simprl 790 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → 𝑎𝑋)
883, 4grpsubcl 17318 . . . . . . . . . . . . . 14 ((𝐺 ∈ Grp ∧ 𝑏𝑋𝑎𝑋) → (𝑏 𝑎) ∈ 𝑋)
8983, 86, 87, 88syl3anc 1318 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝑏 𝑎) ∈ 𝑋)
9059adantr 480 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ∀𝑥𝑋𝑦𝑋 (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)))
91 oveq1 6556 . . . . . . . . . . . . . . . 16 (𝑥 = 0 → (𝑥 𝑦) = ( 0 𝑦))
9291fveq2d 6107 . . . . . . . . . . . . . . 15 (𝑥 = 0 → (𝐹‘(𝑥 𝑦)) = (𝐹‘( 0 𝑦)))
93 fveq2 6103 . . . . . . . . . . . . . . . 16 (𝑥 = 0 → (𝐹𝑥) = (𝐹0 ))
9493oveq1d 6564 . . . . . . . . . . . . . . 15 (𝑥 = 0 → ((𝐹𝑥) + (𝐹𝑦)) = ((𝐹0 ) + (𝐹𝑦)))
9592, 94breq12d 4596 . . . . . . . . . . . . . 14 (𝑥 = 0 → ((𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦)) ↔ (𝐹‘( 0 𝑦)) ≤ ((𝐹0 ) + (𝐹𝑦))))
96 oveq2 6557 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑏 𝑎) → ( 0 𝑦) = ( 0 (𝑏 𝑎)))
9796fveq2d 6107 . . . . . . . . . . . . . . 15 (𝑦 = (𝑏 𝑎) → (𝐹‘( 0 𝑦)) = (𝐹‘( 0 (𝑏 𝑎))))
98 fveq2 6103 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑏 𝑎) → (𝐹𝑦) = (𝐹‘(𝑏 𝑎)))
9998oveq2d 6565 . . . . . . . . . . . . . . 15 (𝑦 = (𝑏 𝑎) → ((𝐹0 ) + (𝐹𝑦)) = ((𝐹0 ) + (𝐹‘(𝑏 𝑎))))
10097, 99breq12d 4596 . . . . . . . . . . . . . 14 (𝑦 = (𝑏 𝑎) → ((𝐹‘( 0 𝑦)) ≤ ((𝐹0 ) + (𝐹𝑦)) ↔ (𝐹‘( 0 (𝑏 𝑎))) ≤ ((𝐹0 ) + (𝐹‘(𝑏 𝑎)))))
10195, 100rspc2va 3294 . . . . . . . . . . . . 13 ((( 0𝑋 ∧ (𝑏 𝑎) ∈ 𝑋) ∧ ∀𝑥𝑋𝑦𝑋 (𝐹‘(𝑥 𝑦)) ≤ ((𝐹𝑥) + (𝐹𝑦))) → (𝐹‘( 0 (𝑏 𝑎))) ≤ ((𝐹0 ) + (𝐹‘(𝑏 𝑎))))
10285, 89, 90, 101syl21anc 1317 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘( 0 (𝑏 𝑎))) ≤ ((𝐹0 ) + (𝐹‘(𝑏 𝑎))))
103 eqid 2610 . . . . . . . . . . . . . . . 16 (invg𝐺) = (invg𝐺)
1043, 4, 103, 29grpinvval2 17321 . . . . . . . . . . . . . . 15 ((𝐺 ∈ Grp ∧ (𝑏 𝑎) ∈ 𝑋) → ((invg𝐺)‘(𝑏 𝑎)) = ( 0 (𝑏 𝑎)))
10583, 89, 104syl2anc 691 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((invg𝐺)‘(𝑏 𝑎)) = ( 0 (𝑏 𝑎)))
1063, 4, 103grpinvsub 17320 . . . . . . . . . . . . . . 15 ((𝐺 ∈ Grp ∧ 𝑏𝑋𝑎𝑋) → ((invg𝐺)‘(𝑏 𝑎)) = (𝑎 𝑏))
10783, 86, 87, 106syl3anc 1318 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((invg𝐺)‘(𝑏 𝑎)) = (𝑎 𝑏))
108105, 107eqtr3d 2646 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ( 0 (𝑏 𝑎)) = (𝑎 𝑏))
109108fveq2d 6107 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘( 0 (𝑏 𝑎))) = (𝐹‘(𝑎 𝑏)))
1102, 84syl 17 . . . . . . . . . . . . . . . 16 (𝜑0𝑋)
111 pm5.501 355 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 0 → ((𝐹𝑥) = 0 ↔ (𝑥 = 0 ↔ (𝐹𝑥) = 0)))
112 bicom 211 . . . . . . . . . . . . . . . . . . 19 ((𝑥 = 0 ↔ (𝐹𝑥) = 0) ↔ ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ))
113111, 112syl6bb 275 . . . . . . . . . . . . . . . . . 18 (𝑥 = 0 → ((𝐹𝑥) = 0 ↔ ((𝐹𝑥) = 0 ↔ 𝑥 = 0 )))
11493eqeq1d 2612 . . . . . . . . . . . . . . . . . 18 (𝑥 = 0 → ((𝐹𝑥) = 0 ↔ (𝐹0 ) = 0))
115113, 114bitr3d 269 . . . . . . . . . . . . . . . . 17 (𝑥 = 0 → (((𝐹𝑥) = 0 ↔ 𝑥 = 0 ) ↔ (𝐹0 ) = 0))
116115rspccva 3281 . . . . . . . . . . . . . . . 16 ((∀𝑥𝑋 ((𝐹𝑥) = 0 ↔ 𝑥 = 0 ) ∧ 0𝑋) → (𝐹0 ) = 0)
11721, 110, 116syl2anc 691 . . . . . . . . . . . . . . 15 (𝜑 → (𝐹0 ) = 0)
118117adantr 480 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹0 ) = 0)
119118oveq1d 6564 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝐹0 ) + (𝐹‘(𝑏 𝑎))) = (0 + (𝐹‘(𝑏 𝑎))))
1201adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → 𝐹:𝑋⟶ℝ)
121120, 89ffvelrnd 6268 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘(𝑏 𝑎)) ∈ ℝ)
122121recnd 9947 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘(𝑏 𝑎)) ∈ ℂ)
123122addid2d 10116 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (0 + (𝐹‘(𝑏 𝑎))) = (𝐹‘(𝑏 𝑎)))
124119, 123eqtrd 2644 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ((𝐹0 ) + (𝐹‘(𝑏 𝑎))) = (𝐹‘(𝑏 𝑎)))
125102, 109, 1243brtr3d 4614 . . . . . . . . . . 11 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝐹‘(𝑎 𝑏)) ≤ (𝐹‘(𝑏 𝑎)))
12682, 125chvarv 2251 . . . . . . . . . 10 ((𝜑 ∧ (𝑎𝑋𝑐𝑋)) → (𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎)))
127126adantrlr 755 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎)))
128 eleq1 2676 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑎𝑋𝑏𝑋))
129128anbi1d 737 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → ((𝑎𝑋𝑐𝑋) ↔ (𝑏𝑋𝑐𝑋)))
130129anbi2d 736 . . . . . . . . . . . 12 (𝑎 = 𝑏 → ((𝜑 ∧ (𝑎𝑋𝑐𝑋)) ↔ (𝜑 ∧ (𝑏𝑋𝑐𝑋))))
131 oveq1 6556 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑎 𝑐) = (𝑏 𝑐))
132131fveq2d 6107 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → (𝐹‘(𝑎 𝑐)) = (𝐹‘(𝑏 𝑐)))
133 oveq2 6557 . . . . . . . . . . . . . 14 (𝑎 = 𝑏 → (𝑐 𝑎) = (𝑐 𝑏))
134133fveq2d 6107 . . . . . . . . . . . . 13 (𝑎 = 𝑏 → (𝐹‘(𝑐 𝑎)) = (𝐹‘(𝑐 𝑏)))
135132, 134breq12d 4596 . . . . . . . . . . . 12 (𝑎 = 𝑏 → ((𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎)) ↔ (𝐹‘(𝑏 𝑐)) ≤ (𝐹‘(𝑐 𝑏))))
136130, 135imbi12d 333 . . . . . . . . . . 11 (𝑎 = 𝑏 → (((𝜑 ∧ (𝑎𝑋𝑐𝑋)) → (𝐹‘(𝑎 𝑐)) ≤ (𝐹‘(𝑐 𝑎))) ↔ ((𝜑 ∧ (𝑏𝑋𝑐𝑋)) → (𝐹‘(𝑏 𝑐)) ≤ (𝐹‘(𝑐 𝑏)))))
137136, 126chvarv 2251 . . . . . . . . . 10 ((𝜑 ∧ (𝑏𝑋𝑐𝑋)) → (𝐹‘(𝑏 𝑐)) ≤ (𝐹‘(𝑐 𝑏)))
138137adantrll 754 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑏 𝑐)) ≤ (𝐹‘(𝑐 𝑏)))
13942, 46, 50, 53, 127, 138le2addd 10525 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝐹‘(𝑎 𝑐)) + (𝐹‘(𝑏 𝑐))) ≤ ((𝐹‘(𝑐 𝑎)) + (𝐹‘(𝑐 𝑏))))
14036, 47, 54, 73, 139letrd 10073 . . . . . . 7 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝐹‘(𝑎 𝑏)) ≤ ((𝐹‘(𝑐 𝑎)) + (𝐹‘(𝑐 𝑏))))
14115adantrr 749 . . . . . . 7 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑎(𝐹 )𝑏) = (𝐹‘(𝑎 𝑏)))
1426adantr 480 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → :(𝑋 × 𝑋)⟶𝑋)
143 opelxpi 5072 . . . . . . . . . . 11 ((𝑐𝑋𝑎𝑋) → ⟨𝑐, 𝑎⟩ ∈ (𝑋 × 𝑋))
14439, 38, 143syl2anc 691 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ⟨𝑐, 𝑎⟩ ∈ (𝑋 × 𝑋))
145 fvco3 6185 . . . . . . . . . 10 (( :(𝑋 × 𝑋)⟶𝑋 ∧ ⟨𝑐, 𝑎⟩ ∈ (𝑋 × 𝑋)) → ((𝐹 )‘⟨𝑐, 𝑎⟩) = (𝐹‘( ‘⟨𝑐, 𝑎⟩)))
146142, 144, 145syl2anc 691 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝐹 )‘⟨𝑐, 𝑎⟩) = (𝐹‘( ‘⟨𝑐, 𝑎⟩)))
147 df-ov 6552 . . . . . . . . 9 (𝑐(𝐹 )𝑎) = ((𝐹 )‘⟨𝑐, 𝑎⟩)
148 df-ov 6552 . . . . . . . . . 10 (𝑐 𝑎) = ( ‘⟨𝑐, 𝑎⟩)
149148fveq2i 6106 . . . . . . . . 9 (𝐹‘(𝑐 𝑎)) = (𝐹‘( ‘⟨𝑐, 𝑎⟩))
150146, 147, 1493eqtr4g 2669 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑐(𝐹 )𝑎) = (𝐹‘(𝑐 𝑎)))
151 opelxpi 5072 . . . . . . . . . . 11 ((𝑐𝑋𝑏𝑋) → ⟨𝑐, 𝑏⟩ ∈ (𝑋 × 𝑋))
15239, 43, 151syl2anc 691 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ⟨𝑐, 𝑏⟩ ∈ (𝑋 × 𝑋))
153 fvco3 6185 . . . . . . . . . 10 (( :(𝑋 × 𝑋)⟶𝑋 ∧ ⟨𝑐, 𝑏⟩ ∈ (𝑋 × 𝑋)) → ((𝐹 )‘⟨𝑐, 𝑏⟩) = (𝐹‘( ‘⟨𝑐, 𝑏⟩)))
154142, 152, 153syl2anc 691 . . . . . . . . 9 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝐹 )‘⟨𝑐, 𝑏⟩) = (𝐹‘( ‘⟨𝑐, 𝑏⟩)))
155 df-ov 6552 . . . . . . . . 9 (𝑐(𝐹 )𝑏) = ((𝐹 )‘⟨𝑐, 𝑏⟩)
156 df-ov 6552 . . . . . . . . . 10 (𝑐 𝑏) = ( ‘⟨𝑐, 𝑏⟩)
157156fveq2i 6106 . . . . . . . . 9 (𝐹‘(𝑐 𝑏)) = (𝐹‘( ‘⟨𝑐, 𝑏⟩))
158154, 155, 1573eqtr4g 2669 . . . . . . . 8 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑐(𝐹 )𝑏) = (𝐹‘(𝑐 𝑏)))
159150, 158oveq12d 6567 . . . . . . 7 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏)) = ((𝐹‘(𝑐 𝑎)) + (𝐹‘(𝑐 𝑏))))
160140, 141, 1593brtr4d 4615 . . . . . 6 ((𝜑 ∧ ((𝑎𝑋𝑏𝑋) ∧ 𝑐𝑋)) → (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏)))
161160expr 641 . . . . 5 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (𝑐𝑋 → (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏))))
162161ralrimiv 2948 . . . 4 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → ∀𝑐𝑋 (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏)))
16333, 162jca 553 . . 3 ((𝜑 ∧ (𝑎𝑋𝑏𝑋)) → (((𝑎(𝐹 )𝑏) = 0 ↔ 𝑎 = 𝑏) ∧ ∀𝑐𝑋 (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏))))
164163ralrimivva 2954 . 2 (𝜑 → ∀𝑎𝑋𝑏𝑋 (((𝑎(𝐹 )𝑏) = 0 ↔ 𝑎 = 𝑏) ∧ ∀𝑐𝑋 (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏))))
165 fvex 6113 . . . 4 (Base‘𝐺) ∈ V
1663, 165eqeltri 2684 . . 3 𝑋 ∈ V
167 ismet 21938 . . 3 (𝑋 ∈ V → ((𝐹 ) ∈ (Met‘𝑋) ↔ ((𝐹 ):(𝑋 × 𝑋)⟶ℝ ∧ ∀𝑎𝑋𝑏𝑋 (((𝑎(𝐹 )𝑏) = 0 ↔ 𝑎 = 𝑏) ∧ ∀𝑐𝑋 (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏))))))
168166, 167ax-mp 5 . 2 ((𝐹 ) ∈ (Met‘𝑋) ↔ ((𝐹 ):(𝑋 × 𝑋)⟶ℝ ∧ ∀𝑎𝑋𝑏𝑋 (((𝑎(𝐹 )𝑏) = 0 ↔ 𝑎 = 𝑏) ∧ ∀𝑐𝑋 (𝑎(𝐹 )𝑏) ≤ ((𝑐(𝐹 )𝑎) + (𝑐(𝐹 )𝑏)))))
1698, 164, 168sylanbrc 695 1 (𝜑 → (𝐹 ) ∈ (Met‘𝑋))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wa 383   = wceq 1475  wcel 1977  wral 2896  Vcvv 3173  cop 4131   class class class wbr 4583   × cxp 5036  ccom 5042  wf 5800  cfv 5804  (class class class)co 6549  cr 9814  0cc0 9815   + caddc 9818  cle 9954  Basecbs 15695  0gc0g 15923  Grpcgrp 17245  invgcminusg 17246  -gcsg 17247  Metcme 19553
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-po 4959  df-so 4960  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-1st 7059  df-2nd 7060  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-0g 15925  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-grp 17248  df-minusg 17249  df-sbg 17250  df-met 19561
This theorem is referenced by:  abvmet  22190  tngngpd  22267
  Copyright terms: Public domain W3C validator