DEFINITION pr1_strip()
TYPE =
       ∀t0:T.∀t1:T.(pr1 t0 t1)→∀t2:T.(pr0 t0 t2)→(ex2 T λt:T.pr1 t1 t λt:T.pr1 t2 t)
BODY =
Show proof