Theorem initoeu2lem2 17928

Description: Lemma 2 for initoeu2 17929. (Contributed by AV, 10-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
initoeu2lem2	⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) → ∃!𝑔 𝑔 ∈ (𝐵𝐻𝐷)))

Distinct variable groups:   𝐴,𝑔,𝑓   𝐵,𝑔,𝑓   𝐶,𝑓,𝑔   𝜑,𝑔,𝑓   𝐷,𝑓   𝑓,𝐹   𝑓,𝐼   𝑓,𝐾   𝑓,𝐻   𝑓,𝑋   ⚬ ,𝑓   𝐷,𝑔   𝑔,𝐹   𝑔,𝐻   𝑔,𝐼   𝑔,𝐾   𝑔,𝑋   ⚬ ,𝑔

Proof of Theorem initoeu2lem2

Dummy variable ℎ is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ovex 7385	. . . . . . . . . 10 ⊢ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ V
2		eleq1 2819	. . . . . . . . . . 11 ⊢ (𝑔 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) → (𝑔 ∈ (𝐵𝐻𝐷) ↔ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
3	2	spcegv 3547	. . . . . . . . . 10 ⊢ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ V → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷)))
4	1, 3	mp1i 13	. . . . . . . . 9 ⊢ (𝜑 → ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷)))
5	4	com12 32	. . . . . . . 8 ⊢ ((𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷) → (𝜑 → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷)))
6	5	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (𝜑 → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷)))
7	6	com12 32	. . . . . 6 ⊢ (𝜑 → ((𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷)))
8	7	a1d 25	. . . . 5 ⊢ (𝜑 → ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) → ((𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷))))
9	8	3imp 1110	. . . 4 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷))
10	9	adantr 480	. . 3 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → ∃𝑔 𝑔 ∈ (𝐵𝐻𝐷))
11		simpll1 1213	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → 𝜑)
12		simpll2 1214	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋))
13		3simpb 1149	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)) → (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
14	13	3ad2ant3 1135	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
15	14	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
16	15	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
17		simplr 768	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷))
18		simpl32 1256	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → 𝐹 ∈ (𝐴𝐻𝐷))
19	18	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → 𝐹 ∈ (𝐴𝐻𝐷))
20		simpr 484	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → 𝑔 ∈ (𝐵𝐻𝐷))
21		initoeu1.c	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ Cat)
22		initoeu1.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ (InitO‘𝐶))
23		initoeu2lem.x	. . . . . . . . . 10 ⊢ 𝑋 = (Base‘𝐶)
24		initoeu2lem.h	. . . . . . . . . 10 ⊢ 𝐻 = (Hom ‘𝐶)
25		initoeu2lem.i	. . . . . . . . . 10 ⊢ 𝐼 = (Iso‘𝐶)
26		initoeu2lem.o	. . . . . . . . . 10 ⊢ ⚬ = (comp‘𝐶)
27	21, 22, 23, 24, 25, 26	initoeu2lem1 17927	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → 𝑔 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))
28	27	imp 406	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ 𝑔 ∈ (𝐵𝐻𝐷))) → 𝑔 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
29	11, 12, 16, 17, 19, 20, 28	syl33anc 1387	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ 𝑔 ∈ (𝐵𝐻𝐷)) → 𝑔 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
30	29	adantrr 717	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ (𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷))) → 𝑔 = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
31		simpll1 1213	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → 𝜑)
32		simpll2 1214	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋))
33	15	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷)))
34		simplr 768	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷))
35	18	adantr 480	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → 𝐹 ∈ (𝐴𝐻𝐷))
36		simpr 484	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → ℎ ∈ (𝐵𝐻𝐷))
37	21, 22, 23, 24, 25, 26	initoeu2lem1 17927	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → ((∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷)) → ℎ = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾)))
38	37	imp 406	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷))) → ℎ = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
39	31, 32, 33, 34, 35, 36, 38	syl33anc 1387	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ ℎ ∈ (𝐵𝐻𝐷)) → ℎ = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
40	39	adantrl 716	. . . . . 6 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ (𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷))) → ℎ = (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾))
41	30, 40	eqtr4d 2769	. . . . 5 ⊢ ((((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) ∧ (𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷))) → 𝑔 = ℎ)
42	41	ex 412	. . . 4 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → ((𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷)) → 𝑔 = ℎ))
43	42	alrimivv 1929	. . 3 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → ∀𝑔∀ℎ((𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷)) → 𝑔 = ℎ))
44		eleq1 2819	. . . 4 ⊢ (𝑔 = ℎ → (𝑔 ∈ (𝐵𝐻𝐷) ↔ ℎ ∈ (𝐵𝐻𝐷)))
45	44	eu4 2610	. . 3 ⊢ (∃!𝑔 𝑔 ∈ (𝐵𝐻𝐷) ↔ (∃𝑔 𝑔 ∈ (𝐵𝐻𝐷) ∧ ∀𝑔∀ℎ((𝑔 ∈ (𝐵𝐻𝐷) ∧ ℎ ∈ (𝐵𝐻𝐷)) → 𝑔 = ℎ)))
46	10, 43, 45	sylanbrc 583	. 2 ⊢ (((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) ∧ ∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷)) → ∃!𝑔 𝑔 ∈ (𝐵𝐻𝐷))
47	46	ex 412	1 ⊢ ((𝜑 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐷 ∈ 𝑋) ∧ (𝐾 ∈ (𝐵𝐼𝐴) ∧ 𝐹 ∈ (𝐴𝐻𝐷) ∧ (𝐹(⟨𝐵, 𝐴⟩ ⚬ 𝐷)𝐾) ∈ (𝐵𝐻𝐷))) → (∃!𝑓 𝑓 ∈ (𝐴𝐻𝐷) → ∃!𝑔 𝑔 ∈ (𝐵𝐻𝐷)))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086  ∀wal 1539   = wceq 1541  ∃wex 1780   ∈ wcel 2111  ∃!weu 2563  Vcvv 3436  ⟨cop 4581  ‘cfv 6487  (class class class)co 7352  Basecbs 17126  Hom chom 17178  compcco 17179  Catccat 17576  Isociso 17659  InitOcinito 17894

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 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5219  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-op 4582  df-uni 4859  df-iun 4943  df-br 5094  df-opab 5156  df-mpt 5175  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 6443  df-fun 6489  df-fn 6490  df-f 6491  df-f1 6492  df-fo 6493  df-f1o 6494  df-fv 6495  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-1st 7927  df-2nd 7928  df-cat 17580  df-cid 17581  df-sect 17660  df-inv 17661  df-iso 17662

This theorem is referenced by:  initoeu2  17929