(* case 2.1 : i0 = 0 *)
DropGenBase; Inversion H2; Clear H2.
Rewrite <- H5; Rewrite H6 in H; Rewrite <- H7 in H3; Clear H5 H6 H7 d0 k u0.
- Subst0Subst0; Arith9'In H4 i; XDEAuto 7.
+ Subst0Subst0; Arith9'In H4 i. (*; XDEAuto 7.
(* case 2.2 : i0 > 0 *)
Clear IHi0; NewInduction k; DropGenBase; XEAuto.
Qed.
Hints Resolve pr3_lift : ltlc.
+*)