diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-08-10 12:10:22 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-08-10 12:10:22 +0100 |
commit | f6569b736d4ded08a011f55bd6001c89e899fd5c (patch) | |
tree | cc76bb6b36dc7cfc2fc5fc2b216c5b1cde0ab752 /src/hls/HTLPargen.v | |
parent | 86e64fd05cea7b1da996701cd3653db5f471f8d1 (diff) | |
download | vericert-f6569b736d4ded08a011f55bd6001c89e899fd5c.tar.gz vericert-f6569b736d4ded08a011f55bd6001c89e899fd5c.zip |
Add comments next to admitted theorems
Diffstat (limited to 'src/hls/HTLPargen.v')
-rw-r--r-- | src/hls/HTLPargen.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v index 1bc0fd5..e493989 100644 --- a/src/hls/HTLPargen.v +++ b/src/hls/HTLPargen.v @@ -155,7 +155,7 @@ Lemma declare_reg_state_incr : (AssocMap.set r (i, VScalar sz) s.(st_scldecls)) s.(st_arrdecls) s.(st_datapath)). -Proof. Admitted. +Proof. Admitted. (* This translation pass is only used for testing. *) Definition declare_reg (i : option io) (r : reg) (sz : nat) : mon unit := fun s => OK tt (mkstate @@ -177,7 +177,7 @@ Lemma declare_arr_state_incr : s.(st_scldecls) (AssocMap.set r (i, VArray sz ln) s.(st_arrdecls)) s.(st_datapath)). -Proof. Admitted. +Proof. Admitted. (* This translation pass is only used for testing. *) Definition declare_arr (i : option io) (r : reg) (sz : nat) (ln : nat) : mon unit := fun s => OK tt (mkstate @@ -479,8 +479,8 @@ Program Definition transf_seq_blockM (fin rtrn stack preg: reg) (ni: node * ParB | Errors.Error m => Error m end. Next Obligation. -admit. -Admitted. +admit. (* This translation pass is only used for testing. *) +Admitted. (* This translation pass is only used for testing. *) Definition declare_regs (i: instr): mon unit := match i with |