MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  initoeu2lem1 Structured version   Visualization version   GIF version

Theorem initoeu2lem1 16711
Description: Lemma 1 for initoeu2 16713. (Contributed by AV, 9-Apr-2020.)
Hypotheses
Ref Expression
initoeu1.c (𝜑𝐶 ∈ Cat)
initoeu1.a (𝜑𝐴 ∈ (InitO‘𝐶))
initoeu2lem.x 𝑋 = (Base‘𝐶)
initoeu2lem.h 𝐻 = (Hom ‘𝐶)
initoeu2lem.i 𝐼 = (Iso‘𝐶)
initoeu2lem.o = (comp‘𝐶)
Assertion
Ref Expression
initoeu2lem1 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))
Distinct variable groups:   𝐴,𝑓   𝐵,𝑓   𝐶,𝑓   𝜑,𝑓   𝐷,𝑓   𝑓,𝐹   𝑓,𝐺   𝑓,𝐼   𝑓,𝐾   𝑓,𝐻   𝑓,𝑋   ,𝑓

Proof of Theorem initoeu2lem1
StepHypRef Expression
1 eusn 4297 . . . 4 (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ↔ ∃𝑓(𝐴𝐻𝐷) = {𝑓})
2 initoeu2lem.x . . . . . . . . . . . 12 𝑋 = (Base‘𝐶)
3 eqid 2651 . . . . . . . . . . . 12 (Inv‘𝐶) = (Inv‘𝐶)
4 initoeu1.c . . . . . . . . . . . . 13 (𝜑𝐶 ∈ Cat)
54ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐶 ∈ Cat)
6 simpr2 1088 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → 𝐵𝑋)
76adantr 480 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐵𝑋)
8 simpr1 1087 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → 𝐴𝑋)
98adantr 480 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐴𝑋)
10 initoeu2lem.i . . . . . . . . . . . 12 𝐼 = (Iso‘𝐶)
112, 3, 5, 7, 9, 10invf 16475 . . . . . . . . . . 11 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → (𝐵(Inv‘𝐶)𝐴):(𝐵𝐼𝐴)⟶(𝐴𝐼𝐵))
12 simpr 476 . . . . . . . . . . 11 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐾 ∈ (𝐵𝐼𝐴))
1311, 12ffvelrnd 6400 . . . . . . . . . 10 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵))
14 initoeu2lem.h . . . . . . . . . . . . . . . . . 18 𝐻 = (Hom ‘𝐶)
154adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → 𝐶 ∈ Cat)
162, 14, 10, 15, 8, 6isohom 16483 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → (𝐴𝐼𝐵) ⊆ (𝐴𝐻𝐵))
1716adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → (𝐴𝐼𝐵) ⊆ (𝐴𝐻𝐵))
1817sselda 3636 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
19 initoeu2lem.o . . . . . . . . . . . . . . . . . 18 = (comp‘𝐶)
2015ad4antr 769 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐶 ∈ Cat)
218ad4antr 769 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐴𝑋)
226ad4antr 769 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐵𝑋)
23 simpr3 1089 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → 𝐷𝑋)
2423ad4antr 769 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐷𝑋)
25 simplr 807 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
26 simpr 476 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐺 ∈ (𝐵𝐻𝐷))
272, 14, 19, 20, 21, 22, 24, 25, 26catcocl 16393 . . . . . . . . . . . . . . . . 17 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))
2815ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐶 ∈ Cat)
298ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐴𝑋)
306ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐵𝑋)
3123ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐷𝑋)
32 simplr 807 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
33 simpr 476 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))
342, 14, 19, 28, 29, 30, 31, 32, 33catcocl 16393 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))
3534exp31 629 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → (((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))))
3635ad2antrr 762 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))))
3736imp 444 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷)))
38 eleq2 2719 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐴𝐻𝐷) = {𝑓} → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
3938adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
40 ovex 6718 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V
41 elsng 4224 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
4240, 41mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
4339, 42bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
44 eleq2 2719 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
45 ovex 6718 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V
46 elsng 4224 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
4745, 46mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
4844, 47bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
4948adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
50 eqeq2 2662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑓 = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
5150eqcoms 2659 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
5251adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
53 simp-4l 823 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → (𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)))
54 simp-4r 824 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐾 ∈ (𝐵𝐼𝐴))
55 simprr 811 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐹 ∈ (𝐴𝐻𝐷))
56 simprl 809 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐺 ∈ (𝐵𝐻𝐷))
57 simplr 807 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)))
58 initoeu1.a . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝜑𝐴 ∈ (InitO‘𝐶))
594, 58, 2, 14, 10, 19initoeu2lem0 16710 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))
6053, 54, 55, 56, 57, 59syl131anc 1379 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))
6160exp43 639 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))
6261adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))
6352, 62sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))
6463ex 449 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
6564adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
6649, 65sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
6766com23 86 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
6843, 67sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
6968com23 86 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
7069ex 449 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))))
7170com24 95 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))))
7271adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (((𝐹(⟨𝐵, 𝐴 𝐷)𝐾)(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))))
7337, 72syld 47 . . . . . . . . . . . . . . . . . . 19 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))))
7473com25 99 . . . . . . . . . . . . . . . . . 18 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))))
7574imp 444 . . . . . . . . . . . . . . . . 17 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐺(⟨𝐴, 𝐵 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
7627, 75mpd 15 . . . . . . . . . . . . . . . 16 ((((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))
7776ex 449 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
7818, 77mpdan 703 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
7978com15 101 . . . . . . . . . . . . 13 (𝐹 ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))))
8079imp 444 . . . . . . . . . . . 12 ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))))
8180impcom 445 . . . . . . . . . . 11 (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
8281com13 88 . . . . . . . . . 10 ((((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
8313, 82mpdan 703 . . . . . . . . 9 (((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → ((𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
8483expimpd 628 . . . . . . . 8 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋)) → ((𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
85843impia 1280 . . . . . . 7 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))
8685com12 32 . . . . . 6 (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))
8786ex 449 . . . . 5 ((𝐴𝐻𝐷) = {𝑓} → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
8887exlimiv 1898 . . . 4 (∃𝑓(𝐴𝐻𝐷) = {𝑓} → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
891, 88sylbi 207 . . 3 (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾))))
90893impib 1281 . 2 ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))
9190com12 32 1 ((𝜑 ∧ (𝐴𝑋𝐵𝑋𝐷𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐺 = (𝐹(⟨𝐵, 𝐴 𝐷)𝐾)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1054   = wceq 1523  wex 1744  wcel 2030  ∃!weu 2498  Vcvv 3231  wss 3607  {csn 4210  cop 4216  cfv 5926  (class class class)co 6690  Basecbs 15904  Hom chom 15999  compcco 16000  Catccat 16372  Invcinv 16452  Isociso 16453  InitOcinito 16685
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1056  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-op 4217  df-uni 4469  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-id 5053  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-1st 7210  df-2nd 7211  df-cat 16376  df-cid 16377  df-sect 16454  df-inv 16455  df-iso 16456
This theorem is referenced by:  initoeu2lem2  16712
  Copyright terms: Public domain W3C validator