diff options
author | Yann Herklotz <git@yannherklotz.com> | 2022-06-05 22:42:28 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2022-06-05 22:42:28 +0100 |
commit | 48d907ee56b39e7a8819700ae8a88af05c1b031e (patch) | |
tree | 0d9cddc5622e5b9953b871908195aa606b3dd748 /src/hls/Predicate.v | |
parent | 2e731050c69c98142d29d87fb863f199d50dfe19 (diff) | |
download | vericert-48d907ee56b39e7a8819700ae8a88af05c1b031e.tar.gz vericert-48d907ee56b39e7a8819700ae8a88af05c1b031e.zip |
Fix many more lemmas
Diffstat (limited to 'src/hls/Predicate.v')
-rw-r--r-- | src/hls/Predicate.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index 087b119..7a4ed60 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -508,6 +508,15 @@ Fixpoint max_predicate (p: pred_op) : positive := | Por a b => Pos.max (max_predicate a) (max_predicate b) end. +Fixpoint predicate_use (p: pred_op) : list positive := + match p with + | Plit (b, p) => p :: nil + | Ptrue => nil + | Pfalse => nil + | Pand a b => predicate_use a ++ predicate_use b + | Por a b => predicate_use a ++ predicate_use b + end. + Definition tseytin (p: pred_op) : {fm: formula | forall a, sat_predicate p a = true <-> satFormula fm a}. |