DEFINITION csuba_gen_abst_rev()
TYPE =
       g:G
         .d1:C
           .c:C
             .u:T
               .csuba g c (CHead d1 (Bind Abst) u)
                 (or
                      ex2 C λd2:C.eq C c (CHead d2 (Bind Abst) u) λd2:C.csuba g d2 d1
                      ex2_2 C T λd2:C.λu2:T.eq C c (CHead d2 (Bind Void) u2) λd2:C.λ:T.csuba g d2 d1)
BODY =
Show proof