From a499845f0ad3cdc9f795ae0c66ed0f5e74fe7b89 Mon Sep 17 00:00:00 2001 From: msozeau Date: Fri, 13 Jun 2008 14:23:47 +0000 Subject: Temporary fix for bug #1876, printing fails because of unresolved globals. Change program_simpl to use [auto] and not [auto with *]. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11124 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Program/Tactics.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'theories/Program') diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index 946fdf6185..5182123f4e 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -221,14 +221,14 @@ Ltac refine_hyp c := | ?H _ _ _ _ _ _ _ _ => tac H end. -(** The default simplification tactic used by Program is defined by [program_simpl], sometimes [auto with *] - is overkill and slows things down, better rebind using [Obligations Tactic := tac] in this case, +(** The default simplification tactic used by Program is defined by [program_simpl], sometimes [auto] + is not enough, better rebind using [Obligations Tactic := tac] in this case, possibly using [program_simplify] to use standard goal-cleaning tactics. *) Ltac program_simplify := simpl ; intros ; destruct_conjs ; simpl proj1_sig in * ; subst* ; autoinjections ; try discriminates ; try (solve [ red ; intros ; destruct_conjs ; autoinjections ; discriminates ]). -Ltac program_simpl := program_simplify ; auto with *. +Ltac program_simpl := program_simplify ; auto. Ltac obligations_tactic := program_simpl. -- cgit v1.2.3