diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 11:44:58 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 11:45:05 +0100 |
commit | 405e822a4e769969ef01a683d486accee0d71da2 (patch) | |
tree | 986d3e660f621e9d17c621e3c5d3924de1c942cb /src/hls/IfConversionproof.v | |
parent | a04e972f3dcc94459399e4d4168b8d26d32e1fae (diff) | |
download | vericert-405e822a4e769969ef01a683d486accee0d71da2.tar.gz vericert-405e822a4e769969ef01a683d486accee0d71da2.zip |
Change nat to positive in Sat proof
Diffstat (limited to 'src/hls/IfConversionproof.v')
-rw-r--r-- | src/hls/IfConversionproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/IfConversionproof.v b/src/hls/IfConversionproof.v index 2d8cfac..f24a4c4 100644 --- a/src/hls/IfConversionproof.v +++ b/src/hls/IfConversionproof.v @@ -697,7 +697,7 @@ Section CORRECTNESS. - destruct_match. inv Heqp1. simplify. unfold not in *. destruct (peq p1 p0); subst; try solve [exfalso; auto]. - unfold eval_predf. simplify. rewrite ! Pos2Nat.id. + unfold eval_predf. simplify. rewrite ! Regmap.gso; auto. - rewrite eval_predf_Pand in *. assert ((~ In p0 (predicate_use p1_1)) /\ (~ In p0 (predicate_use p1_2))). |