diff options
author | 2013-03-25 16:58:46 +0000 | |
---|---|---|
committer | 2013-03-25 16:58:46 +0000 | |
commit | 76f4c117ea054373645f4c4647779749bd537c71 (patch) | |
tree | 82e6aa5b0eeb7d273693a6acb713d8f7f46fa99b | |
parent | 4337b5d98357f0e6ea4509d5ea954a598497a00e (diff) |
Enrich test-suite with a test for #2928
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16367 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/2928.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/2928.v b/test-suite/bugs/closed/shouldsucceed/2928.v new file mode 100644 index 000000000..21e92ae20 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/2928.v @@ -0,0 +1,11 @@ +Class Equiv A := equiv: A -> A -> Prop. +Infix "=" := equiv : type_scope. + +Class Associative {A} f `{Equiv A} := associativity x y z : f x (f y z) = f (f x y) z. + +Class SemiGroup A op `{Equiv A} := { sg_ass :>> Associative op }. + +Class SemiLattice A op `{Equiv A} := + { semilattice_sg :>> SemiGroup A op + ; redundant : Associative op + }. |