From 5c8b41b60e8f943632d666c6566c83a9ea74c8a4 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 31 May 2022 02:06:07 +0100 Subject: Abstract useful function into Predicate.v --- src/hls/Predicate.v | 7 +++++++ 1 file changed, 7 insertions(+) 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. -- cgit