From 49a03d40b308cb42ee096c09ff416c15b92687c3 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Sat, 21 Apr 2018 15:08:55 +0200
Subject: [PATCH] solve_proper_unfold: support functions with more arguments

---
 theories/tactics.v | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/theories/tactics.v b/theories/tactics.v
index eb0b3969..eab260c2 100644
--- a/theories/tactics.v
+++ b/theories/tactics.v
@@ -326,6 +326,8 @@ we proceed by repeatedly using [f_equiv]. *)
 Ltac solve_proper_unfold :=
   (* Try unfolding the head symbol, which is the one we are proving a new property about *)
   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
-- 
GitLab