[002M] 演習iiiを階数、A:U(i)A:\mathcal {U}(i)A:U(i)を型とする。関数diag(A):A→A×A\mathord {\textnormal {\textsf {diag}}}(A):A\to A\times Adiag(A):A→A×Aであって、任意のa:Aa:Aa:Aに対してproj1(diag(A,a))≡a\mathord {\textnormal {\textsf {proj}}}_{1}(\mathord {\textnormal {\textsf {diag}}}(A,a))\equiv aproj1(diag(A,a))≡aかつproj2(diag(A,a))≡a\mathord {\textnormal {\textsf {proj}}}_{2}(\mathord {\textnormal {\textsf {diag}}}(A,a))\equiv aproj2(diag(A,a))≡aとなるものを構成せよ。