diff options
author | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-05 16:50:26 +0000 |
---|---|---|
committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-05 16:50:26 +0000 |
commit | ce55be332b18c301a0ecf4fc4ee8716de31227fc (patch) | |
tree | 8a819640e54406361a0f16b94ea1369f97a17183 /test-suite/success/Typeclasses.v | |
parent | 0c3ffbbacec5e61d0d7bbeb8c25ec33ce429f40d (diff) |
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
Diffstat (limited to 'test-suite/success/Typeclasses.v')
-rw-r--r-- | test-suite/success/Typeclasses.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/success/Typeclasses.v b/test-suite/success/Typeclasses.v index 55351a472..30a2a7429 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. |