diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-12 13:20:01 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-12 13:20:01 +0000 |
commit | 8bc231b13803a3d9d5e1f90a7f8d768b202a66b3 (patch) | |
tree | b9fa3486aabc87b1e3801a3f7f85176b3d23e266 /lib | |
parent | 644bd3cfc92fa0ddded80566b25b8a11957f6edf (diff) | |
download | compcert-kvx-8bc231b13803a3d9d5e1f90a7f8d768b202a66b3.tar.gz compcert-kvx-8bc231b13803a3d9d5e1f90a7f8d768b202a66b3.zip |
Bind some local defs with Let, makes extracted code cleanerv1.13
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2148 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Maps.v | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1337,9 +1337,9 @@ Hypothesis H_rec: forall m a k v, T.get k m = None -> T.get k m_final = Some v -> P m a -> P (T.set k v m) (f a k v). -Definition f' (a: A) (p : T.elt * V) := f a (fst p) (snd p). +Let f' (a: A) (p : T.elt * V) := f a (fst p) (snd p). -Definition P' (l: list (T.elt * V)) (a: A) : Prop := +Let P' (l: list (T.elt * V)) (a: A) : Prop := forall m, list_equiv l (T.elements m) -> P m a. Remark H_base': |