2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Bool/DecBool.v b/theories/Bool/DecBool.v
index 8a15e7624f..2a0b2063d2 100755
--- a/theories/Bool/DecBool.v
+++ b/theories/Bool/DecBool.v
@@ -11,7 +11,7 @@
 Set Implicit Arguments.
 
 Definition ifdec (A B:Prop) (C:Set) (H:{A} + {B}) (x y:C) : C :=
-  if H then fun _ => x else fun _ => y.
+  if H then x else y.
 
 
 Theorem ifdec_left :
diff --git a/theories/Lists/TheoryList.v b/theories/Lists/TheoryList.v
index 20f39e0efa..7671b25ff7 100755
--- a/theories/Lists/TheoryList.v
+++ b/theories/Lists/TheoryList.v
@@ -149,7 +149,7 @@ Hypothesis eqA_dec : forall a b:A, {a = b} + {a <> b}.
 Fixpoint mem (a:A) (l:list A) {struct l} : bool :=
   match l with
   | nil => false
-  | b :: m => if eqA_dec a b then fun H => true else fun H => mem a m
+  | b :: m => if eqA_dec a b then true else mem a m
   end.
 
 Hint Unfold In.