From 9ff883b56b53944e28a495fe17dfa467382b645c Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 8 Jun 2010 01:04:50 +0000
Subject: Fix unfolding tactic for well-founded Programs.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13088 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Program/Wf.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/theories/Program/Wf.v b/theories/Program/Wf.v
index 70a6fe97a4..7179135726 100644
--- a/theories/Program/Wf.v
+++ b/theories/Program/Wf.v
@@ -213,7 +213,7 @@ Ltac fold_sub f :=
   match goal with
     | [ |- ?T ] =>
       match T with
-        appcontext C [ @Fix_sub _ _ _ _ ?arg ] =>
+        appcontext C [ @Fix_sub _ _ _ _ _ ?arg ] =>
         let app := context C [ f arg ] in
           change app
       end
@@ -250,6 +250,6 @@ Module WfExtensionality.
 
   Ltac unfold_sub f fargs :=
     set (call:=fargs) ; unfold f in call ; unfold call ; clear call ;
-      rewrite fix_sub_eq_ext ; repeat fold_sub fargs ; simpl proj1_sig.
+      rewrite fix_sub_eq_ext ; repeat fold_sub f ; simpl proj1_sig.
 
 End WfExtensionality.
-- 
cgit v1.2.3