From 1651beafbe7198a320fe87a926bf23e2ab1b784a Mon Sep 17 00:00:00 2001 From: Josh Chen Date: Fri, 6 Jul 2018 14:17:06 +0200 Subject: Remove extra attributes for elimination rules, unneeded for now. --- Equal.thy | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Equal.thy') diff --git a/Equal.thy b/Equal.thy index cb4d4f1..7732dd0 100644 --- a/Equal.thy +++ b/Equal.thy @@ -12,7 +12,7 @@ begin axiomatization Equal :: "[Term, Term, Term] \ Term" and refl :: "Term \ Term" ("(refl'(_'))" 1000) and - indEqual :: "[Term, [Term, Term] \ Typefam, Term \ Term, Term, Term, Term] \ Term" ("(indEqual[_])") + indEqual :: "[Term, [Term, Term] \ Typefam, Term \ Term, Term, Term, Term] \ Term" ("(1indEqual[_])") section \Syntax\ @@ -53,7 +53,6 @@ and \ \ indEqual[A] C f a a refl(a) \ f a" lemmas Equal_rules [intro] = Equal_form Equal_intro Equal_elim Equal_comp -lemmas Equal_elims [dest] = Equal_elim lemmas Equal_form_conds [elim, wellform] = Equal_form_cond1 Equal_form_cond2 Equal_form_cond3 lemmas Equal_comps [comp] = Equal_comp -- cgit v1.2.3