diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2022-05-31 02:06:07 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2022-05-31 02:06:07 +0100 |
| commit | 5c8b41b60e8f943632d666c6566c83a9ea74c8a4 (patch) | |
| tree | dc939306bb88eb3a97d909832d2ae59ad622d616 /src | |
| parent | 145483e6b092d1ee37e4006502f7faac774f1df9 (diff) | |
| download | vericert-5c8b41b60e8f943632d666c6566c83a9ea74c8a4.tar.gz vericert-5c8b41b60e8f943632d666c6566c83a9ea74c8a4.zip | |
Abstract useful function into Predicate.v
Diffstat (limited to 'src')
| -rw-r--r-- | src/hls/Predicate.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index b19ae98..c6fe853 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -681,3 +681,10 @@ Proof. intros. unfold sat_equiv; intros. rewrite ! simplify_correct; auto. Qed. + +Definition combine_pred (p1 p2: option pred_op): option pred_op := + match p1, p2 with + | Some p1, Some p2 => Some (Pand p1 p2) + | Some p, _ | _, Some p => Some p + | None, None => None + end. |