fact: Definition isnattruncauto ( upper : nat ) ( i : nat -> nat ) := ( forall x : nat, natleh x upper -> ∑ (y : nat), natleh y upper × ( i y = x × forall z : nat, natleh z upper -> i z = x -> y = z ) ) × forall x : nat, natleh x upper -> natleh ( i x ) upper.
imports: UniMath.PAdics.lemmas UniMath.Algebra.RigsAndRings UniMath.NumberSystems.Integers