diff options
author | Jason Gross <jgross@mit.edu> | 2017-03-21 16:30:18 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-03-21 16:30:18 -0400 |
commit | e717dd5a4a2db6f1479d68a5fc07917a090d0b26 (patch) | |
tree | ffaa6096a7cb12b317d9fd8cd97192339435aa3f | |
parent | ec980c530589f89fd008cc0c015a985aaed9fd1e (diff) |
Make Bool.split_andb a bit more powerful
-rw-r--r-- | src/Util/Bool.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Util/Bool.v b/src/Util/Bool.v index 948e87417..6aa8260af 100644 --- a/src/Util/Bool.v +++ b/src/Util/Bool.v @@ -68,4 +68,10 @@ Ltac split_andb := => apply andb_prop in H; change (is_true x /\ is_true y) in H; destruct H + | [ H : context[andb ?x ?y = true] |- _ ] + => rewrite (Bool.andb_true_iff x y) in H + | [ H : context[is_true (andb ?x ?y)] |- _ ] + => change (is_true (andb x y)) with (andb x y = true) in H; + rewrite Bool.andb_true_iff in H; + change (x = true /\ y = true) with (is_true x /\ is_true y) in H end. |