diff options
Diffstat (limited to 'src/hls/Predicate.v')
| -rw-r--r-- | src/hls/Predicate.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index f99fa4f..08ce47b 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -737,6 +737,14 @@ Proof. rewrite <- simplify_correct. eauto. Qed. +Lemma equiv_check_destr : + forall p1 p2 p1' p2', + Pand p1 p2 == Pand p1' p2' -> + p1 == p1' /\ p2 == p2' + \/ p1 == p2' /\ p2 == p1'. +Proof. + induction p1. intros; cbn in *; unfold sat_equiv in *; cbn in *. + Opaque simplify. Opaque simplify'. |