diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-03-01 11:05:12 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-03-01 11:05:12 +0000 |
commit | 975a5fb0c11af6e8db3f250322794c0712f4af90 (patch) | |
tree | 700cb068388ba30685c099f593dbd0bbcca29204 /src/hls/Veriloggenproof.v | |
parent | 5ba31274207ba24a15682f1aec9ad9e0f50e08ee (diff) | |
download | vericert-kvx-975a5fb0c11af6e8db3f250322794c0712f4af90.tar.gz vericert-kvx-975a5fb0c11af6e8db3f250322794c0712f4af90.zip |
Change lists in case statements to stmnt_list
Diffstat (limited to 'src/hls/Veriloggenproof.v')
-rw-r--r-- | src/hls/Veriloggenproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/Veriloggenproof.v b/src/hls/Veriloggenproof.v index 9abbd4b..99828e4 100644 --- a/src/hls/Veriloggenproof.v +++ b/src/hls/Veriloggenproof.v @@ -178,7 +178,7 @@ Lemma transl_list_correct : stmnt_runp f {| assoc_blocking := asr; assoc_nonblocking := asrn |} {| assoc_blocking := asa; assoc_nonblocking := asan |} - (Vcase (Vvar ev) (transl_list l) (Some Vskip)) + (Vcase (Vvar ev) (list_to_stmnt (transl_list l)) (Some Vskip)) {| assoc_blocking := asr'; assoc_nonblocking := asrn' |} {| assoc_blocking := asa'; assoc_nonblocking := asan' |}). Proof. |