proposition: Lemma linear_Integral : forall alpha beta (H : Continuous_I Hab (alpha{**}F{+}beta{**}G)), Integral H [=] alpha[*]Integral contF[+]beta[*]Integral contG.
proof: Proof. intros; unfold Integral in |- *. cut (forall x y z r s t : IR, x[*] (y[-]z) [+]r[*] (s[-]t) [=] x[*]y[+]r[*]s[-] (x[*]z[+]r[*]t)). 2: intros; rational. intro; eapply eq_transitive_unfolded. 2: apply eq_symmetric_unfolded; apply H0. clear H0. apply cg_minus_wd; apply linear_integral. Qed.
imports: CoRN.ftc.Integral CoRN.ftc.MoreFunctions