From 34570d23cf6ae7f6246b38e5094454b0eeea3e75 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 26 Jun 2014 12:34:03 +0200
Subject: Fix test-suite file, adding the proper Fail.

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

diff --git a/test-suite/bugs/opened/HoTT_coq_078.v b/test-suite/bugs/opened/HoTT_coq_078.v
index 6c02cad567..a2c97d0675 100644
--- a/test-suite/bugs/opened/HoTT_coq_078.v
+++ b/test-suite/bugs/opened/HoTT_coq_078.v
@@ -35,7 +35,7 @@ Definition transport_prod' {A : Type} {P Q : A -> Type} {a a' : A} (p : a = a')
        | idpath => idpath
      end. (* success *)
 
-Definition transport_prod {A : Type} {P Q : A -> Type} {a a' : A} (p : a = a')
+Fail Definition transport_prod {A : Type} {P Q : A -> Type} {a a' : A} (p : a = a')
   (z : P a * Q a)
   : transport (fun a => P a * Q a) p z  =  (transport _ p (fst z), transport _ p (snd z))
   := match p with
-- 
cgit v1.2.3