diff options
Diffstat (limited to 'src/hls/Predicate.v')
-rw-r--r-- | src/hls/Predicate.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index f99fa4f..92ad03f 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -879,3 +879,9 @@ Proof. pose proof (sat_predicateP_det a p _ _ H1 H0). rewrite H in H3. now rewrite H3 in H2. Qed. + +Definition and_list {A} (p: list (@pred_op A)): @pred_op A := + fold_left Pand p T. + +Definition or_list {A} (p: list (@pred_op A)): @pred_op A := + fold_left Por p ⟂. |