From 7698300cfe2d3f944ce2e1d4a60a263620487718 Mon Sep 17 00:00:00 2001 From: xleroy Date: Fri, 20 Dec 2013 13:05:53 +0000 Subject: Merge of branch value-analysis. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2381 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/Linearizeproof.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'backend/Linearizeproof.v') diff --git a/backend/Linearizeproof.v b/backend/Linearizeproof.v index 93d38dd..3b22fc6 100644 --- a/backend/Linearizeproof.v +++ b/backend/Linearizeproof.v @@ -108,7 +108,7 @@ Proof. caseEq (reachable_aux f). unfold reachable_aux; intros reach A. assert (LBoolean.ge reach!!(f.(fn_entrypoint)) true). - eapply DS.fixpoint_entry. eexact A. auto with coqlib. + eapply DS.fixpoint_entry. eexact A. auto. unfold LBoolean.ge in H. tauto. intros. apply PMap.gi. Qed. @@ -126,7 +126,7 @@ Proof. unfold reachable_aux. intro reach; intros. assert (LBoolean.ge reach!!pc' reach!!pc). change (reach!!pc) with ((fun pc r => r) pc (reach!!pc)). - eapply DS.fixpoint_solution; eauto. + eapply DS.fixpoint_solution; eauto. intros; apply DS.L.eq_refl. elim H3; intro. congruence. auto. intros. apply PMap.gi. Qed. -- cgit v1.2.3