fact: Definition telescopicOp {R : ConstructiveReals} (X : Set) (fn : nat -> PartialFunction X) (op : CRcarrier R -> CRcarrier R) (opEq : forall x y : CRcarrier R, x == y -> op x == op y) := fun n:nat => match n with | O => Xop X (fn O) op opEq | S p => Xminus (Xop X (Xsum fn n) op opEq) (Xop X (Xsum fn p) op opEq) end.
imports: QArith ConstructiveReals ConstructiveAbs ConstructiveMinMax ConstructiveSum ConstructiveLimits ConstructivePartialFunctions CMTbase