diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-14 09:58:40 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-14 09:58:40 +0000 |
| commit | 5955f24c579250be7701a8f351be4b627d670b81 (patch) | |
| tree | 64279e0c703253d32e65bd7e95c3527fad54d342 /backend/Coloringproof.v | |
| parent | 0180f46a9f47f9611974d77844fd860ffa49d679 (diff) | |
| download | compcert-5955f24c579250be7701a8f351be4b627d670b81.tar.gz compcert-5955f24c579250be7701a8f351be4b627d670b81.zip | |
Add preference for annot_val builtin
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1674 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Coloringproof.v')
| -rw-r--r-- | backend/Coloringproof.v | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/backend/Coloringproof.v b/backend/Coloringproof.v index ca0637a7..8ebc87e7 100644 --- a/backend/Coloringproof.v +++ b/backend/Coloringproof.v @@ -263,7 +263,6 @@ Proof. apply add_interfs_indirect_call_correct. auto. Qed. - Lemma add_prefs_call_incl: forall args locs g, graph_incl g (add_prefs_call args locs g). @@ -276,6 +275,16 @@ Proof. auto. Qed. +Lemma add_prefs_builtin_incl: + forall ef args res g, + graph_incl g (add_prefs_builtin ef args res g). +Proof. + intros. unfold add_prefs_builtin. + destruct ef; try apply graph_incl_refl. + destruct args; try apply graph_incl_refl. + apply add_pref_incl. +Qed. + Lemma add_interf_entry_incl: forall params live g, graph_incl g (add_interf_entry params live g). @@ -384,7 +393,7 @@ Proof. apply add_interf_destroyed_incl. eapply graph_incl_trans; [idtac|apply add_prefs_call_incl]. apply add_interfs_call_incl. - apply add_interf_op_incl. + eapply graph_incl_trans. apply add_interf_op_incl. apply add_prefs_builtin_incl. destruct o. apply add_pref_mreg_incl. apply graph_incl_refl. @@ -508,7 +517,8 @@ Proof. apply add_interfs_call_correct. auto. (* Ibuiltin *) - intros. apply add_interf_op_correct; auto. + intros. eapply interfere_incl. apply add_prefs_builtin_incl. + apply add_interf_op_correct; auto. Qed. Lemma add_edges_instrs_correct: |