fact: Fixpoint SubsetIntersectFilter { A : Set } (hn : list (A -> Prop)) (init : A -> Prop) (filter : list bool) : A -> Prop := match filter with | nil => init | b :: sub => match hn with | nil => init | p :: h => if b then fun x => p x /\ SubsetIntersectFilter h init sub x else fun x => SubsetIntersectFilter h init sub x /\ ~p x end end.
imports: QArith_base List ConstructiveReals ConstructiveRealsMorphisms ConstructiveAbs ConstructiveSum ConstructiveMinMax ConstructiveLimits ConstructivePartialFunctions CMTbase CMTIntegrableFunctions CMTIntegrableSets CMTFullSets CMTcast CMTprofile