DEFINITION arity_sred_pr2()
TYPE =
       ∀c:C.∀t1:T.∀t2:T.(pr2 c t1 t2)→∀g:G.∀a:A.(arity g c t1 a)→(arity g c t2 a)
BODY =
Show proof