diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-07-01 15:06:03 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-07-01 15:06:03 +0100 |
| commit | 7af499d9fb8e98a1d2fec35cd433bf676e31e93a (patch) | |
| tree | 1fe5ea7fc8a7dc3abf3bc8b4c3f366c68a995e31 /src/common/Coquplib.v | |
| parent | fae3efb7755ae7d4832b85fb9244b3a93fa5c9eb (diff) | |
| parent | 24b07d3b719072482f609954f584232534ed93eb (diff) | |
| download | vericert-kvx-7af499d9fb8e98a1d2fec35cd433bf676e31e93a.tar.gz vericert-kvx-7af499d9fb8e98a1d2fec35cd433bf676e31e93a.zip | |
Merge remote-tracking branch 'james/develop' into develop
Diffstat (limited to 'src/common/Coquplib.v')
| -rw-r--r-- | src/common/Coquplib.v | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/common/Coquplib.v b/src/common/Coquplib.v index 5de1e7c..ba0a5dc 100644 --- a/src/common/Coquplib.v +++ b/src/common/Coquplib.v @@ -51,6 +51,13 @@ Ltac clear_obvious := | [ H : _ /\ _ |- _ ] => invert H end. +Ltac nicify_goals := + repeat match goal with + | [ |- _ /\ _ ] => split + | [ |- Some _ = Some _ ] => try reflexivity + | [ _ : ?x |- ?x ] => assumption + end. + Ltac kill_bools := repeat match goal with | [ H : _ && _ = true |- _ ] => apply andb_prop in H @@ -118,7 +125,7 @@ Ltac unfold_constants := end. Ltac simplify := unfold_constants; simpl in *; - repeat (clear_obvious; kill_bools); + repeat (clear_obvious; nicify_goals; kill_bools); simpl in *; try discriminate. Global Opaque Nat.div. |