fact: Definition BZquo_int a b := let q:= BZ_of_nat ((BZ_val a) %/c (BZ_val b)) in Yo (b = \0z) \0z (Yo (int_pp a) (Yo (int_pp b) q (BZopp q)) (Yo ((BZ_val a %%c BZ_val b) = \0c) (Yo (int_pp b) (BZopp q) q) (Yo (int_pp b) (BZopp (BZsucc q)) (BZsucc q)))).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)