diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-29 16:13:24 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-29 16:13:24 +0100 |
commit | c10635f9e6890a6171c5c1cc8eb6e3298d2006b1 (patch) | |
tree | a5f0e39431138796d297913b37578f758a45257f /src/hls/Gible.v | |
parent | 0c5c896490ee0d4b553f26d00b2ad2a971d25d4f (diff) | |
download | vericert-c10635f9e6890a6171c5c1cc8eb6e3298d2006b1.tar.gz vericert-c10635f9e6890a6171c5c1cc8eb6e3298d2006b1.zip |
Prove more admitted theorems
Diffstat (limited to 'src/hls/Gible.v')
-rw-r--r-- | src/hls/Gible.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/hls/Gible.v b/src/hls/Gible.v index d7b0e66..cb080c5 100644 --- a/src/hls/Gible.v +++ b/src/hls/Gible.v @@ -192,6 +192,16 @@ Lemma eval_predf_Por : eval_predf ps (p ∨ p') = eval_predf ps p || eval_predf ps p'. Proof. unfold eval_predf; split; simplify; auto with bool. Qed. +Lemma eval_predf_simplify : + forall ps p, + eval_predf ps (simplify p) = eval_predf ps p. +Proof. unfold eval_predf; intros. now rewrite simplify_correct. Qed. + +Lemma eval_predf_deep_simplify : + forall peq ps p, + eval_predf ps (deep_simplify peq p) = eval_predf ps p. +Proof. unfold eval_predf; intros. now rewrite deep_simplify_correct. Qed. + Lemma eval_predf_pr_equiv : forall p ps ps', (forall x, ps !! x = ps' !! x) -> |