From 54a67aeb7955687ad67c958a5d4de9e21164e8db Mon Sep 17 00:00:00 2001
From: Xavier Clerc
Date: Fri, 14 Nov 2014 16:32:07 +0100
Subject: Add missing "Fail" to test case for bug #2814.

---
 test-suite/bugs/opened/2814.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-suite/bugs/opened/2814.v b/test-suite/bugs/opened/2814.v
index d8f6b906a1..a740b4384d 100644
--- a/test-suite/bugs/opened/2814.v
+++ b/test-suite/bugs/opened/2814.v
@@ -2,4 +2,4 @@ Require Import Program.
 
 Goal forall (x : Type) (f g : Type -> Type) (H : f x ~= g x), False.
   intros.
-  induction H.
+  Fail induction H.
-- 
cgit v1.2.3