From 1c5c0f61563d7edcf4913f80a821eb9f6bf7be45 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 17 Apr 2003 16:34:52 +0000 Subject: Divers git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3943 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/correctness/Sorted.v | 1 + theories/Reals/Exp_prop.v | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/contrib/correctness/Sorted.v b/contrib/correctness/Sorted.v index 8c3743a1e..7e656ae1b 100644 --- a/contrib/correctness/Sorted.v +++ b/contrib/correctness/Sorted.v @@ -16,6 +16,7 @@ Require ArrayPermut. Require ZArithRing. Require Omega. V7only [Import Z_scope.]. +Open Local Scope Z_scope. Set Implicit Arguments. diff --git a/theories/Reals/Exp_prop.v b/theories/Reals/Exp_prop.v index 175883ba8..a180c4a5b 100644 --- a/theories/Reals/Exp_prop.v +++ b/theories/Reals/Exp_prop.v @@ -17,7 +17,10 @@ Require PSeries_reg. Require Div2. Require Even. Require Max. -V7only [Import R_scope.]. Open Local Scope R_scope. +V7only [Import R_scope.]. +Open Local Scope nat_scope. +V7only [Import nat_scope.]. +Open Local Scope R_scope. Definition E1 [x:R] : nat->R := [N:nat](sum_f_R0 [k:nat]``/(INR (fact k))*(pow x k)`` N). -- cgit v1.2.3