Theorem isocnv 5983

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 5626	. . . 4 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → ◡𝐻:𝐵–1-1-onto→𝐴)
2	1	adantr 276	. . 3 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ◡𝐻:𝐵–1-1-onto→𝐴)
3		f1ocnvfv2 5950	. . . . . . . 8 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ 𝑧 ∈ 𝐵) → (𝐻‘(◡𝐻‘𝑧)) = 𝑧)
4	3	adantrr 479	. . . . . . 7 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝐻‘(◡𝐻‘𝑧)) = 𝑧)
5		f1ocnvfv2 5950	. . . . . . . 8 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ 𝑤 ∈ 𝐵) → (𝐻‘(◡𝐻‘𝑤)) = 𝑤)
6	5	adantrl 478	. . . . . . 7 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝐻‘(◡𝐻‘𝑤)) = 𝑤)
7	4, 6	breq12d 4121	. . . . . 6 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ 𝑧𝑆𝑤))
8	7	adantlr 477	. . . . 5 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ 𝑧𝑆𝑤))
9		f1of 5613	. . . . . . 7 ⊢ (◡𝐻:𝐵–1-1-onto→𝐴 → ◡𝐻:𝐵⟶𝐴)
10	1, 9	syl 14	. . . . . 6 ⊢ (𝐻:𝐴–1-1-onto→𝐵 → ◡𝐻:𝐵⟶𝐴)
11		ffvelcdm 5809	. . . . . . . . 9 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ 𝑧 ∈ 𝐵) → (◡𝐻‘𝑧) ∈ 𝐴)
12		ffvelcdm 5809	. . . . . . . . 9 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ 𝑤 ∈ 𝐵) → (◡𝐻‘𝑤) ∈ 𝐴)
13	11, 12	anim12dan 604	. . . . . . . 8 ⊢ ((◡𝐻:𝐵⟶𝐴 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((◡𝐻‘𝑧) ∈ 𝐴 ∧ (◡𝐻‘𝑤) ∈ 𝐴))
14		breq1 4111	. . . . . . . . . . 11 ⊢ (𝑥 = (◡𝐻‘𝑧) → (𝑥𝑅𝑦 ↔ (◡𝐻‘𝑧)𝑅𝑦))
15		fveq2 5669	. . . . . . . . . . . 12 ⊢ (𝑥 = (◡𝐻‘𝑧) → (𝐻‘𝑥) = (𝐻‘(◡𝐻‘𝑧)))
16	15	breq1d 4118	. . . . . . . . . . 11 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝐻‘𝑥)𝑆(𝐻‘𝑦) ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦)))
17	14, 16	bibi12d 235	. . . . . . . . . 10 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦)) ↔ ((◡𝐻‘𝑧)𝑅𝑦 ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦))))
18		bicom 140	. . . . . . . . . 10 ⊢ (((◡𝐻‘𝑧)𝑅𝑦 ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦)) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦))
19	17, 18	bitrdi 196	. . . . . . . . 9 ⊢ (𝑥 = (◡𝐻‘𝑧) → ((𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦)) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦)))
20		fveq2 5669	. . . . . . . . . . 11 ⊢ (𝑦 = (◡𝐻‘𝑤) → (𝐻‘𝑦) = (𝐻‘(◡𝐻‘𝑤)))
21	20	breq2d 4120	. . . . . . . . . 10 ⊢ (𝑦 = (◡𝐻‘𝑤) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤))))
22		breq2 4112	. . . . . . . . . 10 ⊢ (𝑦 = (◡𝐻‘𝑤) → ((◡𝐻‘𝑧)𝑅𝑦 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
23	21, 22	bibi12d 235	. . . . . . . . 9 ⊢ (𝑦 = (◡𝐻‘𝑤) → (((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘𝑦) ↔ (◡𝐻‘𝑧)𝑅𝑦) ↔ ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
24	19, 23	rspc2va 2934	. . . . . . . 8 ⊢ ((((◡𝐻‘𝑧) ∈ 𝐴 ∧ (◡𝐻‘𝑤) ∈ 𝐴) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
25	13, 24	sylan 283	. . . . . . 7 ⊢ (((◡𝐻:𝐵⟶𝐴 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
26	25	an32s 570	. . . . . 6 ⊢ (((◡𝐻:𝐵⟶𝐴 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
27	10, 26	sylanl1 402	. . . . 5 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝐻‘(◡𝐻‘𝑧))𝑆(𝐻‘(◡𝐻‘𝑤)) ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
28	8, 27	bitr3d 190	. . . 4 ⊢ (((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
29	28	ralrimivva 2624	. . 3 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤)))
30	2, 29	jca 306	. 2 ⊢ ((𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))) → (◡𝐻:𝐵–1-1-onto→𝐴 ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
31		df-isom 5360	. 2 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ↔ (𝐻:𝐴–1-1-onto→𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 ↔ (𝐻‘𝑥)𝑆(𝐻‘𝑦))))
32		df-isom 5360	. 2 ⊢ (◡𝐻 Isom 𝑆, 𝑅 (𝐵, 𝐴) ↔ (◡𝐻:𝐵–1-1-onto→𝐴 ∧ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐵 (𝑧𝑆𝑤 ↔ (◡𝐻‘𝑧)𝑅(◡𝐻‘𝑤))))
33	30, 31, 32	3imtr4i 201	1 ⊢ (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ◡𝐻 Isom 𝑆, 𝑅 (𝐵, 𝐴))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1398   ∈ wcel 2203  ∀wral 2520   class class class wbr 4108  ^◡ccnv 4747  ⟶wf 5347  –1-1-onto→wf1o 5350  ‘cfv 5351   Isom wiso 5352

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-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-14 2206  ax-ext 2214  ax-sep 4227  ax-pow 4286  ax-pr 4321

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-v 2814  df-sbc 3042  df-un 3214  df-in 3216  df-ss 3223  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-br 4109  df-opab 4171  df-id 4413  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-isom 5360

This theorem is referenced by:  isores1  5986  isose  5993  isopo  5995  isoso  5997  isoti  7297  infrenegsupex  9925  infxrnegsupex  11944  relogiso  15730