diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-05 14:53:55 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-05 14:53:55 +0100 |
commit | 7cf1299868eb063eaeac782f9c10406059337be3 (patch) | |
tree | 73edaae68f2f6cf166038ae27cdbd5cbe1c463dc /src/hls/Predicate.v | |
parent | f7566f5880d7b41e22468c77d61983c556014bd4 (diff) | |
download | vericert-7cf1299868eb063eaeac782f9c10406059337be3.tar.gz vericert-7cf1299868eb063eaeac782f9c10406059337be3.zip |
Try and prove equivalence of predicated things
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'. |