Fix test-suite files

3566 gave a legitimate error, keyedrewrite was not setting keyed
unification on.

2 files changed, 3 insertions, 1 deletions

diff --git a/test-suite/bugs/closed/3566.v b/test-suite/bugs/closed/3566.v
index d71727be57..b2aa8c3cd6 100644
--- a/test-suite/bugs/closed/3566.v
+++ b/test-suite/bugs/closed/3566.v
@@ -19,4 +19,4 @@ Definition lift {T} : T -> Lift T := fun x => x.
 Goal forall x y : Type, x = y.
   intros.
   pose proof ((fun H0 : idmap _ => (@path_universe _ _ (@lift x) (H0 x) @ 
-                                                   (@path_universe _ _ (@lift y) (H0 y))^)))%path as H''.
+                                                   (@path_universe _ _ (@lift x) (H0 x))^)))%path as H''.
diff --git a/test-suite/success/keyedrewrite.v b/test-suite/success/keyedrewrite.v
index c99b16e2bc..bbe9d4bfff 100644
--- a/test-suite/success/keyedrewrite.v
+++ b/test-suite/success/keyedrewrite.v
@@ -1,3 +1,5 @@
+Set Keyed Unification.
+
 Section foo.
 Variable f : nat -> nat.