Typo

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8634 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/theories/Lists/SetoidList.v b/theories/Lists/SetoidList.v
index f43aeeddd..c65ea3562 100644
--- a/theories/Lists/SetoidList.v
+++ b/theories/Lists/SetoidList.v
@@ -233,10 +233,10 @@ Section Remove.
 
 Hypothesis eqA_dec : forall x y : A, {eqA x y}+{~(eqA x y)}.
 
-Fixpoint removeA : (x : A) (l : list A){struct l} : list A :=
+Fixpoint removeA (x : A) (l : list A){struct l} : list A :=
   match l with
     | nil => nil
-    | y::tl => if (eqA_dec x y) then removeA tl else y::(removeA tl)
+    | y::tl => if (eqA_dec x y) then removeA x tl else y::(removeA x tl)
   end.
 
 End Remove.