diff options
author | James Pollard <james@pollard.dev> | 2020-08-04 16:01:40 +0100 |
---|---|---|
committer | James Pollard <james@pollard.dev> | 2020-08-04 16:01:40 +0100 |
commit | 0192b7df66393bca3f466003112f68e4ae34716a (patch) | |
tree | 5d750d375800a35e963b247f5688dc8f8eb57279 /src | |
parent | 3f922756808ccdf2516f097047d758820cdf5177 (diff) | |
download | vericert-0192b7df66393bca3f466003112f68e4ae34716a.tar.gz vericert-0192b7df66393bca3f466003112f68e4ae34716a.zip |
Fix broken proof.
Diffstat (limited to 'src')
-rw-r--r-- | src/translation/HTLgenproof.v | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/translation/HTLgenproof.v b/src/translation/HTLgenproof.v index ab607ef..e27f629 100644 --- a/src/translation/HTLgenproof.v +++ b/src/translation/HTLgenproof.v @@ -1463,18 +1463,19 @@ Section CORRECTNESS. rewrite Integers.Ptrofs.add_zero_l. rewrite Integers.Ptrofs.unsigned_repr. simpl. + rewrite HeqOFFSET in *. simplify_val. destruct (Z_le_gt_dec (4 * ptr + 4) (Integers.Ptrofs.unsigned OFFSET)); eauto. + rewrite HeqOFFSET in *. simplify_val. + left; auto. + rewrite HeqOFFSET in *. simplify_val. right. apply ZExtra.mod_0_bounds; try lia. apply ZLib.Z_mod_mult'. rewrite Z2Nat.id in H16; try lia. apply Zmult_lt_compat_r with (p := 4) in H16; try lia. rewrite ZLib.div_mul_undo in H16; try lia. - rewrite HeqOFFSET in MOD_PRESERVE. apply MOD_PRESERVE. - rewrite HeqOFFSET in n. apply n. - admit. admit. admit. - (*split; try lia. - apply Z.le_trans with (m := RTL.fn_stacksize f); crush; lia.*) + split; try lia. + apply Z.le_trans with (m := RTL.fn_stacksize f); crush; lia. } rewrite <- EXPR_OK. |