fact: Definition hzqrtestq ( m : hz ) ( x : hzneq 0 m ) ( a q r : hz ) ( d : a = ( m * q ) + r × ( hzleh 0 r × hzlth r ( nattohz ( hzabsval m ) ) ) ) := pr1 ( hzqrtest m x a q r d ).
imports: UniMath.PAdics.lemmas UniMath.NumberSystems.Integers UniMath.Foundations.Preamble