Definition IdApplicative : Applicative.Definition NatPlusApplicative : Applicative.Definition ConstListApplicative (a : Type) : Applicative.Definition KSpure i j a (x : a) : KleeneStore i j a :=
  kleeneStore (fun v => x) (Vector.nil _).Definition append_view A n p (P : Vector.t A (n + p) -> Type) :
  (forall v1 v2, P (Vector.append v1 v2)) ->
  forall v, P v.

Lemma append_view_append A n p (P : Vector.t A (n + p) -> Type) f v1 v2 : append_view (P:=P) f (Vector.append v1 v2) = f v1 v2.