From 3bd7799386f9b0f3fa225c57077bcba3f2120d80 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Mon, 30 Jan 2017 19:20:48 -0500 Subject: Don't change sumbool eq hypothesis unless both sides are constructors --- src/Util/Sum.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Util/Sum.v') diff --git a/src/Util/Sum.v b/src/Util/Sum.v index d6fa26c2c..fe7fe662b 100644 --- a/src/Util/Sum.v +++ b/src/Util/Sum.v @@ -86,13 +86,13 @@ Ltac induction_path_sum H := end. Ltac inversion_sum_step := match goal with - | [ H : _ = inl _ |- _ ] + | [ H : inl _ = inl _ |- _ ] => induction_path_sum H - | [ H : inl _ = _ |- _ ] + | [ H : inl _ = inr _ |- _ ] => induction_path_sum H - | [ H : _ = inr _ |- _ ] + | [ H : inr _ = inl _ |- _ ] => induction_path_sum H - | [ H : inr _ = _ |- _ ] + | [ H : inr _ = inr _ |- _ ] => induction_path_sum H end. Ltac inversion_sum := repeat inversion_sum_step. -- cgit v1.2.3