proposition: Lemma divmod_lt_9 : forall m, snd (NPeano.divmod m 9 0 8) <= 9.
proof: Proof. intros; pose proof (NPeano.divmod_spec m 9 0 8 (Le.le_n_Sn _)). destruct (NPeano.divmod m 9 0 8); intuition. 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