From cbb46eafff8a1225ebef2f790b8854516f310d09 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 12 Jan 2010 11:04:23 +0000
Subject: Temporary fix to compensate the loss of descent on dependent
 conjunctions (defined records now supported again but not unregistered ones).

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

(limited to 'test-suite')

diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v
index 3fc8a97922..cb55432fb7 100644
--- a/test-suite/success/apply.v
+++ b/test-suite/success/apply.v
@@ -348,3 +348,20 @@ Goal True.
 eapply (fun (A:Prop) (x:A) => conj I x).
 exact I.
 Qed.
+
+(* The following was not accepted from r12612 to r12649 *)
+
+Record sig0 := { p1 : nat; p2 : p1 = 0 }.
+
+Goal forall x : sig0, p1 x = 0.
+intro x;
+apply x.
+Qed.
+
+(* The following was accepted before r12612 but is still not accepted in r12650
+
+Goal forall x : { x:nat | x = 0}, proj1_sig x = 0.
+intro x;
+apply x.
+
+*)
-- 
cgit v1.2.3