From 5312915c1b29929f82e1f8de80609a277584913f Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 28 Jun 2012 07:59:03 +0000 Subject: Use Flocq for floats git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1939 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- common/Memory.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'common') diff --git a/common/Memory.v b/common/Memory.v index 49dcd7b..f9b322e 100644 --- a/common/Memory.v +++ b/common/Memory.v @@ -1970,7 +1970,7 @@ Proof. destruct (zlt ofs0 lo). eapply perm_drop_3; eauto. destruct (zle hi ofs0). eapply perm_drop_3; eauto. apply perm_implies with p. eapply perm_drop_1; eauto. omega. - generalize (size_chunk_pos chunk); intros. intuition. omegaContradiction. omegaContradiction. + generalize (size_chunk_pos chunk); intros. intuition. eapply perm_drop_3; eauto. Qed. -- cgit v1.2.3