Skip to content
Snippets Groups Projects
Commit 49a03d40 authored by Ralf Jung's avatar Ralf Jung
Browse files

solve_proper_unfold: support functions with more arguments

parent 29a0e002
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 0 deletions
theories/tactics.v
+ 2
− 0
View file @ 49a03d40
...@@ -326,6 +326,8 @@ we proceed by repeatedly using [f_equiv]. *) ...@@ -326,6 +326,8 @@ we proceed by repeatedly using [f_equiv]. *)
Ltac solve_proper_unfold := Ltac solve_proper_unfold :=
(* Try unfolding the head symbol, which is the one we are proving a new property about *) (* Try unfolding the head symbol, which is the one we are proving a new property about *)
lazymatch goal with lazymatch goal with
| |- ?R (?f _ _ _ _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _ _ _ _) => unfold f
| |- ?R (?f _ _ _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _ _ _) => unfold f
| |- ?R (?f _ _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _ _) => unfold f | |- ?R (?f _ _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _ _) => unfold f
| |- ?R (?f _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _) => unfold f | |- ?R (?f _ _ _ _ _ _ _) (?f _ _ _ _ _ _ _) => unfold f
| |- ?R (?f _ _ _ _ _ _) (?f _ _ _ _ _ _) => unfold f | |- ?R (?f _ _ _ _ _ _) (?f _ _ _ _ _ _) => unfold f
......
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