diff options
| author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-08-12 20:24:14 +0100 |
|---|---|---|
| committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-08-12 20:36:01 +0100 |
| commit | 56f442f41aba4efb3929b79f15e5a4cc87579acb (patch) | |
| tree | 7762df6454aa4bdc118bf36780282f41760bff0b /src/common | |
| parent | 77988ed8be364f0caa3dc7eac30d2251e2675b50 (diff) | |
| download | vericert-56f442f41aba4efb3929b79f15e5a4cc87579acb.tar.gz vericert-56f442f41aba4efb3929b79f15e5a4cc87579acb.zip | |
Complete HTLspec (mostly)
Diffstat (limited to 'src/common')
| -rw-r--r-- | src/common/Vericertlib.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/common/Vericertlib.v b/src/common/Vericertlib.v index 0fae032..84c272b 100644 --- a/src/common/Vericertlib.v +++ b/src/common/Vericertlib.v @@ -218,7 +218,9 @@ Ltac liapp := | _ => idtac end. -Ltac crush := simplify; try discriminate; try congruence; try lia; liapp; +Ltac plia := solve [ unfold Ple in *; lia ]. + +Ltac crush := simplify; try discriminate; try congruence; try plia; liapp; try assumption; try (solve [auto]). Ltac crush_trans := |