From ef82712e5b4b55e5da12cb369ccb980d0fd41db2 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 12 Apr 2003 19:58:27 +0000 Subject: Open Scope en Local git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3917 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Reals/Ranalysis2.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'theories/Reals/Ranalysis2.v') diff --git a/theories/Reals/Ranalysis2.v b/theories/Reals/Ranalysis2.v index d13e96668..70f7adb1f 100644 --- a/theories/Reals/Ranalysis2.v +++ b/theories/Reals/Ranalysis2.v @@ -11,7 +11,7 @@ Require Rbase. Require Rfunctions. Require Ranalysis1. -V7only [Import R_scope.]. Open Scope R_scope. +V7only [Import R_scope.]. Open Local Scope R_scope. (**********) Lemma formule : (x,h,l1,l2:R;f1,f2:R->R) ``h<>0`` -> ``(f2 x)<>0`` -> ``(f2 (x+h))<>0`` -> ``((f1 (x+h))/(f2 (x+h))-(f1 x)/(f2 x))/h-(l1*(f2 x)-l2*(f1 x))/(Rsqr (f2 x))`` == ``/(f2 (x+h))*(((f1 (x+h))-(f1 x))/h-l1) + l1/((f2 x)*(f2 (x+h)))*((f2 x)-(f2 (x+h))) - (f1 x)/((f2 x)*(f2 (x+h)))*(((f2 (x+h))-(f2 x))/h-l2) + (l2*(f1 x))/((Rsqr (f2 x))*(f2 (x+h)))*((f2 (x+h))-(f2 x))``. -- cgit v1.2.3