aboutsummaryrefslogtreecommitdiff
path: root/hott
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--hott/List_HoTT.thy4
1 files changed, 2 insertions, 2 deletions
diff --git a/hott/List_HoTT.thy b/hott/List_HoTT.thy
index a48d2ab..dc52320 100644
--- a/hott/List_HoTT.thy
+++ b/hott/List_HoTT.thy
@@ -10,8 +10,8 @@ section \<open>Length\<close>
definition [implicit]: "len \<equiv> ListRec {} Nat 0 (fn _ _ rec. suc rec)"
experiment begin
- Lemma "len [] \<equiv> ?n" by compute
- Lemma "len [0, suc 0, suc (suc 0)] \<equiv> ?n" by compute
+ Lemma "len [] \<equiv> ?n" by (subst comp; typechk?)+
+ Lemma "len [0, suc 0, suc (suc 0)] \<equiv> ?n" by (subst comp; typechk?)+
end