Theorem lmhmf1o 21043

Description: A bijective module homomorphism is also converse homomorphic. (Contributed by Stefan O'Rear, 25-Jan-2015.)

Hypotheses

Ref	Expression
lmhmf1o.x	⊢ 𝑋 = (Base‘𝑆)
lmhmf1o.y	⊢ 𝑌 = (Base‘𝑇)

Assertion

Ref	Expression
lmhmf1o	⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (𝐹:𝑋–1-1-onto→𝑌 ↔ ◡𝐹 ∈ (𝑇 LMHom 𝑆)))

Proof of Theorem lmhmf1o

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		lmhmf1o.y	. . 3 ⊢ 𝑌 = (Base‘𝑇)
2		eqid 2740	. . 3 ⊢ ( ·𝑠 ‘𝑇) = ( ·𝑠 ‘𝑇)
3		eqid 2740	. . 3 ⊢ ( ·𝑠 ‘𝑆) = ( ·𝑠 ‘𝑆)
4		eqid 2740	. . 3 ⊢ (Scalar‘𝑇) = (Scalar‘𝑇)
5		eqid 2740	. . 3 ⊢ (Scalar‘𝑆) = (Scalar‘𝑆)
6		eqid 2740	. . 3 ⊢ (Base‘(Scalar‘𝑇)) = (Base‘(Scalar‘𝑇))
7		lmhmlmod2 21029	. . . 4 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝑇 ∈ LMod)
8	7	adantr 481	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → 𝑇 ∈ LMod)
9		lmhmlmod1 21030	. . . 4 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝑆 ∈ LMod)
10	9	adantr 481	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → 𝑆 ∈ LMod)
11	5, 4	lmhmsca 21027	. . . . 5 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (Scalar‘𝑇) = (Scalar‘𝑆))
12	11	eqcomd 2746	. . . 4 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (Scalar‘𝑆) = (Scalar‘𝑇))
13	12	adantr 481	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → (Scalar‘𝑆) = (Scalar‘𝑇))
14		lmghm 21028	. . . . 5 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
15		lmhmf1o.x	. . . . . 6 ⊢ 𝑋 = (Base‘𝑆)
16	15, 1	ghmf1o 19221	. . . . 5 ⊢ (𝐹 ∈ (𝑆 GrpHom 𝑇) → (𝐹:𝑋–1-1-onto→𝑌 ↔ ◡𝐹 ∈ (𝑇 GrpHom 𝑆)))
17	14, 16	syl 17	. . . 4 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (𝐹:𝑋–1-1-onto→𝑌 ↔ ◡𝐹 ∈ (𝑇 GrpHom 𝑆)))
18	17	biimpa 477	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → ◡𝐹 ∈ (𝑇 GrpHom 𝑆))
19		simpll 772	. . . . . 6 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → 𝐹 ∈ (𝑆 LMHom 𝑇))
20	13	fveq2d 6838	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → (Base‘(Scalar‘𝑆)) = (Base‘(Scalar‘𝑇)))
21	20	eleq2d 2826	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → (𝑎 ∈ (Base‘(Scalar‘𝑆)) ↔ 𝑎 ∈ (Base‘(Scalar‘𝑇))))
22	21	biimpar 478	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑇))) → 𝑎 ∈ (Base‘(Scalar‘𝑆)))
23	22	adantrr 723	. . . . . 6 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → 𝑎 ∈ (Base‘(Scalar‘𝑆)))
24		f1ocnv 6786	. . . . . . . . . 10 ⊢ (𝐹:𝑋–1-1-onto→𝑌 → ◡𝐹:𝑌–1-1-onto→𝑋)
25		f1of 6774	. . . . . . . . . 10 ⊢ (◡𝐹:𝑌–1-1-onto→𝑋 → ◡𝐹:𝑌⟶𝑋)
26	24, 25	syl 17	. . . . . . . . 9 ⊢ (𝐹:𝑋–1-1-onto→𝑌 → ◡𝐹:𝑌⟶𝑋)
27	26	adantl 482	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → ◡𝐹:𝑌⟶𝑋)
28	27	ffvelcdmda 7032	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ 𝑏 ∈ 𝑌) → (◡𝐹‘𝑏) ∈ 𝑋)
29	28	adantrl 722	. . . . . 6 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (◡𝐹‘𝑏) ∈ 𝑋)
30		eqid 2740	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑆)) = (Base‘(Scalar‘𝑆))
31	5, 30, 15, 3, 2	lmhmlin 21032	. . . . . 6 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑆)) ∧ (◡𝐹‘𝑏) ∈ 𝑋) → (𝐹‘(𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)(𝐹‘(◡𝐹‘𝑏))))
32	19, 23, 29, 31	syl3anc 1379	. . . . 5 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (𝐹‘(𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)(𝐹‘(◡𝐹‘𝑏))))
33		f1ocnvfv2 7228	. . . . . . 7 ⊢ ((𝐹:𝑋–1-1-onto→𝑌 ∧ 𝑏 ∈ 𝑌) → (𝐹‘(◡𝐹‘𝑏)) = 𝑏)
34	33	ad2ant2l 752	. . . . . 6 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (𝐹‘(◡𝐹‘𝑏)) = 𝑏)
35	34	oveq2d 7379	. . . . 5 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (𝑎( ·𝑠 ‘𝑇)(𝐹‘(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)𝑏))
36	32, 35	eqtrd 2775	. . . 4 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (𝐹‘(𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)𝑏))
37		simplr 774	. . . . 5 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → 𝐹:𝑋–1-1-onto→𝑌)
38	10	adantr 481	. . . . . 6 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → 𝑆 ∈ LMod)
39	15, 5, 3, 30	lmodvscl 20875	. . . . . 6 ⊢ ((𝑆 ∈ LMod ∧ 𝑎 ∈ (Base‘(Scalar‘𝑆)) ∧ (◡𝐹‘𝑏) ∈ 𝑋) → (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏)) ∈ 𝑋)
40	38, 23, 29, 39	syl3anc 1379	. . . . 5 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏)) ∈ 𝑋)
41		f1ocnvfv 7229	. . . . 5 ⊢ ((𝐹:𝑋–1-1-onto→𝑌 ∧ (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏)) ∈ 𝑋) → ((𝐹‘(𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)𝑏) → (◡𝐹‘(𝑎( ·𝑠 ‘𝑇)𝑏)) = (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))))
42	37, 40, 41	syl2anc 590	. . . 4 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → ((𝐹‘(𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))) = (𝑎( ·𝑠 ‘𝑇)𝑏) → (◡𝐹‘(𝑎( ·𝑠 ‘𝑇)𝑏)) = (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏))))
43	36, 42	mpd 15	. . 3 ⊢ (((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑇)) ∧ 𝑏 ∈ 𝑌)) → (◡𝐹‘(𝑎( ·𝑠 ‘𝑇)𝑏)) = (𝑎( ·𝑠 ‘𝑆)(◡𝐹‘𝑏)))
44	1, 2, 3, 4, 5, 6, 8, 10, 13, 18, 43	islmhmd 21036	. 2 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝐹:𝑋–1-1-onto→𝑌) → ◡𝐹 ∈ (𝑇 LMHom 𝑆))
45	15, 1	lmhmf 21031	. . . . 5 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑋⟶𝑌)
46	45	ffnd 6663	. . . 4 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹 Fn 𝑋)
47	46	adantr 481	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ ◡𝐹 ∈ (𝑇 LMHom 𝑆)) → 𝐹 Fn 𝑋)
48	1, 15	lmhmf 21031	. . . . 5 ⊢ (◡𝐹 ∈ (𝑇 LMHom 𝑆) → ◡𝐹:𝑌⟶𝑋)
49	48	adantl 482	. . . 4 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ ◡𝐹 ∈ (𝑇 LMHom 𝑆)) → ◡𝐹:𝑌⟶𝑋)
50	49	ffnd 6663	. . 3 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ ◡𝐹 ∈ (𝑇 LMHom 𝑆)) → ◡𝐹 Fn 𝑌)
51		dff1o4 6782	. . 3 ⊢ (𝐹:𝑋–1-1-onto→𝑌 ↔ (𝐹 Fn 𝑋 ∧ ◡𝐹 Fn 𝑌))
52	47, 50, 51	sylanbrc 589	. 2 ⊢ ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ ◡𝐹 ∈ (𝑇 LMHom 𝑆)) → 𝐹:𝑋–1-1-onto→𝑌)
53	44, 52	impbida 806	1 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (𝐹:𝑋–1-1-onto→𝑌 ↔ ◡𝐹 ∈ (𝑇 LMHom 𝑆)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  ^◡ccnv 5624   Fn wfn 6487  ⟶wf 6488  –1-1-onto→wf1o 6491  ‘cfv 6492  (class class class)co 7363  Basecbs 17177  Scalarcsca 17221   ·_𝑠 cvsca 17222   GrpHom cghm 19185  LModclmod 20857   LMHom clmhm 21016

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-ov 7366  df-oprab 7367  df-mpo 7368  df-1st 7938  df-2nd 7939  df-map 8772  df-mgm 18606  df-sgrp 18685  df-mnd 18701  df-grp 18910  df-ghm 19186  df-lmod 20859  df-lmhm 21019

This theorem is referenced by:  islmim2  21063