DEFINITION csubst0_drop_eq()
TYPE =
       ∀n:nat
         .∀c1:C
           .∀c2:C
             .∀v:T
               .csubst0 n v c1 c2
                 →∀e:C
                      .drop n O c1 e
                        →(or4
                             drop n O c2 e
                             ex3_4
                               F
                               C
                               T
                               T
                               λf:F.λe0:C.λu:T.λ:T.eq C e (CHead e0 (Flat f) u)
                               λf:F.λe0:C.λ:T.λw:T.drop n O c2 (CHead e0 (Flat f) w)
                               λ:F.λ:C.λu:T.λw:T.subst0 O v u w
                             ex3_4
                               F
                               C
                               C
                               T
                               λf:F.λe1:C.λ:C.λu:T.eq C e (CHead e1 (Flat f) u)
                               λf:F.λ:C.λe2:C.λu:T.drop n O c2 (CHead e2 (Flat f) u)
                               λ:F.λe1:C.λe2:C.λ:T.csubst0 O v e1 e2
                             ex4_5
                               F
                               C
                               C
                               T
                               T
                               λf:F.λe1:C.λ:C.λu:T.λ:T.eq C e (CHead e1 (Flat f) u)
                               λf:F.λ:C.λe2:C.λ:T.λw:T.drop n O c2 (CHead e2 (Flat f) w)
                               λ:F.λ:C.λ:C.λu:T.λw:T.subst0 O v u w
                               λ:F.λe1:C.λe2:C.λ:T.λ:T.csubst0 O v e1 e2)
BODY =
Show proof