Theorem tngngp2 22266

Description: A norm turns a group into a normed group iff the generated metric is in fact a metric. (Contributed by Mario Carneiro, 4-Oct-2015.)

Hypotheses

Ref	Expression
tngngp2.t	⊢ 𝑇 = (𝐺 toNrmGrp 𝑁)
tngngp2.x	⊢ 𝑋 = (Base‘𝐺)
tngngp2.d	⊢ 𝐷 = (dist‘𝑇)

Assertion

Ref	Expression
tngngp2	⊢ (𝑁:𝑋⟶ℝ → (𝑇 ∈ NrmGrp ↔ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))))

Proof of Theorem tngngp2

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ngpgrp 22213	. . . . 5 ⊢ (𝑇 ∈ NrmGrp → 𝑇 ∈ Grp)
2		tngngp2.x	. . . . . . . 8 ⊢ 𝑋 = (Base‘𝐺)
3		fvex 6113	. . . . . . . 8 ⊢ (Base‘𝐺) ∈ V
4	2, 3	eqeltri 2684	. . . . . . 7 ⊢ 𝑋 ∈ V
5		reex 9906	. . . . . . 7 ⊢ ℝ ∈ V
6		fex2 7014	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑋 ∈ V ∧ ℝ ∈ V) → 𝑁 ∈ V)
7	4, 5, 6	mp3an23 1408	. . . . . 6 ⊢ (𝑁:𝑋⟶ℝ → 𝑁 ∈ V)
8	2	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ V → 𝑋 = (Base‘𝐺))
9		tngngp2.t	. . . . . . . 8 ⊢ 𝑇 = (𝐺 toNrmGrp 𝑁)
10	9, 2	tngbas 22255	. . . . . . 7 ⊢ (𝑁 ∈ V → 𝑋 = (Base‘𝑇))
11		eqid 2610	. . . . . . . . 9 ⊢ (+g‘𝐺) = (+g‘𝐺)
12	9, 11	tngplusg 22256	. . . . . . . 8 ⊢ (𝑁 ∈ V → (+g‘𝐺) = (+g‘𝑇))
13	12	oveqdr 6573	. . . . . . 7 ⊢ ((𝑁 ∈ V ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥(+g‘𝐺)𝑦) = (𝑥(+g‘𝑇)𝑦))
14	8, 10, 13	grppropd 17260	. . . . . 6 ⊢ (𝑁 ∈ V → (𝐺 ∈ Grp ↔ 𝑇 ∈ Grp))
15	7, 14	syl 17	. . . . 5 ⊢ (𝑁:𝑋⟶ℝ → (𝐺 ∈ Grp ↔ 𝑇 ∈ Grp))
16	1, 15	syl5ibr 235	. . . 4 ⊢ (𝑁:𝑋⟶ℝ → (𝑇 ∈ NrmGrp → 𝐺 ∈ Grp))
17	16	imp 444	. . 3 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝐺 ∈ Grp)
18		ngpms 22214	. . . . . 6 ⊢ (𝑇 ∈ NrmGrp → 𝑇 ∈ MetSp)
19	18	adantl 481	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝑇 ∈ MetSp)
20		eqid 2610	. . . . . 6 ⊢ (Base‘𝑇) = (Base‘𝑇)
21		tngngp2.d	. . . . . 6 ⊢ 𝐷 = (dist‘𝑇)
22	20, 21	msmet2 22075	. . . . 5 ⊢ (𝑇 ∈ MetSp → (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) ∈ (Met‘(Base‘𝑇)))
23	19, 22	syl 17	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) ∈ (Met‘(Base‘𝑇)))
24		eqid 2610	. . . . . . . . . 10 ⊢ (-g‘𝐺) = (-g‘𝐺)
25	2, 24	grpsubf 17317	. . . . . . . . 9 ⊢ (𝐺 ∈ Grp → (-g‘𝐺):(𝑋 × 𝑋)⟶𝑋)
26	17, 25	syl 17	. . . . . . . 8 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (-g‘𝐺):(𝑋 × 𝑋)⟶𝑋)
27		fco 5971	. . . . . . . 8 ⊢ ((𝑁:𝑋⟶ℝ ∧ (-g‘𝐺):(𝑋 × 𝑋)⟶𝑋) → (𝑁 ∘ (-g‘𝐺)):(𝑋 × 𝑋)⟶ℝ)
28	26, 27	syldan 486	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝑁 ∘ (-g‘𝐺)):(𝑋 × 𝑋)⟶ℝ)
29	7	adantr 480	. . . . . . . . . 10 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝑁 ∈ V)
30	9, 24	tngds 22262	. . . . . . . . . 10 ⊢ (𝑁 ∈ V → (𝑁 ∘ (-g‘𝐺)) = (dist‘𝑇))
31	29, 30	syl 17	. . . . . . . . 9 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝑁 ∘ (-g‘𝐺)) = (dist‘𝑇))
32	31, 21	syl6reqr 2663	. . . . . . . 8 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝐷 = (𝑁 ∘ (-g‘𝐺)))
33	32	feq1d 5943	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝐷:(𝑋 × 𝑋)⟶ℝ ↔ (𝑁 ∘ (-g‘𝐺)):(𝑋 × 𝑋)⟶ℝ))
34	28, 33	mpbird 246	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝐷:(𝑋 × 𝑋)⟶ℝ)
35		ffn 5958	. . . . . 6 ⊢ (𝐷:(𝑋 × 𝑋)⟶ℝ → 𝐷 Fn (𝑋 × 𝑋))
36		fnresdm 5914	. . . . . 6 ⊢ (𝐷 Fn (𝑋 × 𝑋) → (𝐷 ↾ (𝑋 × 𝑋)) = 𝐷)
37	34, 35, 36	3syl 18	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝐷 ↾ (𝑋 × 𝑋)) = 𝐷)
38	29, 10	syl 17	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝑋 = (Base‘𝑇))
39	38	sqxpeqd 5065	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝑋 × 𝑋) = ((Base‘𝑇) × (Base‘𝑇)))
40	39	reseq2d 5317	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝐷 ↾ (𝑋 × 𝑋)) = (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))))
41	37, 40	eqtr3d 2646	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝐷 = (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))))
42	38	fveq2d 6107	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (Met‘𝑋) = (Met‘(Base‘𝑇)))
43	23, 41, 42	3eltr4d 2703	. . 3 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → 𝐷 ∈ (Met‘𝑋))
44	17, 43	jca 553	. 2 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝑇 ∈ NrmGrp) → (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋)))
45	15	biimpa 500	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ 𝐺 ∈ Grp) → 𝑇 ∈ Grp)
46	45	adantrr 749	. . 3 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑇 ∈ Grp)
47		simprr 792	. . . . . . . 8 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝐷 ∈ (Met‘𝑋))
48	7	adantr 480	. . . . . . . . . 10 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑁 ∈ V)
49	48, 10	syl 17	. . . . . . . . 9 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑋 = (Base‘𝑇))
50	49	fveq2d 6107	. . . . . . . 8 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (Met‘𝑋) = (Met‘(Base‘𝑇)))
51	47, 50	eleqtrd 2690	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝐷 ∈ (Met‘(Base‘𝑇)))
52		metf 21945	. . . . . . 7 ⊢ (𝐷 ∈ (Met‘(Base‘𝑇)) → 𝐷:((Base‘𝑇) × (Base‘𝑇))⟶ℝ)
53	51, 52	syl 17	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝐷:((Base‘𝑇) × (Base‘𝑇))⟶ℝ)
54		ffn 5958	. . . . . 6 ⊢ (𝐷:((Base‘𝑇) × (Base‘𝑇))⟶ℝ → 𝐷 Fn ((Base‘𝑇) × (Base‘𝑇)))
55		fnresdm 5914	. . . . . 6 ⊢ (𝐷 Fn ((Base‘𝑇) × (Base‘𝑇)) → (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) = 𝐷)
56	53, 54, 55	3syl 18	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) = 𝐷)
57	56, 51	eqeltrd 2688	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) ∈ (Met‘(Base‘𝑇)))
58	56	fveq2d 6107	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (MetOpen‘(𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇)))) = (MetOpen‘𝐷))
59		simprl 790	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝐺 ∈ Grp)
60		eqid 2610	. . . . . . 7 ⊢ (MetOpen‘𝐷) = (MetOpen‘𝐷)
61	9, 21, 60	tngtopn 22264	. . . . . 6 ⊢ ((𝐺 ∈ Grp ∧ 𝑁 ∈ V) → (MetOpen‘𝐷) = (TopOpen‘𝑇))
62	59, 48, 61	syl2anc 691	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (MetOpen‘𝐷) = (TopOpen‘𝑇))
63	58, 62	eqtr2d 2645	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (TopOpen‘𝑇) = (MetOpen‘(𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇)))))
64		eqid 2610	. . . . 5 ⊢ (TopOpen‘𝑇) = (TopOpen‘𝑇)
65	21	reseq1i 5313	. . . . 5 ⊢ (𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) = ((dist‘𝑇) ↾ ((Base‘𝑇) × (Base‘𝑇)))
66	64, 20, 65	isms2 22065	. . . 4 ⊢ (𝑇 ∈ MetSp ↔ ((𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))) ∈ (Met‘(Base‘𝑇)) ∧ (TopOpen‘𝑇) = (MetOpen‘(𝐷 ↾ ((Base‘𝑇) × (Base‘𝑇))))))
67	57, 63, 66	sylanbrc 695	. . 3 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑇 ∈ MetSp)
68		simpl 472	. . . . . . 7 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑁:𝑋⟶ℝ)
69	9, 2, 5	tngnm 22265	. . . . . . 7 ⊢ ((𝐺 ∈ Grp ∧ 𝑁:𝑋⟶ℝ) → 𝑁 = (norm‘𝑇))
70	59, 68, 69	syl2anc 691	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑁 = (norm‘𝑇))
71	8, 10	eqtr3d 2646	. . . . . . . 8 ⊢ (𝑁 ∈ V → (Base‘𝐺) = (Base‘𝑇))
72	71, 12	grpsubpropd 17343	. . . . . . 7 ⊢ (𝑁 ∈ V → (-g‘𝐺) = (-g‘𝑇))
73	48, 72	syl 17	. . . . . 6 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (-g‘𝐺) = (-g‘𝑇))
74	70, 73	coeq12d 5208	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (𝑁 ∘ (-g‘𝐺)) = ((norm‘𝑇) ∘ (-g‘𝑇)))
75	48, 30	syl 17	. . . . 5 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → (𝑁 ∘ (-g‘𝐺)) = (dist‘𝑇))
76	74, 75	eqtr3d 2646	. . . 4 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → ((norm‘𝑇) ∘ (-g‘𝑇)) = (dist‘𝑇))
77		eqimss 3620	. . . 4 ⊢ (((norm‘𝑇) ∘ (-g‘𝑇)) = (dist‘𝑇) → ((norm‘𝑇) ∘ (-g‘𝑇)) ⊆ (dist‘𝑇))
78	76, 77	syl 17	. . 3 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → ((norm‘𝑇) ∘ (-g‘𝑇)) ⊆ (dist‘𝑇))
79		eqid 2610	. . . 4 ⊢ (norm‘𝑇) = (norm‘𝑇)
80		eqid 2610	. . . 4 ⊢ (-g‘𝑇) = (-g‘𝑇)
81		eqid 2610	. . . 4 ⊢ (dist‘𝑇) = (dist‘𝑇)
82	79, 80, 81	isngp 22210	. . 3 ⊢ (𝑇 ∈ NrmGrp ↔ (𝑇 ∈ Grp ∧ 𝑇 ∈ MetSp ∧ ((norm‘𝑇) ∘ (-g‘𝑇)) ⊆ (dist‘𝑇)))
83	46, 67, 78, 82	syl3anbrc 1239	. 2 ⊢ ((𝑁:𝑋⟶ℝ ∧ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))) → 𝑇 ∈ NrmGrp)
84	44, 83	impbida 873	1 ⊢ (𝑁:𝑋⟶ℝ → (𝑇 ∈ NrmGrp ↔ (𝐺 ∈ Grp ∧ 𝐷 ∈ (Met‘𝑋))))

Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   = wceq 1475   ∈ wcel 1977  Vcvv 3173   ⊆ wss 3540   × cxp 5036   ↾ cres 5040   ∘ ccom 5042   Fn wfn 5799  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549  ℝcr 9814  Basecbs 15695  +_gcplusg 15768  distcds 15777  TopOpenctopn 15905  Grpcgrp 17245  -_gcsg 17247  Metcme 19553  MetOpencmopn 19557  MetSpcmt 21933  normcnm 22191  NrmGrpcngp 22192   toNrmGrp ctng 22193

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  ax-pre-mulgt0 9892  ax-pre-sup 9893

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-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  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-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  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-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-sup 8231  df-inf 8232  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-dec 11370  df-uz 11564  df-q 11665  df-rp 11709  df-xneg 11822  df-xadd 11823  df-xmul 11824  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-plusg 15781  df-tset 15787  df-ds 15791  df-rest 15906  df-topn 15907  df-0g 15925  df-topgen 15927  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-grp 17248  df-minusg 17249  df-sbg 17250  df-psmet 19559  df-xmet 19560  df-met 19561  df-bl 19562  df-mopn 19563  df-top 20521  df-bases 20522  df-topon 20523  df-topsp 20524  df-xms 21935  df-ms 21936  df-nm 22197  df-ngp 22198  df-tng 22199

This theorem is referenced by:  tngngpd  22267  tngngp  22268  nrmtngnrm  22272  tngngpim  22273  tngnrg  22288