diff options
| -rw-r--r-- | theories/Lists/SetoidList.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Lists/SetoidList.v b/theories/Lists/SetoidList.v index f43aeeddda..c65ea35629 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. |