proposition: Lemma Xproj1Restriction : forall { I J : IntegrationSpace } (f g : @PartialFunction (RealT (ElemFunc I)) (prod (X (ElemFunc I)) (X (ElemFunc J)))) (x : X (ElemFunc I)), PartialRestriction f g -> PartialRestriction (Xproj1 f x) (Xproj1 g x).
proof: Proof. split. - intros y H. destruct X. exact (d (x,y) H). - intros. apply X. Qed.
imports: QArith_base List ConstructiveReals ConstructiveRealsMorphisms ConstructiveAbs ConstructiveSum ConstructiveMinMax ConstructiveLimits ConstructivePartialFunctions CMTbase CMTIntegrableFunctions CMTIntegrableSets CMTFullSets CMTcast CMTprofile