diff options
| author | Vincent Laporte <vbgl@users.noreply.github.com> | 2019-03-25 10:45:46 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2019-03-25 10:45:45 +0100 |
| commit | 624553ae0b0be62a16ff4bcc9df358f71b759815 (patch) | |
| tree | 34803b6e1070e3909ff3f17001a042d9515c4738 | |
| parent | c85e957812d4581f17a534f3754c555a6a2a2243 (diff) | |
| download | compcert-624553ae0b0be62a16ff4bcc9df358f71b759815.tar.gz compcert-624553ae0b0be62a16ff4bcc9df358f71b759815.zip | |
Minor simplifications in two proofs. (#280)
Preparation for Coq PR 9725 that may make `eauto` stronger.
| -rw-r--r-- | backend/Unusedglobproof.v | 4 | ||||
| -rw-r--r-- | lib/Heaps.v | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/backend/Unusedglobproof.v b/backend/Unusedglobproof.v index 7899a04c..d5f871a0 100644 --- a/backend/Unusedglobproof.v +++ b/backend/Unusedglobproof.v @@ -1373,9 +1373,9 @@ Proof. * apply Y with id; auto. * exists gd1; auto. * exists gd2; auto. - * eapply used_not_defined_2 in GD1; eauto. eapply used_not_defined_2 in GD2; eauto. + * eapply used_not_defined_2 in GD1; [ | eauto | congruence ]. + eapply used_not_defined_2 in GD2; [ | eauto | congruence ]. tauto. - congruence. } destruct E as [g LD]. left. unfold prog_defs_names; simpl. diff --git a/lib/Heaps.v b/lib/Heaps.v index 2a21f88c..9fa07a1d 100644 --- a/lib/Heaps.v +++ b/lib/Heaps.v @@ -432,7 +432,7 @@ Lemma lt_heap_In: Proof. induction h; simpl; intros. contradiction. - intuition. apply le_lt_trans with x0; auto. red. left. apply E.eq_sym; auto. + intuition. apply le_lt_trans with x0; auto. red. left. assumption. Qed. Lemma findMax_max: |