proposition: Lemma Fprim_strext : forall x y Hx Hy, Integral (prim_lemma x Hx) [#] Integral (prim_lemma y Hy) -> x [#] y.
proof: Proof. intros x y Hx Hy H. elim (Integral_strext' _ _ _ _ _ _ _ _ _ H). intro; exfalso. generalize a0; apply ap_irreflexive_unfolded. auto. Qed.
imports: CoRN.ftc.MoreIntegrals CoRN.ftc.CalculusTheorems