DEFINITION pr0_gen_void()
TYPE =
       u1:T
         .t1:T
           .x:T
             .pr0 (THead (Bind Void) u1 t1) x
               (or
                    ex3_2 T T λu2:T.λt2:T.eq T x (THead (Bind Void) u2 t2) λu2:T.λ:T.pr0 u1 u2 λ:T.λt2:T.pr0 t1 t2
                    pr0 t1 (lift (S OO x))
BODY =
Show proof