Theorem initoeu2lem1 17973

Description: Lemma 1 for initoeu2 17975. (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

Step	Hyp	Ref	Expression
1		eusn 4663	. . . 4 ⊢ (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ↔ ∃𝑓(𝐴𝐻𝐷) = {𝑓})
2		initoeu2lem.x	. . . . . . . . . . . 12 ⊢ 𝑋 = (Base‘𝐶)
3		eqid 2739	. . . . . . . . . . . 12 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
4		initoeu1.c	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ Cat)
5	4	ad2antrr 732	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐶 ∈ Cat)
6		simpr2 1202	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → 𝐵 ∈ 𝑋)
7	6	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐵 ∈ 𝑋)
8		simpr1 1201	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → 𝐴 ∈ 𝑋)
9	8	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐴 ∈ 𝑋)
10		initoeu2lem.i	. . . . . . . . . . . 12 ⊢ 𝐼 = (Iso‘𝐶)
11	2, 3, 5, 7, 9, 10	invf 17727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → (𝐵(Inv‘𝐶)𝐴):(𝐵𝐼𝐴)⟶(𝐴𝐼𝐵))
12		simpr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → 𝐾 ∈ (𝐵𝐼𝐴))
13	11, 12	ffvelcdmd 7027	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵))
14		initoeu2lem.h	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐻 = (Hom ‘𝐶)
15	4	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → 𝐶 ∈ Cat)
16	2, 14, 10, 15, 8, 6	isohom 17735	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → (𝐴𝐼𝐵) ⊆ (𝐴𝐻𝐵))
17	16	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → (𝐴𝐼𝐵) ⊆ (𝐴𝐻𝐵))
18	17	sselda 3915	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
19		initoeu2lem.o	. . . . . . . . . . . . . . . . . 18 ⊢ ⚬ = (comp‘𝐶)
20	15	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐶 ∈ Cat)
21	8	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐴 ∈ 𝑋)
22	6	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐵 ∈ 𝑋)
23		simpr3 1203	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → 𝐷 ∈ 𝑋)
24	23	ad4antr 738	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐷 ∈ 𝑋)
25		simplr 774	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
26		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐺 ∈ (𝐵𝐻𝐷))
27	2, 14, 19, 20, 21, 22, 24, 25, 26	catcocl 17643	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))
28	15	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐶 ∈ Cat)
29	8	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐴 ∈ 𝑋)
30	6	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐵 ∈ 𝑋)
31	23	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → 𝐷 ∈ 𝑋)
32		simplr 774	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵))
33		simpr 485	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))
34	2, 14, 19, 28, 29, 30, 31, 32, 33	catcocl 17643	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))
35	34	exp31 420	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → (((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))))
36	35	ad2antrr 732	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷))))
37	36	imp 407	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷)))
38		eleq2 2828	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐴𝐻𝐷) = {𝑓} → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
39	38	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
40		ovex 7390	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V
41		elsng 4570	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
42	40, 41	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
43	39, 42	bitrd 280	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
44		eleq2 2828	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓}))
45		ovex 7390	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V
46		elsng 4570	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ V → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
47	45, 46	mp1i 13	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ {𝑓} ↔ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
48	44, 47	bitrd 280	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
49	48	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) ↔ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓))
50		eqeq2 2751	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑓 = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
51	50	eqcoms 2747	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
52	51	adantl 482	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 ↔ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))))
53		simp-4l 788	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → (𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)))
54		simp-4r 789	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐾 ∈ (𝐵𝐼𝐴))
55		simprr 778	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐹 ∈ (𝐴𝐻𝐷))
56		simprl 776	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐺 ∈ (𝐵𝐻𝐷))
57		simplr 774	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)))
58		initoeu1.a	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → 𝐴 ∈ (InitO‘𝐶))
59	4, 58, 2, 14, 10, 19	initoeu2lem0 17972	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
60	53, 54, 55, 56, 57, 59	syl131anc 1391	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾))) ∧ (𝐺 ∈ (𝐵𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
61	60	exp43 437	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))
62	61	adantr 481	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))
63	52, 62	sylbid 241	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))
64	63	ex 413	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
65	64	adantr 481	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
66	49, 65	sylbid 241	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
67	66	com23 86	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) = 𝑓 → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
68	43, 67	sylbid 241	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
69	68	com23 86	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ (𝐴𝐻𝐷) = {𝑓}) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
70	69	ex 413	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))))
71	70	com24 95	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))))
72	71	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))))
73	37, 72	syld 47	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → (𝐺 ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))))
74	73	com25 99	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))))
75	74	imp 407	. . . . . . . . . . . . . . . . 17 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐺(⟨𝐴, 𝐵⟩ ⚬ 𝐷)((𝐵(Inv‘𝐶)𝐴)‘𝐾)) ∈ (𝐴𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
76	27, 75	mpd 15	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))
77	76	ex 413	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐻𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
78	18, 77	mpdan 693	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝐹 ∈ (𝐴𝐻𝐷) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
79	78	com15 101	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ (𝐴𝐻𝐷) → (𝐺 ∈ (𝐵𝐻𝐷) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))))
80	79	imp 407	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝐴𝐻𝐷) = {𝑓} → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))))
81	80	impcom 408	. . . . . . . . . . 11 ⊢ (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
82	81	com13 88	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) ∧ ((𝐵(Inv‘𝐶)𝐴)‘𝐾) ∈ (𝐴𝐼𝐵)) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
83	13, 82	mpdan 693	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) ∧ 𝐾 ∈ (𝐵𝐼𝐴)) → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
84	83	expimpd 454	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋)) → ((𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
85	84	3impia 1123	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))
86	85	com12 32	. . . . . 6 ⊢ (((𝐴𝐻𝐷) = {𝑓} ∧ (𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷))) → ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))
87	86	ex 413	. . . . 5 ⊢ ((𝐴𝐻𝐷) = {𝑓} → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
88	87	exlimiv 1937	. . . 4 ⊢ (∃𝑓(𝐴𝐻𝐷) = {𝑓} → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
89	1, 88	sylbi 218	. . 3 ⊢ (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) → ((𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))))
90	89	3impib 1122	. 2 ⊢ ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))
91	90	com12 32	1 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝐺 ∈ (𝐵𝐻𝐷)) → 𝐺 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547  ∃wex 1786   ∈ wcel 2119  ∃!weu 2572  Vcvv 3431   ⊆ wss 3883  {csn 4556  ⟨cop 4562  ‘cfv 6486  (class class class)co 7357  Basecbs 17171  Hom chom 17223  compcco 17224  Catccat 17622  Invcinv 17704  Isociso 17705  InitOcinito 17940

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 2711  ax-rep 5200  ax-sep 5219  ax-nul 5229  ax-pow 5295  ax-pr 5363  ax-un 7679

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 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-iun 4924  df-br 5074  df-opab 5136  df-mpt 5155  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7314  df-ov 7360  df-oprab 7361  df-mpo 7362  df-1st 7932  df-2nd 7933  df-cat 17626  df-cid 17627  df-sect 17706  df-inv 17707  df-iso 17708

This theorem is referenced by:  initoeu2lem2  17974