diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-28 12:27:28 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-28 12:27:28 +0000 |
| commit | 7862ba932d53b1b0874564ef40e6f2d37ec690a1 (patch) | |
| tree | a355c0f601d9b694afb0de888267d9a4d5defad8 /theories/Program/Tactics.v | |
| parent | 9a890c748ed55e9b1ccff37b41ddcbfd371cf727 (diff) | |
Correction program_simplify. Devrait corriger certaines contribs.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13031 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Program/Tactics.v')
| -rw-r--r-- | theories/Program/Tactics.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index f4d53c279..a000cdc24 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -302,10 +302,8 @@ Ltac refine_hyp c := possibly using [program_simplify] to use standard goal-cleaning tactics. *) Ltac program_simplify := -(* arnaud: enlever la première ligne en faveur de la suite. *) -simpl ; intros ; destruct_conjs ; simpl proj1_sig in * ; subst* ; autoinjections ; try discriminates ; -(* arnaud: restore: simpl in |- *; intros ; destruct_all_rec_calls ; repeat (destruct_conjs; simpl proj1_sig in * ); - subst*; autoinjections ; try discriminates ;*) +simpl in |- *; intros ; destruct_all_rec_calls ; repeat (destruct_conjs; simpl proj1_sig in * ); + subst*; autoinjections ; try discriminates ; try (solve [ red ; intros ; destruct_conjs ; autoinjections ; discriminates ]). Ltac program_solve_wf := |