New version of 12650 that was broken (supporting again records when

descending dependent conjunctions).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12658 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 17 insertions, 0 deletions

diff --git a/test-suite/success/apply.v b/test-suite/success/apply.v
index 3fc8a97922..10182bdc8c 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 r12657 *)
+
+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 r12658
+
+Goal forall x : { x:nat | x = 0}, proj1_sig x = 0.
+intro x;
+apply x.
+
+*)