Goal:
  
  ============================
   (Listable Empty_set)


DEBUG:Going to execute:
unshelve esplit;
            [ 
            | repeat (let t := fresh in
                      intro t; case t; clear t); push_S_refine_num fin ]