DEFINITION csubt_pr2()
TYPE =
       g:G.c1:C.t1:T.t2:T.(pr2 c1 t1 t2)c2:C.(csubt g c1 c2)(pr2 c2 t1 t2)
BODY =
Show proof