diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-11-05 10:32:47 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-11-05 10:32:47 +0100 |
commit | 5e17f4a83b3fe5b8fdf58ab9643e33543d257bad (patch) | |
tree | 84714cbe9b8e2392056532d9209766859478685f /src/hls/Predicate.v | |
parent | 64a7fd889491bedffa3e3bcf130599c841c7008e (diff) | |
download | vericert-5e17f4a83b3fe5b8fdf58ab9643e33543d257bad.tar.gz vericert-5e17f4a83b3fe5b8fdf58ab9643e33543d257bad.zip |
Finish load proofdev/scheduling
Diffstat (limited to 'src/hls/Predicate.v')
-rw-r--r-- | src/hls/Predicate.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index 8ff61e7..364c5ad 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -698,6 +698,12 @@ Fixpoint max_predicate (p: pred_op) : positive := inv HX; [eapply IHcurr1 in H0 | eapply IHcurr2 in H0]; lia. Qed. + Lemma max_predicate_negate : + forall p, max_predicate (negate p) = max_predicate p. + Proof. + induction p; intuition; cbn; rewrite IHp1; now rewrite IHp2. + Qed. + Definition tseytin (p: pred_op) : {fm: formula | forall a, sat_predicate p a = true <-> sat_formula fm a}. |