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/RTLParFU.v | |
parent | a04e972f3dcc94459399e4d4168b8d26d32e1fae (diff) | |
download | vericert-405e822a4e769969ef01a683d486accee0d71da2.tar.gz vericert-405e822a4e769969ef01a683d486accee0d71da2.zip |
Change nat to positive in Sat proof
Diffstat (limited to 'src/hls/RTLParFU.v')
-rw-r--r-- | src/hls/RTLParFU.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/RTLParFU.v b/src/hls/RTLParFU.v index fe48ac5..b677be7 100644 --- a/src/hls/RTLParFU.v +++ b/src/hls/RTLParFU.v @@ -102,7 +102,7 @@ Definition regset := Regmap.t val. Definition predset := PMap.t bool. Definition eval_predf (pr: predset) (p: pred_op) := - sat_predicate p (fun x => pr !! (Pos.of_nat x)). + sat_predicate p (fun x => pr !! x). #[global] Instance eval_predf_Proper : Proper (eq ==> equiv ==> eq) eval_predf. |