From ce55be332b18c301a0ecf4fc4ee8716de31227fc Mon Sep 17 00:00:00 2001
From: glondu
Date: Tue, 5 Oct 2010 16:50:26 +0000
Subject: test-suite: fix success/Typeclasses.v

Obviously broken since r13359 (remove native Π)...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13502 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/Typeclasses.v | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test-suite/success/Typeclasses.v b/test-suite/success/Typeclasses.v
index 55351a472c..30a2a7429c 100644
--- a/test-suite/success/Typeclasses.v
+++ b/test-suite/success/Typeclasses.v
@@ -8,9 +8,9 @@ Reserved Notation "x >>= y" (at level 65, left associativity).
 
 
 Record Monad {m : Type -> Type} := {
-  unit : Π {α}, α -> m α where "'return' t" := (unit t) ;
-  bind : Π {α β}, m α -> (α -> m β) -> m β where "x >>= y" := (bind x y) ;
-  bind_unit_left : Π {α β} (a : α) (f : α -> m β), return a >>= f = f a }.
+  unit : forall {α}, α -> m α where "'return' t" := (unit t) ;
+  bind : forall {α β}, m α -> (α -> m β) -> m β where "x >>= y" := (bind x y) ;
+  bind_unit_left : forall {α β} (a : α) (f : α -> m β), return a >>= f = f a }.
 
 Print Visibility.
 Print unit.
-- 
cgit v1.2.3