diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-06-10 13:46:53 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-06-10 13:46:53 +0100 |
commit | 243c5b07c29c8636d7089d03ee5f9c58beaf9fda (patch) | |
tree | 7c12d545779581e2a8074cafc2260d2f8b1acef6 /src/hls/GiblePargen.v | |
parent | e75731e24ed8c2d9656eb839e67483276516b4e8 (diff) | |
download | vericert-243c5b07c29c8636d7089d03ee5f9c58beaf9fda.tar.gz vericert-243c5b07c29c8636d7089d03ee5f9c58beaf9fda.zip |
Add more to proof of evaluability
Diffstat (limited to 'src/hls/GiblePargen.v')
-rw-r--r-- | src/hls/GiblePargen.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/hls/GiblePargen.v b/src/hls/GiblePargen.v index 4b95cf2..736f461 100644 --- a/src/hls/GiblePargen.v +++ b/src/hls/GiblePargen.v @@ -414,11 +414,15 @@ Definition check_evaluability1 a b := existsb (fun ae => resource_eq (fst ae) (fst be) && HN.beq_pred_expr (snd ae) (snd be) + && check_mutexcl (snd ae) + && check_mutexcl (snd be) ) a ) b. Definition check_evaluability2 a b := - forallb (fun be => existsb (fun ae => HN.beq_pred_expr ae be) a) b. + forallb (fun be => existsb (fun ae => HN.beq_pred_expr ae be + && check_mutexcl ae + && check_mutexcl be) a) b. Definition schedule_oracle (bb: SeqBB.t) (bbt: ParBB.t) : bool := match abstract_sequence_top bb, abstract_sequence_top (concat (concat bbt)) with |