diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-28 22:16:14 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-28 22:16:14 +0000 |
commit | b730066fb4dfdeccd7b17538eda845d0048c68ca (patch) | |
tree | 25e10bc3b9780ded7cbc6e7c27dc0c0993f966f0 /theories/Reals/NewtonInt.v | |
parent | 98af1982684a02f9521d28594e0fa01ac3275083 (diff) |
Nommage explicite de certains "intro" pour préserver la compatibilité
en préparation du passage à des inductifs à polymorphisme de sorte
("sigT R" va devenir de type le type de R, càd Set)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8670 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/NewtonInt.v')
-rw-r--r-- | theories/Reals/NewtonInt.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/theories/Reals/NewtonInt.v b/theories/Reals/NewtonInt.v index 3fa2aece3..cd2dbc193 100644 --- a/theories/Reals/NewtonInt.v +++ b/theories/Reals/NewtonInt.v @@ -128,7 +128,8 @@ Lemma NewtonInt_P5 : Newton_integrable f a b -> Newton_integrable g a b -> Newton_integrable (fun x:R => l * f x + g x) a b. -unfold Newton_integrable in |- *; intros; elim X; intros; elim X0; intros; +unfold Newton_integrable in |- *; intros f g l a b X X0; + elim X; intros; elim X0; intros; exists (fun y:R => l * x y + x0 y). elim p; intro. elim p0; intro. |