DEFINITION arity_sred_wcpr0_pr1()
TYPE =
       ∀t1:T.∀t2:T.(pr1 t1 t2)→∀g:G.∀c1:C.∀a:A.(arity g c1 t1 a)→∀c2:C.(wcpr0 c1 c2)→(arity g c2 t2 a)
BODY =
Show proof