proposition: Lemma divmod_lt_self : forall m, fst (NPeano.divmod m 9 0 8) <= m.
proof: Proof. intros; pose proof (NPeano.divmod_spec m 9 0 8 (Le.le_n_Sn _)). destruct (NPeano.divmod m 9 0 8); intuition. simpl in *. destruct n; eauto; omega. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Numbers.Natural.Peano.NPeano Coq.Strings.String Coq.Arith.Lt Coq.Arith.Compare_dec Coq.Lists.List Coq.ZArith.ZArith