fact: Fixpoint SubsetIntersectFactor {I J : IntegrationSpace} (hn : list (@ProdIntegrable I J)) (subsetf subsetg : list bool) {struct subsetf} : CRcarrier (RealT (ElemFunc I)) := match subsetf, subsetg, hn with | sf::tf, sg::tg, h::t => SubsetIntersectFactor t tf tg + (if andb sf sg then prodint_factor h else 0) | _, _, _ => 0 end.
imports: QArith_base List ConstructiveReals ConstructiveRealsMorphisms ConstructiveAbs ConstructiveSum ConstructiveMinMax ConstructiveLimits ConstructivePartialFunctions CMTbase CMTIntegrableFunctions CMTIntegrableSets CMTFullSets CMTcast CMTprofile