diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-01-29 18:49:43 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-01-29 18:49:43 +0000 |
commit | 4d26fb772d1c685aca6da7e97b5a65da1dd6a833 (patch) | |
tree | 32e99ec92a9b2c71e161d95be00cf607baa3b6ed /src/CoqUp/Tactics.v | |
parent | 477c1befb0d9a2260b7f73b0ba0e91a2cedbb54b (diff) | |
download | vericert-4d26fb772d1c685aca6da7e97b5a65da1dd6a833.tar.gz vericert-4d26fb772d1c685aca6da7e97b5a65da1dd6a833.zip |
Short proof and add Tactics
Diffstat (limited to 'src/CoqUp/Tactics.v')
-rw-r--r-- | src/CoqUp/Tactics.v | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/CoqUp/Tactics.v b/src/CoqUp/Tactics.v new file mode 100644 index 0000000..5978d49 --- /dev/null +++ b/src/CoqUp/Tactics.v @@ -0,0 +1,16 @@ +Module Tactics. + + Ltac unfold_rec c := unfold c; fold c. + + Ltac solve_by_inverts n := + match goal with | H : ?T |- _ => + match type of T with Prop => + inversion H; + match n with S (S (?n')) => subst; try constructor; solve_by_inverts (S n') end + end + end. + + Ltac solve_by_invert := solve_by_inverts 1. + +End Tactics. +Export Tactics. |