proposition: Lemma crem_pr a b: natp a -> natp b -> b <> \0c -> (a %%c b) <c b.
proof: Proof. by move => aN bN bnz; move: (cdivision aN bN bnz) =>[_ _ [_]]. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(binomial div)