diff options
| author | herbelin | 2011-06-18 18:45:18 +0000 |
|---|---|---|
| committer | herbelin | 2011-06-18 18:45:18 +0000 |
| commit | 0537a5f2ae58f8d721040cf9eee165b08ec90f80 (patch) | |
| tree | 5a413e69e7073716c94206f2bbbebbfe04c8b219 /test-suite/bugs/closed/shouldsucceed | |
| parent | da35c182b316db9b3c3a3ca98840d3ecf218cf7f (diff) | |
Partial backtrack on wrong r14204: bug #2490 still open.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14218 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/bugs/closed/shouldsucceed')
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/2490.v | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/2490.v b/test-suite/bugs/closed/shouldsucceed/2490.v deleted file mode 100644 index 3efd742bb0..0000000000 --- a/test-suite/bugs/closed/shouldsucceed/2490.v +++ /dev/null @@ -1,28 +0,0 @@ -Class Rel A := rel : A -> Prop. -Class Rel2 A := rel2 : A -> Prop. -Class Property A (o : A -> Prop) := rel_property : True. - -Class Op A := op : A -> A. -Instance my_op {A} {r : Rel A} {p : Property A r} : Op A := fun x => x. - -Section test. -Context A (r2 : Rel2 A) (p2 : Property A r2). - -(* 8.3 yields an error: "Could not find an instance for "Op A" in environment". - Trunk, on the other hand, uses [r2] as an instance of [Rel] and hence finds -the previously defined instance of [Op]. Trunk's behavior is incorrect. *) -Lemma test (x : A) : op x = op x. -Admitted. - -(* If we don't refer to the canonical name, Coq will actually complain, as it -should. *) -Lemma test (x : A) : my_op x = my_op x. - -End test. - -(* Now we make an instance of [Op] without dependent condition. *) -Instance my_op_nondep {A} {r : Rel A} : Op A := fun x => x. - -Section test2. -Context A (r2 : Rel2 A). - |
