From c1778dc2f1a5de755b32f8c4655a718c109c6489 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 9 May 2023 10:10:05 +0100 Subject: Split proof up into more files --- src/hls/Predicate.v | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/hls/Predicate.v') 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 ⟂. -- cgit