From 07afe4dec5b099f3277c6818e464885f7211db06 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 15 Mar 2006 22:23:31 +0000
Subject: Typo

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8633 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Lists/MoreList.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/theories/Lists/MoreList.v b/theories/Lists/MoreList.v
index 0382d30666..5def8d84a1 100644
--- a/theories/Lists/MoreList.v
+++ b/theories/Lists/MoreList.v
@@ -469,10 +469,10 @@ Section Remove.
 
 Hypothesis eq_dec : forall x y : A, {x = y}+{x <> y}.
 
-Fixpoint remove : (x : A) (l : list A){struct l} : list A :=
+Fixpoint remove (x : A) (l : list A){struct l} : list A :=
   match l with
     | nil => nil
-    | y::tl => if (eq_dec x y) then remove tl else y::(remove tl)
+    | y::tl => if (eq_dec x y) then remove x tl else y::(remove x tl)
   end.
 
 End Remove.
-- 
cgit v1.2.3