fact: Fixpoint IntersectIterate {X : Set} (An : nat -> X -> Prop) (n : nat) : X -> Prop := match n with | O => An O | S p => fun x => IntersectIterate An p x /\ An n x end.
imports: Logic.ConstructiveEpsilon QArith ConstructiveReals ConstructiveAbs ConstructiveMinMax ConstructiveSum ConstructivePower ConstructiveLimits ConstructiveDiagonal ConstructivePartialFunctions CMTbase CMTIntegrableFunctions CMTFullSets CMTPositivity