From 41da54eca527b7c61f13ebcb75a8970bc845bb40 Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Fri, 29 May 2020 10:20:36 +0200
Subject: minor

---
 hott/More_List.thy | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hott/More_List.thy b/hott/More_List.thy
index aa57635..c3d63f6 100644
--- a/hott/More_List.thy
+++ b/hott/More_List.thy
@@ -16,7 +16,7 @@ definition [implicit]:
   "len \<equiv> ListRec ? Nat 0 (\<lambda>_ _ n. suc n)"
 
 experiment begin
-  Lemma "len [] \<equiv> 0" by reduce
+  Lemma "len [] \<equiv> ?n" by (subst comps)+
   Lemma "len [0, suc 0, suc (suc 0)] \<equiv> ?n" by (subst comps)+
 end
 
-- 
cgit v1.2.3