From 30d3733a13f7c51ebe80548a9eb09aa9bf089e61 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Nov 2006 13:53:32 +0000
Subject: Correction d'un bug refine

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

(limited to 'test-suite')

diff --git a/test-suite/success/refine.v b/test-suite/success/refine.v
index 4346ce9ab4..793cddb826 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.
-- 
cgit v1.2.3