From f97d71514a309c212d3b20e560ce6482df0dd7ea Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Mon, 25 May 2020 19:33:23 +0200
Subject: fix implicits table merge mistake

---
 spartan/core/implicits.ML | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'spartan')

diff --git a/spartan/core/implicits.ML b/spartan/core/implicits.ML
index 04fc825..4d73c8d 100644
--- a/spartan/core/implicits.ML
+++ b/spartan/core/implicits.ML
@@ -11,7 +11,7 @@ structure Defs = Generic_Data (
   type T = (term * term) Symtab.table
   val empty = Symtab.empty
   val extend = I
-  val merge = Symtab.merge (Term.aconv o #1)
+  val merge = Symtab.merge (Term.aconv o apply2 #1)
 )
 
 val implicit_defs = Defs.get o Context.Proof
-- 
cgit v1.2.3