2 files changed, 1 insertions, 30 deletions
diff --git a/test-suite/ideal-features/Case3.v b/test-suite/ideal-features/Case3.v
deleted file mode 100644
index de7784aec..000000000
--- a/test-suite/ideal-features/Case3.v
+++ /dev/null
@@ -1,29 +0,0 @@
-Inductive Le : nat -> nat -> Set :=
-  | LeO : forall n : nat, Le 0 n
-  | LeS : forall n m : nat, Le n m -> Le (S n) (S m).
-
-Parameter discr_l : forall n : nat, S n <> 0.
-
-Type
-  (fun n : nat =>
-   match n return (n = 0 \/ n <> 0) with
-   | O => or_introl (0 <> 0) (refl_equal 0)
-   | S O => or_intror (1 = 0) (discr_l 0)
-   | S (S x) => or_intror (S (S x) = 0) (discr_l (S x))
-   end).
-
-Parameter iguales : forall (n m : nat) (h : Le n m), Prop.
-
-Type
-  match LeO 0 as h in (Le n m) return Prop with
-  | LeO O => True
-  | LeS (S x) (S y) H => iguales (S x) (S y) H
-  | _ => False
-  end.
-
-Type
-  match LeO 0 as h in (Le n m) return Prop with
-  | LeO O => True
-  | LeS (S x) O H => iguales (S x) 0 H
-  | _ => False
-  end.
diff --git a/test-suite/ideal-features/eapply_evar.v b/test-suite/ideal-features/eapply_evar.v
index 8c9a448e7..547860bf1 100644
--- a/test-suite/ideal-features/eapply_evar.v
+++ b/test-suite/ideal-features/eapply_evar.v
@@ -1,7 +1,7 @@
 (* Test propagation of evars from subgoal to brother subgoals *)
 
 (* This does not work (oct 2008) because "match goal" sees "?evar = O"
-   and not "O = O"
+   and not "O = O" *)
 
 Lemma eapply_evar : O=O -> 0=O.
 intro H; eapply trans_equal;