From 9a9aada110be18fc88a7559b9dce05d66edf156a Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 26 Jan 2010 16:42:56 +0000
Subject: Add [Next Obligation with tactic] support (wish #1953).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12691 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Program/Tactics.v | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'theories/Program')

diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v
index b3b08e067b..75aa5eb7cf 100644
--- a/theories/Program/Tactics.v
+++ b/theories/Program/Tactics.v
@@ -308,6 +308,11 @@ Ltac program_simplify :=
   subst*; autoinjections ; try discriminates ;
     try (solve [ red ; intros ; destruct_conjs ; autoinjections ; discriminates ]).
 
-Ltac program_simpl := program_simplify ; auto.
+Ltac program_solve_wf :=
+  match goal with
+    |- well_founded _ => auto with *
+  end.
+
+Ltac program_simpl := program_simplify ; auto; try program_solve_wf.
 
 Obligation Tactic := program_simpl.
-- 
cgit v1.2.3