fact: Definition weaveSequences (X : Type) (fn gn : nat -> X) : nat -> X := fun n => if Nat.even n then fn (n / 2)%nat else gn (n / 2)%nat.
imports: QArith ConstructiveReals ConstructiveAbs ConstructiveMinMax ConstructiveSum ConstructiveLimits ConstructivePartialFunctions CMTbase