diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-06-02 20:37:23 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-06-02 20:38:17 +0100 |
| commit | d1d4d09558f79367ea5e486bec3fa5dd19d8b113 (patch) | |
| tree | 3363bf0c4cafbe206b3337f700eb753ed7450129 /src/hls/GiblePargen.v | |
| parent | 22923b92a04a94ef133c4eff6b80c0ef537aa4f3 (diff) | |
| download | vericert-d1d4d09558f79367ea5e486bec3fa5dd19d8b113.tar.gz vericert-d1d4d09558f79367ea5e486bec3fa5dd19d8b113.zip | |
Fix proof of predicates completely
Diffstat (limited to 'src/hls/GiblePargen.v')
| -rw-r--r-- | src/hls/GiblePargen.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/hls/GiblePargen.v b/src/hls/GiblePargen.v index c1c5fdb..b2fdd63 100644 --- a/src/hls/GiblePargen.v +++ b/src/hls/GiblePargen.v @@ -279,6 +279,7 @@ Definition update (fop : pred_op * forest) (i : instr): option (pred_op * forest do _ <- assert_ (check_mutexcl predicated); do _ <- assert_ (predicated_not_in_forest p f); do _ <- assert_ (is_initial_pred_and_notin f p pred); + do _ <- assert_ (match sat_pred_simple (¬ from_predicated_inv predicated) with None => true | Some _ => false end); Some (pred, f #p p <- new_pred) | RBexit p c => let new_p := simplify (negate (dfltp p) ∧ pred) in |