aboutsummaryrefslogtreecommitdiffhomepage
path: root/theories/Program
diff options
context:
space:
mode:
authorGravatar aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7>2010-05-28 12:27:28 +0000
committerGravatar aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7>2010-05-28 12:27:28 +0000
commit7862ba932d53b1b0874564ef40e6f2d37ec690a1 (patch)
treea355c0f601d9b694afb0de888267d9a4d5defad8 /theories/Program
parent9a890c748ed55e9b1ccff37b41ddcbfd371cf727 (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')
-rw-r--r--theories/Program/Tactics.v6
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 :=