proposition: Lemma index_of_index_length : forall l i, index (length l) i -> index l i.
proof: Proof. Proof using. introv H. rewrite* index_eq_index_length. Qed.
imports: TLC(LibTactics LibLogic LibOperation LibReflect LibProd LibNat LibInt LibOption LibWf) TLC(LibInt)