From 146bf43966f0d0c7a1587fc4d8dab58958d621fa Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Sat, 27 Apr 2019 19:23:04 +0200 Subject: factor expressions into single file --- mppa_k1c/SelectOpproof.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mppa_k1c/SelectOpproof.v') diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index b23e2aa8..cc362eb7 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -311,7 +311,7 @@ Proof. - subst x. simpl negb. cbn iota. - destruct (_ && _ && _) eqn:BOUNDS. + destruct (is_bitfield _ _) eqn:BOUNDS. + exists (extfz (Z.sub Int.zwordsize (Z.add (Int.unsigned n1) Z.one)) (Z.sub (Z.add @@ -368,7 +368,7 @@ Proof. - subst x. simpl negb. cbn iota. - destruct (_ && _ && _) eqn:BOUNDS. + destruct (is_bitfield _ _) eqn:BOUNDS. + exists (extfs (Z.sub Int.zwordsize (Z.add (Int.unsigned n1) Z.one)) (Z.sub (Z.add -- cgit