Skip to content
Snippets Groups Projects
Commit c699fda3 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Improve "decompose_Forall_hyps" tactic.

parent 361308c7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 1 deletion
theories/list.v
+ 2
− 1
View file @ c699fda3
...@@ -2703,10 +2703,11 @@ Ltac simplify_zip_equality := repeat ...@@ -2703,10 +2703,11 @@ Ltac simplify_zip_equality := repeat
Ltac decompose_Forall_hyps := repeat Ltac decompose_Forall_hyps := repeat
match goal with match goal with
| H : Forall _ [] |- _ => inversion H | H : Forall _ [] |- _ => clear H
| H : Forall _ (_ :: _) |- _ => rewrite Forall_cons in H; destruct H | H : Forall _ (_ :: _) |- _ => rewrite Forall_cons in H; destruct H
| H : Forall _ (_ ++ _) |- _ => rewrite Forall_app in H; destruct H | H : Forall _ (_ ++ _) |- _ => rewrite Forall_app in H; destruct H
| H : Forall _ (_ <$> _) |- _ => rewrite Forall_fmap in H | H : Forall _ (_ <$> _) |- _ => rewrite Forall_fmap in H
| H : Forall _ ?l, H' : length ?l ≠ 0 |- _ => is_var l; destruct H; [done|]
| H : Forall2 _ [] [] |- _ => clear H | H : Forall2 _ [] [] |- _ => clear H
| H : Forall2 _ (_ :: _) [] |- _ => destruct (Forall2_cons_nil_inv _ _ _ H) | H : Forall2 _ (_ :: _) [] |- _ => destruct (Forall2_cons_nil_inv _ _ _ H)
| H : Forall2 _ [] (_ :: _) |- _ => destruct (Forall2_nil_cons_inv _ _ _ H) | H : Forall2 _ [] (_ :: _) |- _ => destruct (Forall2_nil_cons_inv _ _ _ H)
......
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