fact: Fixpoint plus_mod_aux k n (x:nat) := match n with | O => x | S m => match (k - S x) with | O => plus_mod_aux k m O | _ => plus_mod_aux k m (S x) end end.
imports: Coq(Arith Relations Lia) AlmostFull.PropBounded(AlmostFull) AlmostFull.PropBounded(AFConstructions)