From e1be5f97bb2a42b3179bc24b118d69af137f8e5d Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Sat, 18 Aug 2018 21:28:21 +0200
Subject: Regrouping type rules

---
 Coprod.thy | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'Coprod.thy')

diff --git a/Coprod.thy b/Coprod.thy
index a444c89..f62bb06 100644
--- a/Coprod.thy
+++ b/Coprod.thy
@@ -1,8 +1,7 @@
 (*  Title:  HoTT/Coprod.thy
     Author: Josh Chen
-    Date:   Aug 2018
 
-Coproduct type.
+Coproduct type
 *)
 
 theory Coprod
@@ -20,9 +19,9 @@ axiomatization
 where
   Coprod_form: "\<lbrakk>A: U(i); B: U(i)\<rbrakk> \<Longrightarrow> A + B: U(i)"
 and
-  Coprod_intro1: "\<lbrakk>a: A; B: U(i)\<rbrakk> \<Longrightarrow> inl(a): A + B"
+  Coprod_intro_inl: "\<lbrakk>a: A; B: U(i)\<rbrakk> \<Longrightarrow> inl(a): A + B"
 and
-  Coprod_intro2: "\<lbrakk>b: B; A: U(i)\<rbrakk> \<Longrightarrow> inr(b): A + B"
+  Coprod_intro_inr: "\<lbrakk>b: B; A: U(i)\<rbrakk> \<Longrightarrow> inr(b): A + B"
 and
   Coprod_elim: "\<lbrakk>
     C: A + B \<longrightarrow> U(i);
@@ -31,14 +30,14 @@ and
     u: A + B
     \<rbrakk> \<Longrightarrow> ind\<^sub>+(c)(d)(u) : C(u)"
 and
-  Coprod_comp1: "\<lbrakk>
+  Coprod_comp_inl: "\<lbrakk>
     C: A + B \<longrightarrow> U(i);
     \<And>x. x: A \<Longrightarrow> c(x): C(inl(x));
     \<And>y. y: B \<Longrightarrow> d(y): C(inr(y));
     a: A
     \<rbrakk> \<Longrightarrow> ind\<^sub>+(c)(d)(inl(a)) \<equiv> c(a)"
 and
-  Coprod_comp2: "\<lbrakk>
+  Coprod_comp_inr: "\<lbrakk>
     C: A + B \<longrightarrow> U(i);
     \<And>x. x: A \<Longrightarrow> c(x): C(inl(x));
     \<And>y. y: B \<Longrightarrow> d(y): C(inr(y));
@@ -49,17 +48,18 @@ and
 text "Admissible formation inference rules:"
 
 axiomatization where
-  Coprod_form_cond1: "A + B: U(i) \<Longrightarrow> A: U(i)"
+  Coprod_wellform1: "A + B: U(i) \<Longrightarrow> A: U(i)"
 and
-  Coprod_form_cond2: "A + B: U(i) \<Longrightarrow> B: U(i)"
+  Coprod_wellform2: "A + B: U(i) \<Longrightarrow> B: U(i)"
 
 
-text "Rule declarations:"
+text "Rule attribute declarations:"
 
-lemmas Coprod_intro = Coprod_intro1 Coprod_intro2
-lemmas Coprod_rules [intro] = Coprod_form Coprod_intro Coprod_elim Coprod_comp1 Coprod_comp2
-lemmas Coprod_form_conds [wellform] = Coprod_form_cond1 Coprod_form_cond2
-lemmas Coprod_comps [comp] = Coprod_comp1 Coprod_comp2
+lemmas Coprod_intro = Coprod_intro_inl Coprod_intro_inr
+
+lemmas Coprod_comp [comp] = Coprod_comp_inl Coprod_comp_inr
+lemmas Coprod_wellform [wellform] = Coprod_wellform1 Coprod_wellform2
+lemmas Coprod_routine [intro] = Coprod_form Coprod_intro Coprod_comp Coprod_elim
 
 
 end
-- 
cgit v1.2.3

