2arwcat - Mathbox for Zhi Wang

	Mathbox for Zhi Wang		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > 2arwcat		Structured version Visualization version GIF version

Theorem 2arwcat 50090

Description: The condition for a structure with at most one object and at most two morphisms being a category. "2arwcat.2" to "2arwcat.5" are also necessary conditions if 𝑋, 0, and 1 are all sets, due to catlid 17643, catrid 17644, and catcocl 17645. (Contributed by Zhi Wang, 5-Nov-2025.)

**Hypotheses**
Ref	Expression
2arwcat.b	⊢ (𝜑 → {𝑋} = (Base‘𝐶))
2arwcat.h	⊢ (𝜑 → 𝐻 = (Hom ‘𝐶))
2arwcat.x	⊢ (𝜑 → · = (comp‘𝐶))
2arwcat.1	⊢ (𝑋𝐻𝑋) = { 0 , 1 }
2arwcat.2	⊢ (𝜑 → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 1 )
2arwcat.3	⊢ (𝜑 → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) = 0 )
2arwcat.4	⊢ (𝜑 → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 0 )
2arwcat.5	⊢ (𝜑 → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) ∈ { 0 , 1 })

**Assertion**
Ref	Expression
2arwcat	⊢ (𝜑 → (𝐶 ∈ Cat ∧ (Id‘𝐶) = (𝑦 ∈ {𝑋} ↦ 1 )))

Distinct variable groups: 𝑦, · 𝑦,𝐶 𝑦,𝐻 𝑦,𝑋 𝜑,𝑦 Allowed substitution hints: 1 (𝑦) 0 (𝑦)

Proof of Theorem 2arwcat Dummy variables 𝑓 𝑔 𝑘 𝑤 𝑥 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		2arwcat.b	. 2 ⊢ (𝜑 → {𝑋} = (Base‘𝐶))
2		2arwcat.h	. 2 ⊢ (𝜑 → 𝐻 = (Hom ‘𝐶))
3		2arwcat.x	. 2 ⊢ (𝜑 → · = (comp‘𝐶))
4		2arwcat.2	. . . . . . 7 ⊢ (𝜑 → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 1 )
5		ovex 7394	. . . . . . 7 ⊢ ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) ∈ V
6	4, 5	eqeltrrdi 2846	. . . . . 6 ⊢ (𝜑 → 1 ∈ V)
7		prid2g 4706	. . . . . 6 ⊢ ( 1 ∈ V → 1 ∈ { 0 , 1 })
8	6, 7	syl 17	. . . . 5 ⊢ (𝜑 → 1 ∈ { 0 , 1 })
9		2arwcat.1	. . . . 5 ⊢ (𝑋𝐻𝑋) = { 0 , 1 }
10	8, 9	eleqtrrdi 2848	. . . 4 ⊢ (𝜑 → 1 ∈ (𝑋𝐻𝑋))
11		df-ov 7364	. . . . 5 ⊢ (𝑋𝐻𝑋) = (𝐻‘⟨𝑋, 𝑋⟩)
12	2	fveq1d 6837	. . . . 5 ⊢ (𝜑 → (𝐻‘⟨𝑋, 𝑋⟩) = ((Hom ‘𝐶)‘⟨𝑋, 𝑋⟩))
13	11, 12	eqtrid 2784	. . . 4 ⊢ (𝜑 → (𝑋𝐻𝑋) = ((Hom ‘𝐶)‘⟨𝑋, 𝑋⟩))
14	10, 13	eleqtrd 2839	. . 3 ⊢ (𝜑 → 1 ∈ ((Hom ‘𝐶)‘⟨𝑋, 𝑋⟩))
15		elfv2ex 6878	. . 3 ⊢ ( 1 ∈ ((Hom ‘𝐶)‘⟨𝑋, 𝑋⟩) → 𝐶 ∈ V)
16	14, 15	syl 17	. 2 ⊢ (𝜑 → 𝐶 ∈ V)
17	9	2arwcatlem1 50085	. 2 ⊢ ((((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 ))) ↔ ((𝑥 ∈ {𝑋} ∧ 𝑦 ∈ {𝑋}) ∧ (𝑧 ∈ {𝑋} ∧ 𝑤 ∈ {𝑋}) ∧ (𝑓 ∈ (𝑥𝐻𝑦) ∧ 𝑔 ∈ (𝑦𝐻𝑧) ∧ 𝑘 ∈ (𝑧𝐻𝑤))))
18	8	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ {𝑋}) → 1 ∈ { 0 , 1 })
19		velsn 4584	. . . . 5 ⊢ (𝑦 ∈ {𝑋} ↔ 𝑦 = 𝑋)
20		id 22	. . . . . . 7 ⊢ (𝑦 = 𝑋 → 𝑦 = 𝑋)
21	20, 20	oveq12d 7379	. . . . . 6 ⊢ (𝑦 = 𝑋 → (𝑦𝐻𝑦) = (𝑋𝐻𝑋))
22	21, 9	eqtrdi 2788	. . . . 5 ⊢ (𝑦 = 𝑋 → (𝑦𝐻𝑦) = { 0 , 1 })
23	19, 22	sylbi 217	. . . 4 ⊢ (𝑦 ∈ {𝑋} → (𝑦𝐻𝑦) = { 0 , 1 })
24	23	adantl 481	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ {𝑋}) → (𝑦𝐻𝑦) = { 0 , 1 })
25	18, 24	eleqtrrd 2840	. 2 ⊢ ((𝜑 ∧ 𝑦 ∈ {𝑋}) → 1 ∈ (𝑦𝐻𝑦))
26		simprll 779	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑥 = 𝑋 ∧ 𝑦 = 𝑋))
27	26	simpld 494	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑥 = 𝑋)
28	26	simprd 495	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑦 = 𝑋)
29		simprr1 1223	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑓 = 0 ∨ 𝑓 = 1 ))
30	4	adantr 480	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 1 )
31		2arwcat.3	. . . 4 ⊢ (𝜑 → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) = 0 )
32	31	adantr 480	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) = 0 )
33	27, 28, 28, 29, 30, 32	2arwcatlem2 50086	. 2 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑥, 𝑦⟩ · 𝑦)𝑓) = 𝑓)
34		simprlr 780	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑧 = 𝑋 ∧ 𝑤 = 𝑋))
35	34	simpld 494	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑧 = 𝑋)
36		simprr2 1224	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔 = 0 ∨ 𝑔 = 1 ))
37		2arwcat.4	. . . 4 ⊢ (𝜑 → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 0 )
38	37	adantr 480	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 0 )
39	28, 28, 35, 36, 30, 38	2arwcatlem3 50087	. 2 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑦, 𝑦⟩ · 𝑧) 1 ) = 𝑔)
40		2arwcat.5	. . . . 5 ⊢ (𝜑 → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) ∈ { 0 , 1 })
41	40	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ) ∈ { 0 , 1 })
42	27, 28, 35, 29, 30, 38, 32, 41, 36	2arwcatlem4 50088	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) ∈ { 0 , 1 })
43	27, 35	oveq12d 7379	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑥𝐻𝑧) = (𝑋𝐻𝑋))
44	43, 9	eqtrdi 2788	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑥𝐻𝑧) = { 0 , 1 })
45	42, 44	eleqtrrd 2840	. 2 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) ∈ (𝑥𝐻𝑧))
46	31, 37, 40	2arwcatlem5 50089	. . . . . . . 8 ⊢ (𝜑 → (( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )(⟨𝑋, 𝑋⟩ · 𝑋) 0 ) = ( 0 (⟨𝑋, 𝑋⟩ · 𝑋)( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )))
47	46	ad4antr 733	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → (( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )(⟨𝑋, 𝑋⟩ · 𝑋) 0 ) = ( 0 (⟨𝑋, 𝑋⟩ · 𝑋)( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )))
48		simpr 484	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → 𝑘 = 0 )
49		simplr 769	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → 𝑔 = 0 )
50	48, 49	oveq12d 7379	. . . . . . . 8 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ))
51		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) → 𝑓 = 0 )
52	51	ad2antrr 727	. . . . . . . 8 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → 𝑓 = 0 )
53	50, 52	oveq12d 7379	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )(⟨𝑋, 𝑋⟩ · 𝑋) 0 ))
54	49, 52	oveq12d 7379	. . . . . . . 8 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = ( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 ))
55	48, 54	oveq12d 7379	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = ( 0 (⟨𝑋, 𝑋⟩ · 𝑋)( 0 (⟨𝑋, 𝑋⟩ · 𝑋) 0 )))
56	47, 53, 55	3eqtr4d 2782	. . . . . 6 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 0 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
57		eqidd 2738	. . . . . . . . 9 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑋 = 𝑋)
58	27, 28	opeq12d 4825	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ⟨𝑥, 𝑦⟩ = ⟨𝑋, 𝑋⟩)
59	58, 35	oveq12d 7379	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (⟨𝑥, 𝑦⟩ · 𝑧) = (⟨𝑋, 𝑋⟩ · 𝑋))
60	59	oveqd 7378	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
61	60, 42	eqeltrrd 2838	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) ∈ { 0 , 1 })
62		ovex 7394	. . . . . . . . . . 11 ⊢ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) ∈ V
63	62	elpr 4593	. . . . . . . . . 10 ⊢ ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) ∈ { 0 , 1 } ↔ ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 0 ∨ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 1 ))
64	61, 63	sylib 218	. . . . . . . . 9 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 0 ∨ (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 1 ))
65	57, 57, 57, 64, 30, 32	2arwcatlem2 50086	. . . . . . . 8 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
66	65	ad3antrrr 731	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
67		simpr 484	. . . . . . . 8 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → 𝑘 = 1 )
68	67	oveq1d 7376	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
69	67	oveq1d 7376	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
70	57, 57, 57, 36, 30, 32	2arwcatlem2 50086	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑔)
71	70	ad3antrrr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑔)
72	69, 71	eqtrd 2772	. . . . . . . 8 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑔)
73	72	oveq1d 7376	. . . . . . 7 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
74	66, 68, 73	3eqtr4rd 2783	. . . . . 6 ⊢ (((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) ∧ 𝑘 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
75		simprr3 1225	. . . . . . 7 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑘 = 0 ∨ 𝑘 = 1 ))
76	75	ad2antrr 727	. . . . . 6 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) → (𝑘 = 0 ∨ 𝑘 = 1 ))
77	56, 74, 76	mpjaodan 961	. . . . 5 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 0 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
78		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → 𝑔 = 1 )
79	78	oveq2d 7377	. . . . . . . 8 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋) 1 ))
80	57, 57, 57, 75, 30, 38	2arwcatlem3 50087	. . . . . . . . 9 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 𝑘)
81	80	ad2antrr 727	. . . . . . . 8 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 𝑘)
82	79, 81	eqtrd 2772	. . . . . . 7 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 𝑘)
83	82	oveq1d 7376	. . . . . 6 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
84	78	oveq1d 7376	. . . . . . . 8 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
85	57, 57, 57, 29, 30, 32	2arwcatlem2 50086	. . . . . . . . 9 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓)
86	85	ad2antrr 727	. . . . . . . 8 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → ( 1 (⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓)
87	84, 86	eqtrd 2772	. . . . . . 7 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑓)
88	87	oveq2d 7377	. . . . . 6 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
89	83, 88	eqtr4d 2775	. . . . 5 ⊢ ((((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) ∧ 𝑔 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
90	36	adantr 480	. . . . 5 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) → (𝑔 = 0 ∨ 𝑔 = 1 ))
91	77, 89, 90	mpjaodan 961	. . . 4 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 0 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
92	57, 57, 57, 36, 30, 38, 32, 41, 75	2arwcatlem4 50088	. . . . . . . 8 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) ∈ { 0 , 1 })
93		ovex 7394	. . . . . . . . 9 ⊢ (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) ∈ V
94	93	elpr 4593	. . . . . . . 8 ⊢ ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) ∈ { 0 , 1 } ↔ ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 0 ∨ (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 1 ))
95	92, 94	sylib 218	. . . . . . 7 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 0 ∨ (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔) = 1 ))
96	57, 57, 57, 95, 30, 38	2arwcatlem3 50087	. . . . . 6 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
97	96	adantr 480	. . . . 5 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
98		simpr 484	. . . . . 6 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → 𝑓 = 1 )
99	98	oveq2d 7377	. . . . 5 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋) 1 ))
100	98	oveq2d 7377	. . . . . . 7 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑔(⟨𝑋, 𝑋⟩ · 𝑋) 1 ))
101	57, 57, 57, 36, 30, 38	2arwcatlem3 50087	. . . . . . . 8 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 𝑔)
102	101	adantr 480	. . . . . . 7 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋) 1 ) = 𝑔)
103	100, 102	eqtrd 2772	. . . . . 6 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → (𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = 𝑔)
104	103	oveq2d 7377	. . . . 5 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
105	97, 99, 104	3eqtr4d 2782	. . . 4 ⊢ (((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) ∧ 𝑓 = 1 ) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
106	91, 105, 29	mpjaodan 961	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
107	34	simprd 495	. . . . 5 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑤 = 𝑋)
108	58, 107	oveq12d 7379	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (⟨𝑥, 𝑦⟩ · 𝑤) = (⟨𝑋, 𝑋⟩ · 𝑋))
109	28, 35	opeq12d 4825	. . . . . 6 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ⟨𝑦, 𝑧⟩ = ⟨𝑋, 𝑋⟩)
110	109, 107	oveq12d 7379	. . . . 5 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (⟨𝑦, 𝑧⟩ · 𝑤) = (⟨𝑋, 𝑋⟩ · 𝑋))
111	110	oveqd 7378	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑘(⟨𝑦, 𝑧⟩ · 𝑤)𝑔) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔))
112		eqidd 2738	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑓 = 𝑓)
113	108, 111, 112	oveq123d 7382	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑘(⟨𝑦, 𝑧⟩ · 𝑤)𝑔)(⟨𝑥, 𝑦⟩ · 𝑤)𝑓) = ((𝑘(⟨𝑋, 𝑋⟩ · 𝑋)𝑔)(⟨𝑋, 𝑋⟩ · 𝑋)𝑓))
114	27, 35	opeq12d 4825	. . . . 5 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ⟨𝑥, 𝑧⟩ = ⟨𝑋, 𝑋⟩)
115	114, 107	oveq12d 7379	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (⟨𝑥, 𝑧⟩ · 𝑤) = (⟨𝑋, 𝑋⟩ · 𝑋))
116		eqidd 2738	. . . 4 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → 𝑘 = 𝑘)
117	115, 116, 60	oveq123d 7382	. . 3 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → (𝑘(⟨𝑥, 𝑧⟩ · 𝑤)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓)) = (𝑘(⟨𝑋, 𝑋⟩ · 𝑋)(𝑔(⟨𝑋, 𝑋⟩ · 𝑋)𝑓)))
118	106, 113, 117	3eqtr4d 2782	. 2 ⊢ ((𝜑 ∧ (((𝑥 = 𝑋 ∧ 𝑦 = 𝑋) ∧ (𝑧 = 𝑋 ∧ 𝑤 = 𝑋)) ∧ ((𝑓 = 0 ∨ 𝑓 = 1 ) ∧ (𝑔 = 0 ∨ 𝑔 = 1 ) ∧ (𝑘 = 0 ∨ 𝑘 = 1 )))) → ((𝑘(⟨𝑦, 𝑧⟩ · 𝑤)𝑔)(⟨𝑥, 𝑦⟩ · 𝑤)𝑓) = (𝑘(⟨𝑥, 𝑧⟩ · 𝑤)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓)))
119	1, 2, 3, 16, 17, 25, 33, 39, 45, 118	iscatd2 17641	1 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ (Id‘𝐶) = (𝑦 ∈ {𝑋} ↦ 1 )))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∨ wo 848 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 Vcvv 3430 {csn 4568 {cpr 4570 ⟨cop 4574 ↦ cmpt 5167 ‘cfv 6493 (class class class)co 7361 Basecbs 17173 Hom chom 17225 compcco 17226 Catccat 17624 Idccid 17625

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5213 ax-sep 5232 ax-nul 5242 ax-pr 5371

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-ral 3053 df-rex 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-nul 4275 df-if 4468 df-sn 4569 df-pr 4571 df-op 4575 df-uni 4852 df-iun 4936 df-br 5087 df-opab 5149 df-mpt 5168 df-id 5520 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-iota 6449 df-fun 6495 df-fn 6496 df-f 6497 df-f1 6498 df-fo 6499 df-f1o 6500 df-fv 6501 df-riota 7318 df-ov 7364 df-cat 17628 df-cid 17629

This theorem is referenced by: incat 50091

W3C validator