Goal:
  
  ============================
   (list Empty_set)


DEBUG:Going to execute:
fun ev =>
             lazymatch ev with
             | S ?ev => force_num ev
             | ?ev => unify ev 0
             end