Goal:
  
  ============================
   (forall t : Empty_set,
    nth_error (list_all Empty_set) (find_index t) = Some t)


DEBUG:Going to execute:
cbv[list_all find_index];
            repeat (let t := fresh in
                    intro t; case t; clear t)