diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-01-30 19:20:48 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-01-30 19:20:48 -0500 |
| commit | 3bd7799386f9b0f3fa225c57077bcba3f2120d80 (patch) | |
| tree | f9c0fca9bdd75caff9ee62cc9970d38502dce10b /src/Util/Sumbool.v | |
| parent | 0632512e1348bae49e1fa9dd04fdeb3ed977a210 (diff) | |
Don't change sumbool eq hypothesis unless both sides are constructors
Diffstat (limited to 'src/Util/Sumbool.v')
| -rw-r--r-- | src/Util/Sumbool.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Util/Sumbool.v b/src/Util/Sumbool.v index 4008e67f6..81a73873c 100644 --- a/src/Util/Sumbool.v +++ b/src/Util/Sumbool.v @@ -57,13 +57,13 @@ Ltac induction_path_sumbool H := end. Ltac inversion_sumbool_step := match goal with - | [ H : _ = left _ |- _ ] + | [ H : left _ = left _ |- _ ] => induction_path_sumbool H - | [ H : left _ = _ |- _ ] + | [ H : left _ = right _ |- _ ] => induction_path_sumbool H - | [ H : _ = right _ |- _ ] + | [ H : right _ = left _ |- _ ] => induction_path_sumbool H - | [ H : right _ = _ |- _ ] + | [ H : right _ = right _ |- _ ] => induction_path_sumbool H end. Ltac inversion_sumbool := repeat inversion_sumbool_step. |