Wish #1582 (3eme)

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

1 files changed, 18 insertions, 0 deletions

diff --git a/test-suite/success/refine.v b/test-suite/success/refine.v
index 793cddb82..4b636618a 100644
--- a/test-suite/success/refine.v
+++ b/test-suite/success/refine.v
@@ -99,3 +99,21 @@ Goal
 intros.
 refine (@proj1 _ _ (H 0 _ _)).
 Abort.
+
+(* Use to fail because let-in with metas in the body where rejected
+   because a priori considered as dependent *)
+
+Require Import Peano_dec.
+
+Definition fact_F : 
+  forall (n:nat),
+  (forall m, m<n -> nat) ->
+  nat.
+refine 
+  (fun n fact_rec =>
+     if eq_nat_dec n 0 then 
+        1
+     else
+	let fn := fact_rec (n-1) _ in
+        n * fn).
+Abort.