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


DEBUG:Going to execute:
revert offset n Hfold Hnth