diff options
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: |