diff options
author | Yann Herklotz <git@yannherklotz.com> | 2022-06-03 18:08:05 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2022-06-03 18:08:05 +0100 |
commit | db4da00aea8b51bc9d90d83f981b9163eec3c540 (patch) | |
tree | 83d7f3bb6d8d70d7e7471917f1434cd2571a9c63 /src/hls/Predicate.v | |
parent | a64b65a9f5b52372b413c31873fa14c3b1785b00 (diff) | |
download | vericert-db4da00aea8b51bc9d90d83f981b9163eec3c540.tar.gz vericert-db4da00aea8b51bc9d90d83f981b9163eec3c540.zip |
Work on CondElim proof
Diffstat (limited to 'src/hls/Predicate.v')
-rw-r--r-- | src/hls/Predicate.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/hls/Predicate.v b/src/hls/Predicate.v index c6fe853..087b119 100644 --- a/src/hls/Predicate.v +++ b/src/hls/Predicate.v @@ -566,8 +566,8 @@ Defined. #[local] Open Scope positive. -Compute tseytin_simple (Por (negate (Pand (Por (Plit (true, 1)) (Plit (true, 2))) (Plit (true, 3)))) (Plit (false, 4))). -Compute sat_pred_simple (Por Pfalse (Pand (Plit (true, 1)) (Plit (false, 1)))). +(* Compute tseytin_simple (Por (negate (Pand (Por (Plit (true, 1)) (Plit (true, 2))) (Plit (true, 3)))) (Plit (false, 4))). *) +(* Compute sat_pred_simple (Por Pfalse (Pand (Plit (true, 1)) (Plit (false, 1)))). *) Lemma sat_dec a: {sat a} + {unsat a}. Proof. @@ -584,7 +584,7 @@ Definition equiv_check p1 p2 := | _ => false end. -Compute equiv_check Pfalse (Pand (Plit (true, 1%positive)) (Plit (false, 1%positive))). +(* Compute equiv_check Pfalse (Pand (Plit (true, 1%positive)) (Plit (false, 1%positive))). *) Lemma equiv_check_correct : forall p1 p2, equiv_check p1 p2 = true -> p1 == p2. |