Commit 4f305bcd authored by Robbert Krebbers's avatar Robbert Krebbers

Improve simplifier for option to handle unions.

parent 0ea65937
......@@ -306,6 +306,10 @@ Tactic Notation "simpl_option" "by" tactic3(tac) :=
| _ => rewrite decide_False by tac
| _ => rewrite option_guard_True by tac
| _ => rewrite option_guard_False by tac
| H : context [None _] |- _ => rewrite (left_id_L None ()) in H
| H : context [_ None] |- _ => rewrite (right_id_L None ()) in H
| |- context [None _] => rewrite (left_id_L None ())
| |- context [_ None] => rewrite (right_id_L None ())
end.
Tactic Notation "simplify_option_equality" "by" tactic3(tac) :=
repeat match goal with
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment