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


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