Goal:
  
  T : Type
  Listable_T : Listable T
  FinitelyListable_T : FinitelyListable T
  v : T
  n : nat
  offset : nat
  ============================
   (forallb (fun '(n, t) => n == find_index t)
      (combine (seq offset (length (list_all T))) (list_all T)) ->
    nth_error (list_all T) n = Some v -> find_index v = offset + n)


DEBUG:Going to execute:
intros Hfold Hnth