Metamath Proof Explorer


Theorem catcocl

Description: Closure of a composition arrow. (Contributed by Mario Carneiro, 2-Jan-2017)

Ref Expression
Hypotheses catcocl.b โŠข ๐ต = ( Base โ€˜ ๐ถ )
catcocl.h โŠข ๐ป = ( Hom โ€˜ ๐ถ )
catcocl.o โŠข ยท = ( comp โ€˜ ๐ถ )
catcocl.c โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ Cat )
catcocl.x โŠข ( ๐œ‘ โ†’ ๐‘‹ โˆˆ ๐ต )
catcocl.y โŠข ( ๐œ‘ โ†’ ๐‘Œ โˆˆ ๐ต )
catcocl.z โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ ๐ต )
catcocl.f โŠข ( ๐œ‘ โ†’ ๐น โˆˆ ( ๐‘‹ ๐ป ๐‘Œ ) )
catcocl.g โŠข ( ๐œ‘ โ†’ ๐บ โˆˆ ( ๐‘Œ ๐ป ๐‘ ) )
Assertion catcocl ( ๐œ‘ โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) )

Proof

Step Hyp Ref Expression
1 catcocl.b โŠข ๐ต = ( Base โ€˜ ๐ถ )
2 catcocl.h โŠข ๐ป = ( Hom โ€˜ ๐ถ )
3 catcocl.o โŠข ยท = ( comp โ€˜ ๐ถ )
4 catcocl.c โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ Cat )
5 catcocl.x โŠข ( ๐œ‘ โ†’ ๐‘‹ โˆˆ ๐ต )
6 catcocl.y โŠข ( ๐œ‘ โ†’ ๐‘Œ โˆˆ ๐ต )
7 catcocl.z โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ ๐ต )
8 catcocl.f โŠข ( ๐œ‘ โ†’ ๐น โˆˆ ( ๐‘‹ ๐ป ๐‘Œ ) )
9 catcocl.g โŠข ( ๐œ‘ โ†’ ๐บ โˆˆ ( ๐‘Œ ๐ป ๐‘ ) )
10 1 2 3 iscat โŠข ( ๐ถ โˆˆ Cat โ†’ ( ๐ถ โˆˆ Cat โ†” โˆ€ ๐‘ฅ โˆˆ ๐ต ( โˆƒ ๐‘” โˆˆ ( ๐‘ฅ ๐ป ๐‘ฅ ) โˆ€ ๐‘ฆ โˆˆ ๐ต ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฆ ๐ป ๐‘ฅ ) ( ๐‘” ( โŸจ ๐‘ฆ , ๐‘ฅ โŸฉ ยท ๐‘ฅ ) ๐‘“ ) = ๐‘“ โˆง โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) ( ๐‘“ ( โŸจ ๐‘ฅ , ๐‘ฅ โŸฉ ยท ๐‘ฆ ) ๐‘” ) = ๐‘“ ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) ) ) )
11 10 ibi โŠข ( ๐ถ โˆˆ Cat โ†’ โˆ€ ๐‘ฅ โˆˆ ๐ต ( โˆƒ ๐‘” โˆˆ ( ๐‘ฅ ๐ป ๐‘ฅ ) โˆ€ ๐‘ฆ โˆˆ ๐ต ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฆ ๐ป ๐‘ฅ ) ( ๐‘” ( โŸจ ๐‘ฆ , ๐‘ฅ โŸฉ ยท ๐‘ฅ ) ๐‘“ ) = ๐‘“ โˆง โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) ( ๐‘“ ( โŸจ ๐‘ฅ , ๐‘ฅ โŸฉ ยท ๐‘ฆ ) ๐‘” ) = ๐‘“ ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) ) )
12 simpl โŠข ( ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) โ†’ ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
13 12 2ralimi โŠข ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) โ†’ โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
14 13 2ralimi โŠข ( โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) โ†’ โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
15 14 adantl โŠข ( ( โˆƒ ๐‘” โˆˆ ( ๐‘ฅ ๐ป ๐‘ฅ ) โˆ€ ๐‘ฆ โˆˆ ๐ต ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฆ ๐ป ๐‘ฅ ) ( ๐‘” ( โŸจ ๐‘ฆ , ๐‘ฅ โŸฉ ยท ๐‘ฅ ) ๐‘“ ) = ๐‘“ โˆง โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) ( ๐‘“ ( โŸจ ๐‘ฅ , ๐‘ฅ โŸฉ ยท ๐‘ฆ ) ๐‘” ) = ๐‘“ ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) ) โ†’ โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
16 15 ralimi โŠข ( โˆ€ ๐‘ฅ โˆˆ ๐ต ( โˆƒ ๐‘” โˆˆ ( ๐‘ฅ ๐ป ๐‘ฅ ) โˆ€ ๐‘ฆ โˆˆ ๐ต ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฆ ๐ป ๐‘ฅ ) ( ๐‘” ( โŸจ ๐‘ฆ , ๐‘ฅ โŸฉ ยท ๐‘ฅ ) ๐‘“ ) = ๐‘“ โˆง โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) ( ๐‘“ ( โŸจ ๐‘ฅ , ๐‘ฅ โŸฉ ยท ๐‘ฆ ) ๐‘” ) = ๐‘“ ) โˆง โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โˆง โˆ€ ๐‘ค โˆˆ ๐ต โˆ€ ๐‘ฃ โˆˆ ( ๐‘ง ๐ป ๐‘ค ) ( ( ๐‘ฃ ( โŸจ ๐‘ฆ , ๐‘ง โŸฉ ยท ๐‘ค ) ๐‘” ) ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ค ) ๐‘“ ) = ( ๐‘ฃ ( โŸจ ๐‘ฅ , ๐‘ง โŸฉ ยท ๐‘ค ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) ) ) ) โ†’ โˆ€ ๐‘ฅ โˆˆ ๐ต โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
17 4 11 16 3syl โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘ฅ โˆˆ ๐ต โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) )
18 6 adantr โŠข ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โ†’ ๐‘Œ โˆˆ ๐ต )
19 7 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โ†’ ๐‘ โˆˆ ๐ต )
20 8 ad3antrrr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐น โˆˆ ( ๐‘‹ ๐ป ๐‘Œ ) )
21 simpllr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐‘ฅ = ๐‘‹ )
22 simplr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐‘ฆ = ๐‘Œ )
23 21 22 oveq12d โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ( ๐‘ฅ ๐ป ๐‘ฆ ) = ( ๐‘‹ ๐ป ๐‘Œ ) )
24 20 23 eleqtrrd โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐น โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) )
25 9 ad3antrrr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐บ โˆˆ ( ๐‘Œ ๐ป ๐‘ ) )
26 simpr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐‘ง = ๐‘ )
27 22 26 oveq12d โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ( ๐‘ฆ ๐ป ๐‘ง ) = ( ๐‘Œ ๐ป ๐‘ ) )
28 25 27 eleqtrrd โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ๐บ โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) )
29 28 adantr โŠข ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โ†’ ๐บ โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) )
30 simp-5r โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ๐‘ฅ = ๐‘‹ )
31 simp-4r โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ๐‘ฆ = ๐‘Œ )
32 30 31 opeq12d โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ = โŸจ ๐‘‹ , ๐‘Œ โŸฉ )
33 simpllr โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ๐‘ง = ๐‘ )
34 32 33 oveq12d โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) = ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) )
35 simpr โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ๐‘” = ๐บ )
36 simplr โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ๐‘“ = ๐น )
37 34 35 36 oveq123d โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) = ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) )
38 30 33 oveq12d โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ( ๐‘ฅ ๐ป ๐‘ง ) = ( ๐‘‹ ๐ป ๐‘ ) )
39 37 38 eleq12d โŠข ( ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โˆง ๐‘” = ๐บ ) โ†’ ( ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†” ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
40 29 39 rspcdv โŠข ( ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โˆง ๐‘“ = ๐น ) โ†’ ( โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
41 24 40 rspcimdv โŠข ( ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โˆง ๐‘ง = ๐‘ ) โ†’ ( โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
42 19 41 rspcimdv โŠข ( ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โˆง ๐‘ฆ = ๐‘Œ ) โ†’ ( โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
43 18 42 rspcimdv โŠข ( ( ๐œ‘ โˆง ๐‘ฅ = ๐‘‹ ) โ†’ ( โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
44 5 43 rspcimdv โŠข ( ๐œ‘ โ†’ ( โˆ€ ๐‘ฅ โˆˆ ๐ต โˆ€ ๐‘ฆ โˆˆ ๐ต โˆ€ ๐‘ง โˆˆ ๐ต โˆ€ ๐‘“ โˆˆ ( ๐‘ฅ ๐ป ๐‘ฆ ) โˆ€ ๐‘” โˆˆ ( ๐‘ฆ ๐ป ๐‘ง ) ( ๐‘” ( โŸจ ๐‘ฅ , ๐‘ฆ โŸฉ ยท ๐‘ง ) ๐‘“ ) โˆˆ ( ๐‘ฅ ๐ป ๐‘ง ) โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) ) )
45 17 44 mpd โŠข ( ๐œ‘ โ†’ ( ๐บ ( โŸจ ๐‘‹ , ๐‘Œ โŸฉ ยท ๐‘ ) ๐น ) โˆˆ ( ๐‘‹ ๐ป ๐‘ ) )