diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-09 10:10:05 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-09 10:10:05 +0100 |
commit | c1778dc2f1a5de755b32f8c4655a718c109c6489 (patch) | |
tree | 826185424f8e081203b392824781f84a7bb58cfe /src/hls/Predicate.v | |
parent | bad5c59b014a9baf18df0e2146edcb11fb931216 (diff) | |
download | vericert-c1778dc2f1a5de755b32f8c4655a718c109c6489.tar.gz vericert-c1778dc2f1a5de755b32f8c4655a718c109c6489.zip |
Split proof up into more files
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 ⟂. |