fact: Parameter add_mark_nb_unmarked : forall m i, ~ is_marked m i -> nb_unmarked (add_mark m i) < nb_unmarked m.
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat