fact: Definition StartZero (un : nat -> nat) (n : nat) := match n with | O => O | S p => match un O with | O => un (S p) | S _ => un p end end.
imports: Logic.ConstructiveEpsilon QArith ConstructiveReals ConstructiveAbs ConstructiveMinMax ConstructiveSum ConstructivePower ConstructiveLimits ConstructiveDiagonal ConstructivePartialFunctions CMTbase CMTIntegrableFunctions CMTFullSets CMTPositivity