From 29068d381a8b5d95c7fd4dc6111dcfb3a181f0bd Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Sun, 10 Feb 2019 03:16:51 +0100
Subject: Explicit references in antiquotations in typing.ML. Move trace switch
 definition to HoTT_Base.

---
 HoTT_Base.thy | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'HoTT_Base.thy')

diff --git a/HoTT_Base.thy b/HoTT_Base.thy
index ed8c18b..23e51e5 100644
--- a/HoTT_Base.thy
+++ b/HoTT_Base.thy
@@ -27,6 +27,9 @@ section \<open>Setup non-core logic functionality\<close>
 
 declare[[eta_contract=false]] \<comment> \<open>Do not eta-contract\<close>
 
+ML \<open>val trace = Attrib.setup_config_bool @{binding "trace"} (K false)\<close>
+  \<comment> \<open>Context attribute for tracing; use declare[[trace=true]] at any point in a theory to turn on.\<close>
+
 text \<open>The following file sets up type assumption and inference functionality.\<close>
 
 ML_file "typing.ML"
-- 
cgit v1.2.3

