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/Sat.v | |
| parent | a64b65a9f5b52372b413c31873fa14c3b1785b00 (diff) | |
| download | vericert-db4da00aea8b51bc9d90d83f981b9163eec3c540.tar.gz vericert-db4da00aea8b51bc9d90d83f981b9163eec3c540.zip | |
Work on CondElim proof
Diffstat (limited to 'src/hls/Sat.v')
| -rw-r--r-- | src/hls/Sat.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/hls/Sat.v b/src/hls/Sat.v index 428c176..ae0a05c 100644 --- a/src/hls/Sat.v +++ b/src/hls/Sat.v @@ -246,13 +246,13 @@ Definition setFormulaSimple (fm : formula) (l : lit) := | inright _ => None end. -Eval compute in setFormulaSimple (((true, 1%nat) :: nil) :: ((false, 1%nat) :: nil) :: nil) (true, 1%nat). -Eval compute in setFormulaSimple nil (true, 0). -Eval compute in setFormulaSimple (((true, 0) :: nil) :: nil) (true, 0). -Eval compute in setFormulaSimple (((false, 0) :: nil) :: nil) (true, 0). -Eval compute in setFormulaSimple (((false, 1) :: nil) :: nil) (true, 0). -Eval compute in setFormulaSimple (((false, 1) :: (true, 0) :: nil) :: nil) (true, 0). -Eval compute in setFormulaSimple (((false, 1) :: (false, 0) :: nil) :: nil) (true, 0). +(* Eval compute in setFormulaSimple (((true, 1%nat) :: nil) :: ((false, 1%nat) :: nil) :: nil) (true, 1%nat). *) +(* Eval compute in setFormulaSimple nil (true, 0). *) +(* Eval compute in setFormulaSimple (((true, 0) :: nil) :: nil) (true, 0). *) +(* Eval compute in setFormulaSimple (((false, 0) :: nil) :: nil) (true, 0). *) +(* Eval compute in setFormulaSimple (((false, 1) :: nil) :: nil) (true, 0). *) +(* Eval compute in setFormulaSimple (((false, 1) :: (true, 0) :: nil) :: nil) (true, 0). *) +(* Eval compute in setFormulaSimple (((false, 1) :: (false, 0) :: nil) :: nil) (true, 0). *) #[local] Hint Extern 1 False => discriminate : core. @@ -483,7 +483,7 @@ Definition lit_set_cl (cl: clause) := Definition lit_set (fm: formula) := fold_right NSet.union NSet.empty (map lit_set_cl fm). -Compute NSet.cardinal (lit_set (((true, 1)::(true, 1)::(true, 1)::nil)::nil)). +(* Compute NSet.cardinal (lit_set (((true, 1)::(true, 1)::(true, 1)::nil)::nil)). *) Definition sat_measure (fm: formula) := NSet.cardinal (lit_set fm). @@ -658,4 +658,4 @@ Definition satSolveSimple (fm : formula) := | inright _ => None end. -Eval compute in satSolveSimple nil. +(* Eval compute in satSolveSimple nil. *) |