From e513fc2958133e3a00c06ebcd1214741843acf08 Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Wed, 3 Jun 2020 13:09:30 +0200
Subject: 1. Type information context data 2. Small reformulations of rules 3.
 Bool

---
 spartan/data/List.thy | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'spartan/data/List.thy')

diff --git a/spartan/data/List.thy b/spartan/data/List.thy
index 8fdaa1d..1798a23 100644
--- a/spartan/data/List.thy
+++ b/spartan/data/List.thy
@@ -52,14 +52,14 @@ abbreviation "ListRec A C \<equiv> ListInd A (\<lambda>_. C)"
 
 Lemma (derive) ListCase:
   assumes
-    "A: U i" "\<And>xs. xs: List A \<Longrightarrow> C xs: U i" and
+    "xs: List A" and
     nil_case: "c\<^sub>0: C (nil A)" and
     cons_case: "\<And>x xs. \<lbrakk>x: A; xs: List A\<rbrakk> \<Longrightarrow> f x xs: C (cons A x xs)" and
-    "xs: List A"
+    "\<And>xs. xs: List A \<Longrightarrow> C xs: U i"
   shows "?List_cases A (\<lambda>xs. C xs) c\<^sub>0 (\<lambda>x xs. f x xs) xs: C xs"
   by (elim xs) (fact nil_case, rule cons_case)
 
-lemmas List_cases [cases] = ListCase[rotated 4]
+lemmas List_cases [cases] = ListCase[unfolded ListCase_def]
 
 
 section \<open>Notation\<close>
-- 
cgit v1.2.3

