diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-11-10 13:53:32 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-11-10 13:53:32 +0000 |
| commit | 30d3733a13f7c51ebe80548a9eb09aa9bf089e61 (patch) | |
| tree | bb890fd92153e11c2b74ddb46b1c2ea7f10211f1 /test-suite | |
| parent | 6c77a71da9bfb3cf766c714a5650d699d1454f6b (diff) | |
Correction d'un bug refine
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9359 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/refine.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/refine.v b/test-suite/success/refine.v index 4346ce9ab..793cddb82 100644 --- a/test-suite/success/refine.v +++ b/test-suite/success/refine.v @@ -87,3 +87,15 @@ refine | exist _ _ => _ end). Abort. + + +(* Use to fail because sigma was not propagated to get_type_of *) +(* Revealed by r9310, fixed in r9359 *) + +Goal + forall f : forall a (H:a=a), Prop, + (forall a (H:a = a :> nat), f a H -> True /\ True) -> + True. +intros. +refine (@proj1 _ _ (H 0 _ _)). +Abort. |