proposition: Lemma integral_minus : forall H, Integral (F{-}G) H [=] Integral F contF[-]Integral G contG.
proof: Proof. intro. assert (H0 : Continuous_I Hab ([1]{**}F{+}[--][1]{**}G)). Contin. apply eq_transitive_unfolded with (Integral _ H0). apply integral_wd; FEQ. eapply eq_transitive_unfolded. apply linear_integral with (contF := contF) (contG := contG). rational. Qed.
imports: CoRN.ftc.RefLemma Coq(Lia)