ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  f1oiso GIF version

Theorem f1oiso 5544
Description: Any one-to-one onto function determines an isomorphism with an induced relation 𝑆. Proposition 6.33 of [TakeutiZaring] p. 34. (Contributed by NM, 30-Apr-2004.)
Assertion
Ref Expression
f1oiso ((𝐻:𝐴1-1-onto𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝐴   𝑥,𝐵,𝑦   𝑥,𝐻,𝑦,𝑧,𝑤   𝑥,𝑅,𝑦,𝑧,𝑤
Allowed substitution hints:   𝐵(𝑧,𝑤)   𝑆(𝑥,𝑦,𝑧,𝑤)

Proof of Theorem f1oiso
Dummy variables 𝑣 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 107 . 2 ((𝐻:𝐴1-1-onto𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → 𝐻:𝐴1-1-onto𝐵)
2 f1of1 5200 . . 3 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴1-1𝐵)
3 df-br 3812 . . . . 5 ((𝐻𝑣)𝑆(𝐻𝑢) ↔ ⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ 𝑆)
4 eleq2 2146 . . . . . . 7 (𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)} → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ 𝑆 ↔ ⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}))
5 f1fn 5166 . . . . . . . . 9 (𝐻:𝐴1-1𝐵𝐻 Fn 𝐴)
6 funfvex 5267 . . . . . . . . . . . 12 ((Fun 𝐻𝑣 ∈ dom 𝐻) → (𝐻𝑣) ∈ V)
76funfni 5067 . . . . . . . . . . 11 ((𝐻 Fn 𝐴𝑣𝐴) → (𝐻𝑣) ∈ V)
8 funfvex 5267 . . . . . . . . . . . 12 ((Fun 𝐻𝑢 ∈ dom 𝐻) → (𝐻𝑢) ∈ V)
98funfni 5067 . . . . . . . . . . 11 ((𝐻 Fn 𝐴𝑢𝐴) → (𝐻𝑢) ∈ V)
107, 9anim12dan 565 . . . . . . . . . 10 ((𝐻 Fn 𝐴 ∧ (𝑣𝐴𝑢𝐴)) → ((𝐻𝑣) ∈ V ∧ (𝐻𝑢) ∈ V))
11 eqeq1 2089 . . . . . . . . . . . . . 14 (𝑧 = (𝐻𝑣) → (𝑧 = (𝐻𝑥) ↔ (𝐻𝑣) = (𝐻𝑥)))
1211anbi1d 453 . . . . . . . . . . . . 13 (𝑧 = (𝐻𝑣) → ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ↔ ((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦))))
1312anbi1d 453 . . . . . . . . . . . 12 (𝑧 = (𝐻𝑣) → (((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ (((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
14132rexbidv 2397 . . . . . . . . . . 11 (𝑧 = (𝐻𝑣) → (∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
15 eqeq1 2089 . . . . . . . . . . . . . 14 (𝑤 = (𝐻𝑢) → (𝑤 = (𝐻𝑦) ↔ (𝐻𝑢) = (𝐻𝑦)))
1615anbi2d 452 . . . . . . . . . . . . 13 (𝑤 = (𝐻𝑢) → (((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ↔ ((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦))))
1716anbi1d 453 . . . . . . . . . . . 12 (𝑤 = (𝐻𝑢) → ((((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
18172rexbidv 2397 . . . . . . . . . . 11 (𝑤 = (𝐻𝑢) → (∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
1914, 18opelopabg 4059 . . . . . . . . . 10 (((𝐻𝑣) ∈ V ∧ (𝐻𝑢) ∈ V) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)} ↔ ∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
2010, 19syl 14 . . . . . . . . 9 ((𝐻 Fn 𝐴 ∧ (𝑣𝐴𝑢𝐴)) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)} ↔ ∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
215, 20sylan 277 . . . . . . . 8 ((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑢𝐴)) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)} ↔ ∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)))
22 anass 393 . . . . . . . . . . . . . . 15 ((((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ((𝐻𝑣) = (𝐻𝑥) ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)))
23 f1fveq 5491 . . . . . . . . . . . . . . . . . 18 ((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑥𝐴)) → ((𝐻𝑣) = (𝐻𝑥) ↔ 𝑣 = 𝑥))
24 equcom 1635 . . . . . . . . . . . . . . . . . 18 (𝑣 = 𝑥𝑥 = 𝑣)
2523, 24syl6bb 194 . . . . . . . . . . . . . . . . 17 ((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑥𝐴)) → ((𝐻𝑣) = (𝐻𝑥) ↔ 𝑥 = 𝑣))
2625anassrs 392 . . . . . . . . . . . . . . . 16 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ 𝑥𝐴) → ((𝐻𝑣) = (𝐻𝑥) ↔ 𝑥 = 𝑣))
2726anbi1d 453 . . . . . . . . . . . . . . 15 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ 𝑥𝐴) → (((𝐻𝑣) = (𝐻𝑥) ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)) ↔ (𝑥 = 𝑣 ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦))))
2822, 27syl5bb 190 . . . . . . . . . . . . . 14 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ 𝑥𝐴) → ((((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ (𝑥 = 𝑣 ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦))))
2928rexbidv 2375 . . . . . . . . . . . . 13 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ 𝑥𝐴) → (∃𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ∃𝑦𝐴 (𝑥 = 𝑣 ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦))))
30 r19.42v 2517 . . . . . . . . . . . . 13 (∃𝑦𝐴 (𝑥 = 𝑣 ∧ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)) ↔ (𝑥 = 𝑣 ∧ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)))
3129, 30syl6bb 194 . . . . . . . . . . . 12 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ 𝑥𝐴) → (∃𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ (𝑥 = 𝑣 ∧ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦))))
3231rexbidva 2371 . . . . . . . . . . 11 ((𝐻:𝐴1-1𝐵𝑣𝐴) → (∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ∃𝑥𝐴 (𝑥 = 𝑣 ∧ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦))))
33 breq1 3814 . . . . . . . . . . . . . . 15 (𝑥 = 𝑣 → (𝑥𝑅𝑦𝑣𝑅𝑦))
3433anbi2d 452 . . . . . . . . . . . . . 14 (𝑥 = 𝑣 → (((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦) ↔ ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦)))
3534rexbidv 2375 . . . . . . . . . . . . 13 (𝑥 = 𝑣 → (∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦) ↔ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦)))
3635ceqsrexv 2735 . . . . . . . . . . . 12 (𝑣𝐴 → (∃𝑥𝐴 (𝑥 = 𝑣 ∧ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)) ↔ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦)))
3736adantl 271 . . . . . . . . . . 11 ((𝐻:𝐴1-1𝐵𝑣𝐴) → (∃𝑥𝐴 (𝑥 = 𝑣 ∧ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑥𝑅𝑦)) ↔ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦)))
3832, 37bitrd 186 . . . . . . . . . 10 ((𝐻:𝐴1-1𝐵𝑣𝐴) → (∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ ∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦)))
39 f1fveq 5491 . . . . . . . . . . . . . . 15 ((𝐻:𝐴1-1𝐵 ∧ (𝑢𝐴𝑦𝐴)) → ((𝐻𝑢) = (𝐻𝑦) ↔ 𝑢 = 𝑦))
40 equcom 1635 . . . . . . . . . . . . . . 15 (𝑢 = 𝑦𝑦 = 𝑢)
4139, 40syl6bb 194 . . . . . . . . . . . . . 14 ((𝐻:𝐴1-1𝐵 ∧ (𝑢𝐴𝑦𝐴)) → ((𝐻𝑢) = (𝐻𝑦) ↔ 𝑦 = 𝑢))
4241anassrs 392 . . . . . . . . . . . . 13 (((𝐻:𝐴1-1𝐵𝑢𝐴) ∧ 𝑦𝐴) → ((𝐻𝑢) = (𝐻𝑦) ↔ 𝑦 = 𝑢))
4342anbi1d 453 . . . . . . . . . . . 12 (((𝐻:𝐴1-1𝐵𝑢𝐴) ∧ 𝑦𝐴) → (((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦) ↔ (𝑦 = 𝑢𝑣𝑅𝑦)))
4443rexbidva 2371 . . . . . . . . . . 11 ((𝐻:𝐴1-1𝐵𝑢𝐴) → (∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦) ↔ ∃𝑦𝐴 (𝑦 = 𝑢𝑣𝑅𝑦)))
45 breq2 3815 . . . . . . . . . . . . 13 (𝑦 = 𝑢 → (𝑣𝑅𝑦𝑣𝑅𝑢))
4645ceqsrexv 2735 . . . . . . . . . . . 12 (𝑢𝐴 → (∃𝑦𝐴 (𝑦 = 𝑢𝑣𝑅𝑦) ↔ 𝑣𝑅𝑢))
4746adantl 271 . . . . . . . . . . 11 ((𝐻:𝐴1-1𝐵𝑢𝐴) → (∃𝑦𝐴 (𝑦 = 𝑢𝑣𝑅𝑦) ↔ 𝑣𝑅𝑢))
4844, 47bitrd 186 . . . . . . . . . 10 ((𝐻:𝐴1-1𝐵𝑢𝐴) → (∃𝑦𝐴 ((𝐻𝑢) = (𝐻𝑦) ∧ 𝑣𝑅𝑦) ↔ 𝑣𝑅𝑢))
4938, 48sylan9bb 450 . . . . . . . . 9 (((𝐻:𝐴1-1𝐵𝑣𝐴) ∧ (𝐻:𝐴1-1𝐵𝑢𝐴)) → (∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ 𝑣𝑅𝑢))
5049anandis 557 . . . . . . . 8 ((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑢𝐴)) → (∃𝑥𝐴𝑦𝐴 (((𝐻𝑣) = (𝐻𝑥) ∧ (𝐻𝑢) = (𝐻𝑦)) ∧ 𝑥𝑅𝑦) ↔ 𝑣𝑅𝑢))
5121, 50bitrd 186 . . . . . . 7 ((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑢𝐴)) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)} ↔ 𝑣𝑅𝑢))
524, 51sylan9bbr 451 . . . . . 6 (((𝐻:𝐴1-1𝐵 ∧ (𝑣𝐴𝑢𝐴)) ∧ 𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ 𝑆𝑣𝑅𝑢))
5352an32s 533 . . . . 5 (((𝐻:𝐴1-1𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) ∧ (𝑣𝐴𝑢𝐴)) → (⟨(𝐻𝑣), (𝐻𝑢)⟩ ∈ 𝑆𝑣𝑅𝑢))
543, 53syl5rbb 191 . . . 4 (((𝐻:𝐴1-1𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) ∧ (𝑣𝐴𝑢𝐴)) → (𝑣𝑅𝑢 ↔ (𝐻𝑣)𝑆(𝐻𝑢)))
5554ralrimivva 2449 . . 3 ((𝐻:𝐴1-1𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → ∀𝑣𝐴𝑢𝐴 (𝑣𝑅𝑢 ↔ (𝐻𝑣)𝑆(𝐻𝑢)))
562, 55sylan 277 . 2 ((𝐻:𝐴1-1-onto𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → ∀𝑣𝐴𝑢𝐴 (𝑣𝑅𝑢 ↔ (𝐻𝑣)𝑆(𝐻𝑢)))
57 df-isom 4978 . 2 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ↔ (𝐻:𝐴1-1-onto𝐵 ∧ ∀𝑣𝐴𝑢𝐴 (𝑣𝑅𝑢 ↔ (𝐻𝑣)𝑆(𝐻𝑢))))
581, 56, 57sylanbrc 408 1 ((𝐻:𝐴1-1-onto𝐵𝑆 = {⟨𝑧, 𝑤⟩ ∣ ∃𝑥𝐴𝑦𝐴 ((𝑧 = (𝐻𝑥) ∧ 𝑤 = (𝐻𝑦)) ∧ 𝑥𝑅𝑦)}) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 102  wb 103   = wceq 1285  wcel 1434  wral 2353  wrex 2354  Vcvv 2612  cop 3425   class class class wbr 3811  {copab 3864   Fn wfn 4964  1-1wf1 4966  1-1-ontowf1o 4968  cfv 4969   Isom wiso 4970
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-sep 3922  ax-pow 3974  ax-pr 4000
This theorem depends on definitions:  df-bi 115  df-3an 922  df-tru 1288  df-nf 1391  df-sb 1688  df-eu 1946  df-mo 1947  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ral 2358  df-rex 2359  df-v 2614  df-sbc 2827  df-un 2988  df-in 2990  df-ss 2997  df-pw 3408  df-sn 3428  df-pr 3429  df-op 3431  df-uni 3628  df-br 3812  df-opab 3866  df-id 4084  df-xp 4407  df-rel 4408  df-cnv 4409  df-co 4410  df-dm 4411  df-iota 4934  df-fun 4971  df-fn 4972  df-f 4973  df-f1 4974  df-f1o 4976  df-fv 4977  df-isom 4978
This theorem is referenced by:  f1oiso2  5545
  Copyright terms: Public domain W3C validator