DEFINITION pr0_gen_cast()
TYPE =
       ∀u1:T
         .∀t1:T
           .∀x:T
             .pr0 (THead (Flat Cast) u1 t1) x
               →or (ex3_2 T T λu2:T.λt2:T.eq T x (THead (Flat Cast) u2 t2) λu2:T.λ:T.pr0 u1 u2 λ:T.λt2:T.pr0 t1 t2) (pr0 t1 x)
BODY =
Show proof