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

Theorem catcisolem 18278
Description: Lemma for catciso 18279. (Contributed by Mario Carneiro, 29-Jan-2017.)
Hypotheses
Ref Expression
catciso.c 𝐶 = (CatCat‘𝑈)
catciso.b 𝐵 = (Base‘𝐶)
catciso.r 𝑅 = (Base‘𝑋)
catciso.s 𝑆 = (Base‘𝑌)
catciso.u (𝜑 → 𝑈 ∈ 𝑉)
catciso.x (𝜑 → 𝑋 ∈ 𝐵)
catciso.y (𝜑 → 𝑌 ∈ 𝐵)
catcisolem.i 𝐼 = (Inv‘𝐶)
catcisolem.g 𝐻 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)))
catcisolem.1 (𝜑 → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
catcisolem.2 (𝜑 → 𝐹:𝑅–1-1-onto→𝑆)
Assertion
Ref Expression
catcisolem (𝜑 → ⟨𝐹, 𝐺⟩(𝑋𝐼𝑌)⟨◡𝐹, 𝐻⟩)
Distinct variable groups:   𝑥,𝑦,𝐶   𝑥,𝐹,𝑦   𝑥,𝐺,𝑦   𝜑,𝑥,𝑦   𝑥,𝐼,𝑦   𝑥,𝑅,𝑦   𝑥,𝑆,𝑦   𝑥,𝑋,𝑦   𝑥,𝑌,𝑦
Allowed substitution hints:   𝐵(𝑥, 𝑦)   𝑈(𝑥, 𝑦)   𝐻(𝑥, 𝑦)   𝑉(𝑥, 𝑦)

Proof of Theorem catcisolem
Dummy variables 𝑓 𝑔 𝑢 𝑣 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 catcisolem.2 . . . . . . 7 (𝜑 → 𝐹:𝑅–1-1-onto→𝑆)
2 f1ococnv1 6852 . . . . . . 7 (𝐹:𝑅–1-1-onto→𝑆 → (◡𝐹 ∘ 𝐹) = ( I ↾ 𝑅))
31, 2syl 18 . . . . . 6 (𝜑 → (◡𝐹 ∘ 𝐹) = ( I ↾ 𝑅))
413ad2ant1 1151 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → 𝐹:𝑅–1-1-onto→𝑆)
5 f1of 6822 . . . . . . . . . . . . . 14 (𝐹:𝑅–1-1-onto→𝑆 → 𝐹:𝑅⟶𝑆)
64, 5syl 18 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → 𝐹:𝑅⟶𝑆)
7 simp2 1155 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → 𝑢 ∈ 𝑅)
86, 7ffvelcdmd 7083 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (𝐹‘𝑢) ∈ 𝑆)
9 simp3 1156 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → 𝑣 ∈ 𝑅)
106, 9ffvelcdmd 7083 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (𝐹‘𝑣) ∈ 𝑆)
11 simpl 488 . . . . . . . . . . . . . . . 16 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → 𝑥 = (𝐹‘𝑢))
1211fveq2d 6887 . . . . . . . . . . . . . . 15 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → (◡𝐹‘𝑥) = (◡𝐹‘(𝐹‘𝑢)))
13 simpr 490 . . . . . . . . . . . . . . . 16 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → 𝑦 = (𝐹‘𝑣))
1413fveq2d 6887 . . . . . . . . . . . . . . 15 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → (◡𝐹‘𝑦) = (◡𝐹‘(𝐹‘𝑣)))
1512, 14oveq12d 7436 . . . . . . . . . . . . . 14 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))))
1615cnveqd 5853 . . . . . . . . . . . . 13 ((𝑥 = (𝐹‘𝑢) ∧ 𝑦 = (𝐹‘𝑣)) → ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ◡((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))))
17 catcisolem.g . . . . . . . . . . . . 13 𝐻 = (𝑥 ∈ 𝑆, 𝑦 ∈ 𝑆 ↦ ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)))
18 ovex 7451 . . . . . . . . . . . . . 14 ((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))) ∈ V
1918cnvex 7935 . . . . . . . . . . . . 13 ◡((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))) ∈ V
2016, 17, 19ovmpoa 7573 . . . . . . . . . . . 12 (((𝐹‘𝑢) ∈ 𝑆 ∧ (𝐹‘𝑣) ∈ 𝑆) → ((𝐹‘𝑢)𝐻(𝐹‘𝑣)) = ◡((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))))
218, 10, 20syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → ((𝐹‘𝑢)𝐻(𝐹‘𝑣)) = ◡((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))))
22 f1ocnvfv1 7282 . . . . . . . . . . . . . 14 ((𝐹:𝑅–1-1-onto→𝑆 ∧ 𝑢 ∈ 𝑅) → (◡𝐹‘(𝐹‘𝑢)) = 𝑢)
234, 7, 22syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (◡𝐹‘(𝐹‘𝑢)) = 𝑢)
24 f1ocnvfv1 7282 . . . . . . . . . . . . . 14 ((𝐹:𝑅–1-1-onto→𝑆 ∧ 𝑣 ∈ 𝑅) → (◡𝐹‘(𝐹‘𝑣)) = 𝑣)
254, 9, 24syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (◡𝐹‘(𝐹‘𝑣)) = 𝑣)
2623, 25oveq12d 7436 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → ((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))) = (𝑢𝐺𝑣))
2726cnveqd 5853 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → ◡((◡𝐹‘(𝐹‘𝑢))𝐺(◡𝐹‘(𝐹‘𝑣))) = ◡(𝑢𝐺𝑣))
2821, 27eqtrd 2796 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → ((𝐹‘𝑢)𝐻(𝐹‘𝑣)) = ◡(𝑢𝐺𝑣))
2928coeq1d 5839 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣)) = (◡(𝑢𝐺𝑣) ∘ (𝑢𝐺𝑣)))
30 catciso.r . . . . . . . . . . 11 𝑅 = (Base‘𝑋)
31 eqid 2761 . . . . . . . . . . 11 (Hom ‘𝑋) = (Hom ‘𝑋)
32 eqid 2761 . . . . . . . . . . 11 (Hom ‘𝑌) = (Hom ‘𝑌)
33 catcisolem.1 . . . . . . . . . . . 12 (𝜑 → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
34333ad2ant1 1151 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
3530, 31, 32, 34, 7, 9ffthf1o 18089 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (𝑢𝐺𝑣):(𝑢(Hom ‘𝑋)𝑣)–1-1-onto→((𝐹‘𝑢)(Hom ‘𝑌)(𝐹‘𝑣)))
36 f1ococnv1 6852 . . . . . . . . . 10 ((𝑢𝐺𝑣):(𝑢(Hom ‘𝑋)𝑣)–1-1-onto→((𝐹‘𝑢)(Hom ‘𝑌)(𝐹‘𝑣)) → (◡(𝑢𝐺𝑣) ∘ (𝑢𝐺𝑣)) = ( I ↾ (𝑢(Hom ‘𝑋)𝑣)))
3735, 36syl 18 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (◡(𝑢𝐺𝑣) ∘ (𝑢𝐺𝑣)) = ( I ↾ (𝑢(Hom ‘𝑋)𝑣)))
3829, 37eqtrd 2796 . . . . . . . 8 ((𝜑 ∧ 𝑢 ∈ 𝑅 ∧ 𝑣 ∈ 𝑅) → (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣)) = ( I ↾ (𝑢(Hom ‘𝑋)𝑣)))
3938mpoeq3dva 7495 . . . . . . 7 (𝜑 → (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣))) = (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ ( I ↾ (𝑢(Hom ‘𝑋)𝑣))))
40 fveq2 6883 . . . . . . . . . 10 (𝑧 = ⟨𝑢, 𝑣⟩ → ((Hom ‘𝑋)‘𝑧) = ((Hom ‘𝑋)‘⟨𝑢, 𝑣⟩))
41 df-ov 7421 . . . . . . . . . 10 (𝑢(Hom ‘𝑋)𝑣) = ((Hom ‘𝑋)‘⟨𝑢, 𝑣⟩)
4240, 41eqtr4di 2814 . . . . . . . . 9 (𝑧 = ⟨𝑢, 𝑣⟩ → ((Hom ‘𝑋)‘𝑧) = (𝑢(Hom ‘𝑋)𝑣))
4342reseq2d 5970 . . . . . . . 8 (𝑧 = ⟨𝑢, 𝑣⟩ → ( I ↾ ((Hom ‘𝑋)‘𝑧)) = ( I ↾ (𝑢(Hom ‘𝑋)𝑣)))
4443mpompt 7532 . . . . . . 7 (𝑧 ∈ (𝑅 × 𝑅) ↦ ( I ↾ ((Hom ‘𝑋)‘𝑧))) = (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ ( I ↾ (𝑢(Hom ‘𝑋)𝑣)))
4539, 44eqtr4di 2814 . . . . . 6 (𝜑 → (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣))) = (𝑧 ∈ (𝑅 × 𝑅) ↦ ( I ↾ ((Hom ‘𝑋)‘𝑧))))
463, 45opeq12d 4841 . . . . 5 (𝜑 → ⟨(◡𝐹 ∘ 𝐹), (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣)))⟩ = ⟨( I ↾ 𝑅), (𝑧 ∈ (𝑅 × 𝑅) ↦ ( I ↾ ((Hom ‘𝑋)‘𝑧)))⟩)
47 inss1 4182 . . . . . . . . 9 ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ⊆ (𝑋 Full 𝑌)
48 fullfunc 18076 . . . . . . . . 9 (𝑋 Full 𝑌) ⊆ (𝑋 Func 𝑌)
4947, 48sstri 3940 . . . . . . . 8 ((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌)) ⊆ (𝑋 Func 𝑌)
5049ssbri 5150 . . . . . . 7 (𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺 → 𝐹(𝑋 Func 𝑌)𝐺)
5133, 50syl 18 . . . . . 6 (𝜑 → 𝐹(𝑋 Func 𝑌)𝐺)
52 catciso.s . . . . . . 7 𝑆 = (Base‘𝑌)
53 eqid 2761 . . . . . . 7 (Id‘𝑌) = (Id‘𝑌)
54 eqid 2761 . . . . . . 7 (Id‘𝑋) = (Id‘𝑋)
55 eqid 2761 . . . . . . 7 (comp‘𝑌) = (comp‘𝑌)
56 eqid 2761 . . . . . . 7 (comp‘𝑋) = (comp‘𝑋)
57 catciso.c . . . . . . . . . 10 𝐶 = (CatCat‘𝑈)
58 catciso.b . . . . . . . . . 10 𝐵 = (Base‘𝐶)
59 catciso.u . . . . . . . . . 10 (𝜑 → 𝑈 ∈ 𝑉)
6057, 58, 59catcbas 18269 . . . . . . . . 9 (𝜑 → 𝐵 = (𝑈 ∩ Cat))
61 inss2 4183 . . . . . . . . 9 (𝑈 ∩ Cat) ⊆ Cat
6260, 61eqsstrdi 3975 . . . . . . . 8 (𝜑 → 𝐵 ⊆ Cat)
63 catciso.y . . . . . . . 8 (𝜑 → 𝑌 ∈ 𝐵)
6462, 63sseldd 3932 . . . . . . 7 (𝜑 → 𝑌 ∈ Cat)
65 catciso.x . . . . . . . 8 (𝜑 → 𝑋 ∈ 𝐵)
6662, 65sseldd 3932 . . . . . . 7 (𝜑 → 𝑋 ∈ Cat)
67 f1ocnv 6835 . . . . . . . 8 (𝐹:𝑅–1-1-onto→𝑆 → ◡𝐹:𝑆–1-1-onto→𝑅)
68 f1of 6822 . . . . . . . 8 (◡𝐹:𝑆–1-1-onto→𝑅 → ◡𝐹:𝑆⟶𝑅)
691, 67, 683syl 19 . . . . . . 7 (𝜑 → ◡𝐹:𝑆⟶𝑅)
70 ovex 7451 . . . . . . . . . 10 ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) ∈ V
7170cnvex 7935 . . . . . . . . 9 ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) ∈ V
7217, 71fnmpoi 8079 . . . . . . . 8 𝐻 Fn (𝑆 × 𝑆)
7372a1i 11 . . . . . . 7 (𝜑 → 𝐻 Fn (𝑆 × 𝑆))
7433adantr 486 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
7569ffvelcdmda 7082 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (◡𝐹‘𝑢) ∈ 𝑅)
7675adantrr 730 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (◡𝐹‘𝑢) ∈ 𝑅)
7769ffvelcdmda 7082 . . . . . . . . . . 11 ((𝜑 ∧ 𝑣 ∈ 𝑆) → (◡𝐹‘𝑣) ∈ 𝑅)
7877adantrl 729 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (◡𝐹‘𝑣) ∈ 𝑅)
7930, 31, 32, 74, 76, 78ffthf1o 18089 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))))
80 f1ocnv 6835 . . . . . . . . 9 (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣)))–1-1-onto→((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
81 f1of 6822 . . . . . . . . 9 (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣)))–1-1-onto→((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣)))⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
8279, 80, 813syl 19 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣)))⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
83 simpl 488 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑥 = 𝑢)
8483fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (◡𝐹‘𝑥) = (◡𝐹‘𝑢))
85 simpr 490 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → 𝑦 = 𝑣)
8685fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (◡𝐹‘𝑦) = (◡𝐹‘𝑣))
8784, 86oveq12d 7436 . . . . . . . . . . . 12 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
8887cnveqd 5853 . . . . . . . . . . 11 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
89 ovex 7451 . . . . . . . . . . . 12 ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∈ V
9089cnvex 7935 . . . . . . . . . . 11 ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∈ V
9188, 17, 90ovmpoa 7573 . . . . . . . . . 10 ((𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢𝐻𝑣) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
9291adantl 487 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (𝑢𝐻𝑣) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
931adantr 486 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → 𝐹:𝑅–1-1-onto→𝑆)
94 simprl 783 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → 𝑢 ∈ 𝑆)
95 f1ocnvfv2 7283 . . . . . . . . . . . 12 ((𝐹:𝑅–1-1-onto→𝑆 ∧ 𝑢 ∈ 𝑆) → (𝐹‘(◡𝐹‘𝑢)) = 𝑢)
9693, 94, 95syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (𝐹‘(◡𝐹‘𝑢)) = 𝑢)
97 simprr 785 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → 𝑣 ∈ 𝑆)
98 f1ocnvfv2 7283 . . . . . . . . . . . 12 ((𝐹:𝑅–1-1-onto→𝑆 ∧ 𝑣 ∈ 𝑆) → (𝐹‘(◡𝐹‘𝑣)) = 𝑣)
9993, 97, 98syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (𝐹‘(◡𝐹‘𝑣)) = 𝑣)
10096, 99oveq12d 7436 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → ((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) = (𝑢(Hom ‘𝑌)𝑣))
101100eqcomd 2767 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (𝑢(Hom ‘𝑌)𝑣) = ((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))))
10292, 101feq12d 6695 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → ((𝑢𝐻𝑣):(𝑢(Hom ‘𝑌)𝑣)⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)) ↔ ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣)))⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))))
10382, 102mpbird 260 . . . . . . 7 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆)) → (𝑢𝐻𝑣):(𝑢(Hom ‘𝑌)𝑣)⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
104 simpr 490 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆) → 𝑢 ∈ 𝑆)
105 simpl 488 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → 𝑥 = 𝑢)
106105fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → (◡𝐹‘𝑥) = (◡𝐹‘𝑢))
107 simpr 490 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → 𝑦 = 𝑢)
108107fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → (◡𝐹‘𝑦) = (◡𝐹‘𝑢))
109106, 108oveq12d 7436 . . . . . . . . . . . 12 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)))
110109cnveqd 5853 . . . . . . . . . . 11 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑢) → ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)))
111 ovex 7451 . . . . . . . . . . . 12 ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)) ∈ V
112111cnvex 7935 . . . . . . . . . . 11 ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)) ∈ V
113110, 17, 112ovmpoa 7573 . . . . . . . . . 10 ((𝑢 ∈ 𝑆 ∧ 𝑢 ∈ 𝑆) → (𝑢𝐻𝑢) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)))
114104, 104, 113syl2anc 596 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (𝑢𝐻𝑢) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)))
115114fveq1d 6885 . . . . . . . 8 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((𝑢𝐻𝑢)‘((Id‘𝑌)‘𝑢)) = (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑌)‘𝑢)))
11651adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆) → 𝐹(𝑋 Func 𝑌)𝐺)
11730, 54, 53, 116, 75funcid 18038 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑋)‘(◡𝐹‘𝑢))) = ((Id‘𝑌)‘(𝐹‘(◡𝐹‘𝑢))))
1181, 95sylan 592 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (𝐹‘(◡𝐹‘𝑢)) = 𝑢)
119118fveq2d 6887 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((Id‘𝑌)‘(𝐹‘(◡𝐹‘𝑢))) = ((Id‘𝑌)‘𝑢))
120117, 119eqtrd 2796 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑋)‘(◡𝐹‘𝑢))) = ((Id‘𝑌)‘𝑢))
12133adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆) → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
12230, 31, 32, 121, 75, 75ffthf1o 18089 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑢))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑢))))
12366adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆) → 𝑋 ∈ Cat)
12430, 31, 54, 123, 75catidcl 17849 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((Id‘𝑋)‘(◡𝐹‘𝑢)) ∈ ((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑢)))
125 f1ocnvfv 7284 . . . . . . . . . 10 ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑢))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑢))) ∧ ((Id‘𝑋)‘(◡𝐹‘𝑢)) ∈ ((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑢))) → ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑋)‘(◡𝐹‘𝑢))) = ((Id‘𝑌)‘𝑢) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑌)‘𝑢)) = ((Id‘𝑋)‘(◡𝐹‘𝑢))))
126122, 124, 125syl2anc 596 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑋)‘(◡𝐹‘𝑢))) = ((Id‘𝑌)‘𝑢) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑌)‘𝑢)) = ((Id‘𝑋)‘(◡𝐹‘𝑢))))
127120, 126mpd 16 . . . . . . . 8 ((𝜑 ∧ 𝑢 ∈ 𝑆) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑢))‘((Id‘𝑌)‘𝑢)) = ((Id‘𝑋)‘(◡𝐹‘𝑢)))
128115, 127eqtrd 2796 . . . . . . 7 ((𝜑 ∧ 𝑢 ∈ 𝑆) → ((𝑢𝐻𝑢)‘((Id‘𝑌)‘𝑢)) = ((Id‘𝑋)‘(◡𝐹‘𝑢)))
129513ad2ant1 1151 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝐹(𝑋 Func 𝑌)𝐺)
130693ad2ant1 1151 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ◡𝐹:𝑆⟶𝑅)
131 simp21 1225 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑢 ∈ 𝑆)
132130, 131ffvelcdmd 7083 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡𝐹‘𝑢) ∈ 𝑅)
133 simp22 1226 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑣 ∈ 𝑆)
134130, 133ffvelcdmd 7083 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡𝐹‘𝑣) ∈ 𝑅)
135 simp23 1227 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑧 ∈ 𝑆)
136130, 135ffvelcdmd 7083 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡𝐹‘𝑧) ∈ 𝑅)
137333ad2ant1 1151 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
13830, 31, 32, 137, 132, 134ffthf1o 18089 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))))
13913ad2ant1 1151 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝐹:𝑅–1-1-onto→𝑆)
140139, 131, 95syl2anc 596 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝐹‘(◡𝐹‘𝑢)) = 𝑢)
141139, 133, 98syl2anc 596 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝐹‘(◡𝐹‘𝑣)) = 𝑣)
142140, 141oveq12d 7436 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) = (𝑢(Hom ‘𝑌)𝑣))
143142f1oeq3d 6819 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) ↔ ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣)))
144138, 143mpbid 235 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣))
145 f1ocnv 6835 . . . . . . . . . . . . 13 (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):(𝑢(Hom ‘𝑌)𝑣)–1-1-onto→((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
146 f1of 6822 . . . . . . . . . . . . 13 (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):(𝑢(Hom ‘𝑌)𝑣)–1-1-onto→((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):(𝑢(Hom ‘𝑌)𝑣)⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
147144, 145, 1463syl 19 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):(𝑢(Hom ‘𝑌)𝑣)⟶((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
148 simp3l 1220 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣))
149147, 148ffvelcdmd 7083 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓) ∈ ((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣)))
15030, 31, 32, 137, 134, 136ffthf1o 18089 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→((𝐹‘(◡𝐹‘𝑣))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))))
151 f1ocnvfv2 7283 . . . . . . . . . . . . . . . . 17 ((𝐹:𝑅–1-1-onto→𝑆 ∧ 𝑧 ∈ 𝑆) → (𝐹‘(◡𝐹‘𝑧)) = 𝑧)
152139, 135, 151syl2anc 596 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝐹‘(◡𝐹‘𝑧)) = 𝑧)
153141, 152oveq12d 7436 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝐹‘(◡𝐹‘𝑣))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))) = (𝑣(Hom ‘𝑌)𝑧))
154153f1oeq3d 6819 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→((𝐹‘(◡𝐹‘𝑣))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))) ↔ ((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑣(Hom ‘𝑌)𝑧)))
155150, 154mpbid 235 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑣(Hom ‘𝑌)𝑧))
156 f1ocnv 6835 . . . . . . . . . . . . 13 (((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑣(Hom ‘𝑌)𝑧) → ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):(𝑣(Hom ‘𝑌)𝑧)–1-1-onto→((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧)))
157 f1of 6822 . . . . . . . . . . . . 13 (◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):(𝑣(Hom ‘𝑌)𝑧)–1-1-onto→((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧)) → ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):(𝑣(Hom ‘𝑌)𝑧)⟶((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧)))
158155, 156, 1573syl 19 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):(𝑣(Hom ‘𝑌)𝑧)⟶((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧)))
159 simp3r 1221 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))
160158, 159ffvelcdmd 7083 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔) ∈ ((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧)))
16130, 31, 56, 55, 129, 132, 134, 136, 149, 160funcco 18039 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))) = ((((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘(◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔))(⟨(𝐹‘(◡𝐹‘𝑢)), (𝐹‘(◡𝐹‘𝑣))⟩(comp‘𝑌)(𝐹‘(◡𝐹‘𝑧)))(((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))))
162140, 141opeq12d 4841 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ⟨(𝐹‘(◡𝐹‘𝑢)), (𝐹‘(◡𝐹‘𝑣))⟩ = ⟨𝑢, 𝑣⟩)
163162, 152oveq12d 7436 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (⟨(𝐹‘(◡𝐹‘𝑢)), (𝐹‘(◡𝐹‘𝑣))⟩(comp‘𝑌)(𝐹‘(◡𝐹‘𝑧))) = (⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧))
164 f1ocnvfv2 7283 . . . . . . . . . . . 12 ((((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑣)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑣(Hom ‘𝑌)𝑧) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧)) → (((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘(◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)) = 𝑔)
165155, 159, 164syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘(◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)) = 𝑔)
166 f1ocnvfv2 7283 . . . . . . . . . . . 12 ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣) ∧ 𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣)) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)) = 𝑓)
167144, 148, 166syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)) = 𝑓)
168163, 165, 167oveq123d 7439 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘(◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔))(⟨(𝐹‘(◡𝐹‘𝑢)), (𝐹‘(◡𝐹‘𝑣))⟩(comp‘𝑌)(𝐹‘(◡𝐹‘𝑧)))(((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))) = (𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓))
169161, 168eqtrd 2796 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))) = (𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓))
17030, 31, 32, 137, 132, 136ffthf1o 18089 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))))
171140, 152oveq12d 7436 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))) = (𝑢(Hom ‘𝑌)𝑧))
172171f1oeq3d 6819 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑧))) ↔ ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑢(Hom ‘𝑌)𝑧)))
173170, 172mpbid 235 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑢(Hom ‘𝑌)𝑧))
174663ad2ant1 1151 . . . . . . . . . . 11 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → 𝑋 ∈ Cat)
17530, 31, 56, 174, 132, 134, 136, 149, 160catcocl 17852 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)) ∈ ((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧)))
176 f1ocnvfv 7284 . . . . . . . . . 10 ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))–1-1-onto→(𝑢(Hom ‘𝑌)𝑧) ∧ ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)) ∈ ((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑧))) → ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))) = (𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)) = ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))))
177173, 175, 176syl2anc 596 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))) = (𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)) = ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))))
178169, 177mpd 16 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)) = ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)))
179 simpl 488 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → 𝑥 = 𝑢)
180179fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → (◡𝐹‘𝑥) = (◡𝐹‘𝑢))
181 simpr 490 . . . . . . . . . . . . . 14 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → 𝑦 = 𝑧)
182181fveq2d 6887 . . . . . . . . . . . . 13 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → (◡𝐹‘𝑦) = (◡𝐹‘𝑧))
183180, 182oveq12d 7436 . . . . . . . . . . . 12 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)))
184183cnveqd 5853 . . . . . . . . . . 11 ((𝑥 = 𝑢 ∧ 𝑦 = 𝑧) → ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)))
185 ovex 7451 . . . . . . . . . . . 12 ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)) ∈ V
186185cnvex 7935 . . . . . . . . . . 11 ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)) ∈ V
187184, 17, 186ovmpoa 7573 . . . . . . . . . 10 ((𝑢 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) → (𝑢𝐻𝑧) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)))
188131, 135, 187syl2anc 596 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝑢𝐻𝑧) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧)))
189188fveq1d 6885 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝑢𝐻𝑧)‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)) = (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑧))‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)))
190 simpl 488 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → 𝑥 = 𝑣)
191190fveq2d 6887 . . . . . . . . . . . . . 14 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → (◡𝐹‘𝑥) = (◡𝐹‘𝑣))
192 simpr 490 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → 𝑦 = 𝑧)
193192fveq2d 6887 . . . . . . . . . . . . . 14 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → (◡𝐹‘𝑦) = (◡𝐹‘𝑧))
194191, 193oveq12d 7436 . . . . . . . . . . . . 13 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → ((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)))
195194cnveqd 5853 . . . . . . . . . . . 12 ((𝑥 = 𝑣 ∧ 𝑦 = 𝑧) → ◡((◡𝐹‘𝑥)𝐺(◡𝐹‘𝑦)) = ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)))
196 ovex 7451 . . . . . . . . . . . . 13 ((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)) ∈ V
197196cnvex 7935 . . . . . . . . . . . 12 ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)) ∈ V
198195, 17, 197ovmpoa 7573 . . . . . . . . . . 11 ((𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) → (𝑣𝐻𝑧) = ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)))
199133, 135, 198syl2anc 596 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝑣𝐻𝑧) = ◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧)))
200199fveq1d 6885 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝑣𝐻𝑧)‘𝑔) = (◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔))
201131, 133, 91syl2anc 596 . . . . . . . . . 10 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (𝑢𝐻𝑣) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
202201fveq1d 6885 . . . . . . . . 9 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝑢𝐻𝑣)‘𝑓) = (◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓))
203200, 202oveq12d 7436 . . . . . . . 8 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → (((𝑣𝐻𝑧)‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))((𝑢𝐻𝑣)‘𝑓)) = ((◡((◡𝐹‘𝑣)𝐺(◡𝐹‘𝑧))‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))(◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))‘𝑓)))
204178, 189, 2033eqtr4d 2806 . . . . . . 7 ((𝜑 ∧ (𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆 ∧ 𝑧 ∈ 𝑆) ∧ (𝑓 ∈ (𝑢(Hom ‘𝑌)𝑣) ∧ 𝑔 ∈ (𝑣(Hom ‘𝑌)𝑧))) → ((𝑢𝐻𝑧)‘(𝑔(⟨𝑢, 𝑣⟩(comp‘𝑌)𝑧)𝑓)) = (((𝑣𝐻𝑧)‘𝑔)(⟨(◡𝐹‘𝑢), (◡𝐹‘𝑣)⟩(comp‘𝑋)(◡𝐹‘𝑧))((𝑢𝐻𝑣)‘𝑓)))
20552, 30, 32, 31, 53, 54, 55, 56, 64, 66, 69, 73, 103, 128, 204isfuncd 18033 . . . . . 6 (𝜑 → ◡𝐹(𝑌 Func 𝑋)𝐻)
20630, 51, 205cofuval2 18055 . . . . 5 (𝜑 → (⟨◡𝐹, 𝐻⟩ ∘func ⟨𝐹, 𝐺⟩) = ⟨(◡𝐹 ∘ 𝐹), (𝑢 ∈ 𝑅, 𝑣 ∈ 𝑅 ↦ (((𝐹‘𝑢)𝐻(𝐹‘𝑣)) ∘ (𝑢𝐺𝑣)))⟩)
207 eqid 2761 . . . . . 6 (idfunc‘𝑋) = (idfunc‘𝑋)
208207, 30, 66, 31idfuval 18044 . . . . 5 (𝜑 → (idfunc‘𝑋) = ⟨( I ↾ 𝑅), (𝑧 ∈ (𝑅 × 𝑅) ↦ ( I ↾ ((Hom ‘𝑋)‘𝑧)))⟩)
20946, 206, 2083eqtr4d 2806 . . . 4 (𝜑 → (⟨◡𝐹, 𝐻⟩ ∘func ⟨𝐹, 𝐺⟩) = (idfunc‘𝑋))
210 eqid 2761 . . . . 5 (comp‘𝐶) = (comp‘𝐶)
211 df-br 5104 . . . . . 6 (𝐹(𝑋 Func 𝑌)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝑋 Func 𝑌))
21251, 211sylib 221 . . . . 5 (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑋 Func 𝑌))
213 df-br 5104 . . . . . 6 (◡𝐹(𝑌 Func 𝑋)𝐻 ↔ ⟨◡𝐹, 𝐻⟩ ∈ (𝑌 Func 𝑋))
214205, 213sylib 221 . . . . 5 (𝜑 → ⟨◡𝐹, 𝐻⟩ ∈ (𝑌 Func 𝑋))
21557, 58, 59, 210, 65, 63, 65, 212, 214catcco 18273 . . . 4 (𝜑 → (⟨◡𝐹, 𝐻⟩(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)⟨𝐹, 𝐺⟩) = (⟨◡𝐹, 𝐻⟩ ∘func ⟨𝐹, 𝐺⟩))
216 eqid 2761 . . . . 5 (Id‘𝐶) = (Id‘𝐶)
21757, 58, 216, 207, 59, 65catcid 18275 . . . 4 (𝜑 → ((Id‘𝐶)‘𝑋) = (idfunc‘𝑋))
218209, 215, 2173eqtr4d 2806 . . 3 (𝜑 → (⟨◡𝐹, 𝐻⟩(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)⟨𝐹, 𝐺⟩) = ((Id‘𝐶)‘𝑋))
219 eqid 2761 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
220 eqid 2761 . . . 4 (Sect‘𝐶) = (Sect‘𝐶)
22157catccat 18276 . . . . 5 (𝑈 ∈ 𝑉 → 𝐶 ∈ Cat)
22259, 221syl 18 . . . 4 (𝜑 → 𝐶 ∈ Cat)
22357, 58, 59, 219, 65, 63catchom 18271 . . . . 5 (𝜑 → (𝑋(Hom ‘𝐶)𝑌) = (𝑋 Func 𝑌))
224212, 223eleqtrrd 2864 . . . 4 (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝑋(Hom ‘𝐶)𝑌))
22557, 58, 59, 219, 63, 65catchom 18271 . . . . 5 (𝜑 → (𝑌(Hom ‘𝐶)𝑋) = (𝑌 Func 𝑋))
226214, 225eleqtrrd 2864 . . . 4 (𝜑 → ⟨◡𝐹, 𝐻⟩ ∈ (𝑌(Hom ‘𝐶)𝑋))
22758, 219, 210, 216, 220, 222, 65, 63, 224, 226issect2 17922 . . 3 (𝜑 → (⟨𝐹, 𝐺⟩(𝑋(Sect‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩ ↔ (⟨◡𝐹, 𝐻⟩(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)⟨𝐹, 𝐺⟩) = ((Id‘𝐶)‘𝑋)))
228218, 227mpbird 260 . 2 (𝜑 → ⟨𝐹, 𝐺⟩(𝑋(Sect‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩)
229 f1ococnv2 6850 . . . . . . 7 (𝐹:𝑅–1-1-onto→𝑆 → (𝐹 ∘ ◡𝐹) = ( I ↾ 𝑆))
2301, 229syl 18 . . . . . 6 (𝜑 → (𝐹 ∘ ◡𝐹) = ( I ↾ 𝑆))
231913adant1 1148 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (𝑢𝐻𝑣) = ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)))
232231coeq2d 5840 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣)) = (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))))
233333ad2ant1 1151 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → 𝐹((𝑋 Full 𝑌) ∩ (𝑋 Faith 𝑌))𝐺)
234753adant3 1150 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (◡𝐹‘𝑢) ∈ 𝑅)
235773adant2 1149 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (◡𝐹‘𝑣) ∈ 𝑅)
23630, 31, 32, 233, 234, 235ffthf1o 18089 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))))
2371003impb 1132 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → ((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) = (𝑢(Hom ‘𝑌)𝑣))
238237f1oeq3d 6819 . . . . . . . . . . 11 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→((𝐹‘(◡𝐹‘𝑢))(Hom ‘𝑌)(𝐹‘(◡𝐹‘𝑣))) ↔ ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣)))
239236, 238mpbid 235 . . . . . . . . . 10 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → ((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣))
240 f1ococnv2 6850 . . . . . . . . . 10 (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)):((◡𝐹‘𝑢)(Hom ‘𝑋)(◡𝐹‘𝑣))–1-1-onto→(𝑢(Hom ‘𝑌)𝑣) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))) = ( I ↾ (𝑢(Hom ‘𝑌)𝑣)))
241239, 240syl 18 . . . . . . . . 9 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ ◡((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣))) = ( I ↾ (𝑢(Hom ‘𝑌)𝑣)))
242232, 241eqtrd 2796 . . . . . . . 8 ((𝜑 ∧ 𝑢 ∈ 𝑆 ∧ 𝑣 ∈ 𝑆) → (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣)) = ( I ↾ (𝑢(Hom ‘𝑌)𝑣)))
243242mpoeq3dva 7495 . . . . . . 7 (𝜑 → (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣))) = (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ ( I ↾ (𝑢(Hom ‘𝑌)𝑣))))
244 fveq2 6883 . . . . . . . . . 10 (𝑧 = ⟨𝑢, 𝑣⟩ → ((Hom ‘𝑌)‘𝑧) = ((Hom ‘𝑌)‘⟨𝑢, 𝑣⟩))
245 df-ov 7421 . . . . . . . . . 10 (𝑢(Hom ‘𝑌)𝑣) = ((Hom ‘𝑌)‘⟨𝑢, 𝑣⟩)
246244, 245eqtr4di 2814 . . . . . . . . 9 (𝑧 = ⟨𝑢, 𝑣⟩ → ((Hom ‘𝑌)‘𝑧) = (𝑢(Hom ‘𝑌)𝑣))
247246reseq2d 5970 . . . . . . . 8 (𝑧 = ⟨𝑢, 𝑣⟩ → ( I ↾ ((Hom ‘𝑌)‘𝑧)) = ( I ↾ (𝑢(Hom ‘𝑌)𝑣)))
248247mpompt 7532 . . . . . . 7 (𝑧 ∈ (𝑆 × 𝑆) ↦ ( I ↾ ((Hom ‘𝑌)‘𝑧))) = (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ ( I ↾ (𝑢(Hom ‘𝑌)𝑣)))
249243, 248eqtr4di 2814 . . . . . 6 (𝜑 → (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣))) = (𝑧 ∈ (𝑆 × 𝑆) ↦ ( I ↾ ((Hom ‘𝑌)‘𝑧))))
250230, 249opeq12d 4841 . . . . 5 (𝜑 → ⟨(𝐹 ∘ ◡𝐹), (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣)))⟩ = ⟨( I ↾ 𝑆), (𝑧 ∈ (𝑆 × 𝑆) ↦ ( I ↾ ((Hom ‘𝑌)‘𝑧)))⟩)
25152, 205, 51cofuval2 18055 . . . . 5 (𝜑 → (⟨𝐹, 𝐺⟩ ∘func ⟨◡𝐹, 𝐻⟩) = ⟨(𝐹 ∘ ◡𝐹), (𝑢 ∈ 𝑆, 𝑣 ∈ 𝑆 ↦ (((◡𝐹‘𝑢)𝐺(◡𝐹‘𝑣)) ∘ (𝑢𝐻𝑣)))⟩)
252 eqid 2761 . . . . . 6 (idfunc‘𝑌) = (idfunc‘𝑌)
253252, 52, 64, 32idfuval 18044 . . . . 5 (𝜑 → (idfunc‘𝑌) = ⟨( I ↾ 𝑆), (𝑧 ∈ (𝑆 × 𝑆) ↦ ( I ↾ ((Hom ‘𝑌)‘𝑧)))⟩)
254250, 251, 2533eqtr4d 2806 . . . 4 (𝜑 → (⟨𝐹, 𝐺⟩ ∘func ⟨◡𝐹, 𝐻⟩) = (idfunc‘𝑌))
25557, 58, 59, 210, 63, 65, 63, 214, 212catcco 18273 . . . 4 (𝜑 → (⟨𝐹, 𝐺⟩(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩) = (⟨𝐹, 𝐺⟩ ∘func ⟨◡𝐹, 𝐻⟩))
25657, 58, 216, 252, 59, 63catcid 18275 . . . 4 (𝜑 → ((Id‘𝐶)‘𝑌) = (idfunc‘𝑌))
257254, 255, 2563eqtr4d 2806 . . 3 (𝜑 → (⟨𝐹, 𝐺⟩(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩) = ((Id‘𝐶)‘𝑌))
25858, 219, 210, 216, 220, 222, 63, 65, 226, 224issect2 17922 . . 3 (𝜑 → (⟨◡𝐹, 𝐻⟩(𝑌(Sect‘𝐶)𝑋)⟨𝐹, 𝐺⟩ ↔ (⟨𝐹, 𝐺⟩(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩) = ((Id‘𝐶)‘𝑌)))
259257, 258mpbird 260 . 2 (𝜑 → ⟨◡𝐹, 𝐻⟩(𝑌(Sect‘𝐶)𝑋)⟨𝐹, 𝐺⟩)
260 catcisolem.i . . 3 𝐼 = (Inv‘𝐶)
26158, 260, 222, 65, 63, 220isinv 17928 . 2 (𝜑 → (⟨𝐹, 𝐺⟩(𝑋𝐼𝑌)⟨◡𝐹, 𝐻⟩ ↔ (⟨𝐹, 𝐺⟩(𝑋(Sect‘𝐶)𝑌)⟨◡𝐹, 𝐻⟩ ∧ ⟨◡𝐹, 𝐻⟩(𝑌(Sect‘𝐶)𝑋)⟨𝐹, 𝐺⟩)))
262228, 259, 261mpbir2and 726 1 (𝜑 → ⟨𝐹, 𝐺⟩(𝑋𝐼𝑌)⟨◡𝐹, 𝐻⟩)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   ∩ cin 3898  ⟨cop 4590   class class class wbr 5103   ↦ cmpt 5186   I cid 5545   × cxp 5649  ◡ccnv 5650   ↾ cres 5653   ∘ ccom 5655   Fn wfn 6532  ⟶wf 6533  –1-1-onto→wf1o 6536  ‘cfv 6537  (class class class)co 7418   ∈ cmpo 7420  Basecbs 17380  Hom chom 17432  compcco 17433  Catccat 17831  Idccid 17832  Sectcsect 17912  Invcinv 17913   Func cfunc 18022  idfunccidfu 18023   ∘func ccofu 18024   Full cful 18072   Faith cfth 18073  CatCatccatc 18266
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7749  ax-cnex 11249  ax-resscn 11250  ax-1cn 11251  ax-icn 11252  ax-addcl 11253  ax-addrcl 11254  ax-mulcl 11255  ax-mulrcl 11256  ax-mulcom 11257  ax-addass 11258  ax-mulass 11259  ax-distr 11260  ax-i2m1 11261  ax-1ne0 11262  ax-1rid 11263  ax-rnegex 11264  ax-rrecex 11265  ax-cnre 11266  ax-pre-lttri 11267  ax-pre-lttrn 11268  ax-pre-ltadd 11269  ax-pre-mulgt0 11270
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7375  df-ov 7421  df-oprab 7422  df-mpo 7423  df-om 7876  df-1st 7999  df-2nd 8000  df-frecs 8292  df-wrecs 8323  df-recs 8372  df-rdg 8411  df-1o 8469  df-er 8710  df-map 8842  df-ixp 8919  df-en 8967  df-dom 8968  df-sdom 8969  df-fin 8970  df-pnf 11338  df-mnf 11339  df-xr 11340  df-ltxr 11341  df-le 11342  df-sub 11536  df-neg 11537  df-nn 12329  df-2 12398  df-3 12399  df-4 12400  df-5 12401  df-6 12402  df-7 12403  df-8 12404  df-9 12405  df-n0 12600  df-z 12687  df-dec 12808  df-uz 12959  df-fz 13633  df-struct 17318  df-slot 17353  df-ndx 17365  df-base 17381  df-hom 17445  df-cco 17446  df-cat 17835  df-cid 17836  df-sect 17915  df-inv 17916  df-func 18026  df-idfu 18027  df-cofu 18028  df-full 18074  df-fth 18075  df-catc 18267
This theorem is used by:  catciso  18279
  Copyright terms: Public domain W3C validator