fact: Fixpoint Vsub n (v : vector A n) i k : i+k<=n -> vector A k := match k as k return i+k<=n -> vector A k with | 0 => fun _ => Vnil | S k' => fun h => Vcons (Vnth v (Vsub_aux1 h)) (Vsub v (S i) k' (Vsub_aux2 h)) end.
imports: Coq(Vector Program Structures.Equalities Morphisms) CoLoR(LogicUtil NatUtil EqUtil ListUtil BoolUtil RelUtil)