diff options
Diffstat (limited to 'src/Util/Sum.v')
| -rw-r--r-- | src/Util/Sum.v | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Util/Sum.v b/src/Util/Sum.v index 0bed606c2..d6fa26c2c 100644 --- a/src/Util/Sum.v +++ b/src/Util/Sum.v @@ -86,9 +86,13 @@ Ltac induction_path_sum H := end. Ltac inversion_sum_step := match goal with - | [ H : _ = sum _ _ |- _ ] + | [ H : _ = inl _ |- _ ] => induction_path_sum H - | [ H : sum _ _ = _ |- _ ] + | [ H : inl _ = _ |- _ ] + => induction_path_sum H + | [ H : _ = inr _ |- _ ] + => induction_path_sum H + | [ H : inr _ = _ |- _ ] => induction_path_sum H end. Ltac inversion_sum := repeat inversion_sum_step. |