fact: Fixpoint Ndiv_mod_algo (n m:nat) {struct m} : nat := match n with | 0 => 0 | S n' => match m with | 0 => 0 | S m' => let tmp:=S (Ndiv_mod_algo n m') in match Nat.eqb n tmp with | true => 0 | false => tmp end end end.
imports: Coq(Arith Euclid Compare Lia)