fact: Fixpoint FindPointInSubdivision (Pn : nat -> nat) (n : nat) : (forall k, Pn k < Pn (S k))%nat -> (Pn O = O) -> { p : nat | (Pn p <= n < Pn (S p))%nat }.
imports: QArith PeanoNat ArithRing ConstructiveReals ConstructiveAbs ConstructiveSum ConstructivePower ConstructiveLimits