Definition complete MAX l := l ++ repeat (vptrofs 0) (Z.to_nat MAX - length l).

(* Specifications: *)
Lemma Znth_complete : forall n l MAX, n < Zlength l -> Znth n (complete MAX l) = Znth n l.
Lemma Forall_app : forall {A} (P : A -> Prop) l1 l2, Forall P (l1 ++ l2) <-> Forall P l1 /\ Forall P l2.
Lemma Forall_incl : forall {A} (P : A -> Prop) l1 l2 (Hall : Forall P l2) (Hincl : incl l1 l2), Forall P l1.
Lemma repeat_plus : forall {A} (x : A) i j, repeat x (i + j) = repeat x i ++ repeat x j.
Lemma in_insert_iff : forall {A} (x y : A) l1 l2, In x (l1 ++ y :: l2) <-> x = y \/ In x (l1 ++ l2).