diff options
Diffstat (limited to 'theories/Program/Tactics.v')
-rw-r--r-- | theories/Program/Tactics.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v index 6f7645841..d187941d2 100644 --- a/theories/Program/Tactics.v +++ b/theories/Program/Tactics.v @@ -304,8 +304,10 @@ Ltac refine_hyp c := possibly using [program_simplify] to use standard goal-cleaning tactics. *) Ltac program_simplify := - simpl in |- *; intros ; destruct_all_rec_calls ; repeat (destruct_conjs; simpl proj1_sig in *); - subst*; autoinjections ; try discriminates ; +(* 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 ;*) try (solve [ red ; intros ; destruct_conjs ; autoinjections ; discriminates ]). Ltac program_solve_wf := |