From 9f95f9d59057ac914efe982aa501c6deeb241988 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sun, 28 Mar 2010 11:13:49 +0000 Subject: More resistant proof git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1296 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/Machabstr2concr.v | 1 - 1 file changed, 1 deletion(-) diff --git a/backend/Machabstr2concr.v b/backend/Machabstr2concr.v index 7714f3d5..b766ed0d 100644 --- a/backend/Machabstr2concr.v +++ b/backend/Machabstr2concr.v @@ -231,7 +231,6 @@ Proof. inv H4. assert (Some v1 = Some (Val.load_result (chunk_of_type ty) v')). rewrite <- LOAD1. eapply Mem.load_store_same; eauto. - replace (type_of_chunk (chunk_of_type ty)) with ty. auto. destruct ty; auto. inv H4. rewrite load_result_ty; auto. auto. -- cgit