Theorem isocnv 7238

Description: Converse law for isomorphism. Proposition 6.30(2) of [TakeutiZaring] p. 33. (Contributed by NM, 27-Apr-2004.)

Assertion

Ref	Expression
isocnv	⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ◡𝐻 Isom 𝑆, 𝑅 (𝐵, 𝐴))

Proof of Theorem isocnv

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

Step	Hyp	Ref	Expression
1		f1ocnv 6763	. . . 4 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → ◡𝐻:𝐵–1-1-onto→𝐴)
2	1	adantr 481	. . 3 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ◡𝐻:𝐵–1-1-onto→𝐴)
3		f1ocnvfv2 7186	. . . . . . . 8 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ 𝑧 ∈ 𝐵) → (𝐻‘(◡𝐻‘𝑧)) = 𝑧)
4	3	adantrr 714	. . . . . . 7 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝐻‘(◡𝐻‘𝑧)) = 𝑧)
5		f1ocnvfv2 7186	. . . . . . . 8 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ 𝑤 ∈ 𝐵) → (𝐻‘(◡𝐻‘𝑤)) = 𝑤)
6	5	adantrl 713	. . . . . . 7 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝐻‘(◡𝐻‘𝑤)) = 𝑤)
7	4, 6	breq12d 5098	. . . . . 6 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ 𝑧𝑆𝑤))
8	7	adantlr 712	. . . . 5 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ 𝑧𝑆𝑤))
9		f1of 6751	. . . . . . 7 ⊢ (◡𝐻:𝐵–1-1-onto→𝐴 → ◡𝐻:𝐵⟶𝐴)
10	1, 9	syl 17	. . . . . 6 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → ◡𝐻:𝐵⟶𝐴)
11		ffvelcdm 6996	. . . . . . . . 9 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ 𝑧 ∈ 𝐵) → (◡𝐻‘𝑧) ∈ 𝐴)
12		ffvelcdm 6996	. . . . . . . . 9 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ 𝑤 ∈ 𝐵) → (◡𝐻‘𝑤) ∈ 𝐴)
13	11, 12	anim12dan 619	. . . . . . . 8 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((◡𝐻‘𝑧) ∈ 𝐴 ∧ (◡𝐻‘𝑤) ∈ 𝐴))
14		breq1 5088	. . . . . . . . . . 11 ⊢ (𝑥 = (◡𝐻‘𝑧) → (𝑥𝑅𝑦 ↔ (◡𝐻‘𝑧)𝑅𝑦))
15		fveq2 6809	. . . . . . . . . . . 12 ⊢ (𝑥 = (◡𝐻‘𝑧) → (𝐻‘𝑥) = (𝐻‘(◡𝐻‘𝑧)))
16	15	breq1d 5095	. . . . . . . . . . 11 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝐻‘𝑥)𝑆(𝐻‘𝑦) ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦)))
17	14, 16	bibi12d 345	. . . . . . . . . 10 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦)) ↔ ((◡𝐻‘𝑧)𝑅𝑦 ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦))))
18		bicom 221	. . . . . . . . . 10 ⊢ (((◡𝐻‘𝑧)𝑅𝑦 ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦)) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦))
19	17, 18	bitrdi 286	. . . . . . . . 9 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦)) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦)))
20		fveq2 6809	. . . . . . . . . . 11 ⊢ (𝑦 = (◡𝐻‘𝑤) → (𝐻‘𝑦) = (𝐻‘(◡𝐻‘𝑤)))
21	20	breq2d 5097	. . . . . . . . . 10 ⊢ (𝑦 = (◡𝐻‘𝑤) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤))))
22		breq2 5089	. . . . . . . . . 10 ⊢ (𝑦 = (◡𝐻‘𝑤) → ((◡𝐻‘𝑧)𝑅𝑦 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
23	21, 22	bibi12d 345	. . . . . . . . 9 ⊢ (𝑦 = (◡𝐻‘𝑤) → (((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
24	19, 23	rspc2va 3580	. . . . . . . 8 ⊢ ((((◡𝐻‘𝑧) ∈ 𝐴 ∧ (◡𝐻‘𝑤) ∈ 𝐴) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
25	13, 24	sylan 580	. . . . . . 7 ⊢ (((◡𝐻:𝐵⟶𝐴 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
26	25	an32s 649	. . . . . 6 ⊢ (((◡𝐻:𝐵⟶𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
27	10, 26	sylanl1 677	. . . . 5 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
28	8, 27	bitr3d 280	. . . 4 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
29	28	ralrimivva 3194	. . 3 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
30	2, 29	jca 512	. 2 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → (◡𝐻:𝐵–1-1-onto→𝐴 ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
31		df-isom 6472	. 2 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ↔ (𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))))
32		df-isom 6472	. 2 ⊢ (◡𝐻 Isom 𝑆, 𝑅 (𝐵, 𝐴) ↔ (◡𝐻:𝐵–1-1-onto→𝐴 ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
33	30, 31, 32	3imtr4i 291	1 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ◡𝐻 Isom 𝑆, 𝑅 (𝐵, 𝐴))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1540   ∈ wcel 2105  ∀wral 3062   class class class wbr 5085  ^◡ccnv 5604  ⟶wf 6459  –1-1-onto→wf1o 6462  ‘cfv 6463   Isom wiso 6464

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-sep 5236  ax-nul 5243  ax-pr 5365

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3405  df-v 3443  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-nul 4267  df-if 4470  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4849  df-br 5086  df-opab 5148  df-id 5505  df-xp 5611  df-rel 5612  df-cnv 5613  df-co 5614  df-dm 5615  df-rn 5616  df-res 5617  df-ima 5618  df-iota 6415  df-fun 6465  df-fn 6466  df-f 6467  df-f1 6468  df-fo 6469  df-f1o 6470  df-fv 6471  df-isom 6472

This theorem is referenced by:  isores1  7242  isofr  7250  isose  7251  isopo  7254  isoso  7256  weisoeq  7263  weisoeq2  7264  fnwelem  8014  oieu  9366  oemapwe  9520  cantnffval2  9521  wemapwe  9523  infxpenlem  9839  fpwwe2lem6  10462  fpwwe2lem8  10464  infrenegsup  12028  ltweuz  13751  fz1isolem  14244  ordthmeo  23024  relogiso  25824  erdsze2lem2  33272  fzisoeu  43082