diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-05-05 18:43:12 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-05 18:43:12 +0100 |
| commit | b68e1e078c2829fb04e4721d13432d0e82a1e0e9 (patch) | |
| tree | 16c2c68657934a10bf7a7a1f6f7ada863d2499fc /src/hls/Predicate.v | |
| parent | 7cf1299868eb063eaeac782f9c10406059337be3 (diff) | |
| download | vericert-b68e1e078c2829fb04e4721d13432d0e82a1e0e9.tar.gz vericert-b68e1e078c2829fb04e4721d13432d0e82a1e0e9.zip | |
Finish forward and backward proofs for predicated proof
Diffstat (limited to 'src/hls/Predicate.v')
| -rw-r--r-- | src/hls/Predicate.v | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index 08ce47b..f99fa4f 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -737,14 +737,6 @@ 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'. |