# HG changeset patch # User wenzelm # Date 1486136204 -3600 # Node ID 7dc25cf5793e655a6ea31784a9a1982c77e420b2 # Parent 20a623d03d717d65b20644074e3008c7e5a5e470 misc tuning; diff -r 20a623d03d71 -r 7dc25cf5793e src/CTT/Arith.thy --- a/src/CTT/Arith.thy Thu Feb 02 09:55:16 2017 -0500 +++ b/src/CTT/Arith.thy Fri Feb 03 16:36:44 2017 +0100 @@ -289,7 +289,7 @@ done text \If \a + b = 0\ then \a = 0\. Surprisingly tedious.\ -schematic_goal add_eq0_lemma: "\a:N; b:N\ \ ?c : \u: Eq(N,a#+b,0) . Eq(N,a,0)" +schematic_goal add_eq0_lemma: "\a:N; b:N\ \ ?c : Eq(N,a#+b,0) \ Eq(N,a,0)" apply (NE a) apply (rule_tac [3] replace_type) apply arith_rew @@ -312,7 +312,7 @@ text \Here is a lemma to infer \a - b = 0\ and \b - a = 0\ from \a |-| b = 0\, below.\ schematic_goal absdiff_eq0_lem: - "\a:N; b:N; a |-| b = 0 : N\ \ ?a : \v: Eq(N, a-b, 0) . Eq(N, b-a, 0)" + "\a:N; b:N; a |-| b = 0 : N\ \ ?a : Eq(N, a-b, 0) \ Eq(N, b-a, 0)" apply (unfold absdiff_def) apply intr apply eqintr diff -r 20a623d03d71 -r 7dc25cf5793e src/CTT/Bool.thy --- a/src/CTT/Bool.thy Thu Feb 02 09:55:16 2017 -0500 +++ b/src/CTT/Bool.thy Fri Feb 03 16:36:44 2017 +0100 @@ -19,7 +19,7 @@ where "false \ inr(tt)" definition cond :: "[i,i,i]\i" - where "cond(a,b,c) \ when(a, \u. b, \u. c)" + where "cond(a,b,c) \ when(a, \_. b, \_. c)" lemmas bool_defs = Bool_def true_def false_def cond_def diff -r 20a623d03d71 -r 7dc25cf5793e src/CTT/CTT.thy --- a/src/CTT/CTT.thy Thu Feb 02 09:55:16 2017 -0500 +++ b/src/CTT/CTT.thy Fri Feb 03 16:36:44 2017 +0100 @@ -208,7 +208,7 @@ \ when(p, \x. c(x), \y. d(y)) = when(q, \x. e(x), \y. f(y)) : C(p)" and PlusC_inl: - "\a c d A C. \a: A; + "\a c d A B C. \a: A; \x. x:A \ c(x): C(inl(x)); \y. y:B \ d(y): C(inr(y)) \ \ when(inl(a), \x. c(x), \y. d(y)) = c(a) : C(inl(a))" and diff -r 20a623d03d71 -r 7dc25cf5793e src/CTT/Main.thy --- a/src/CTT/Main.thy Thu Feb 02 09:55:16 2017 -0500 +++ b/src/CTT/Main.thy Fri Feb 03 16:36:44 2017 +0100 @@ -1,6 +1,6 @@ section \Main includes everything\ theory Main - imports CTT Arith Bool + imports CTT Bool Arith begin end diff -r 20a623d03d71 -r 7dc25cf5793e src/CTT/ex/Elimination.thy --- a/src/CTT/ex/Elimination.thy Thu Feb 02 09:55:16 2017 -0500 +++ b/src/CTT/ex/Elimination.thy Fri Feb 03 16:36:44 2017 +0100 @@ -135,8 +135,7 @@ assumes "A type" and "\x. x:A \ B(x) type" and "\x y. \x:A; y:B(x)\ \ C(x,y) type" - shows "?a : \h: (\x:A. \y:B(x). C(x,y)). - (\f: (\x:A. B(x)). \x:A. C(x, f`x))" + shows "?a : (\x:A. \y:B(x). C(x,y)) \ (\f: (\x:A. B(x)). \x:A. C(x, f`x))" apply (intr assms) prefer 2 apply add_mp prefer 2 apply add_mp @@ -153,8 +152,7 @@ assumes "A type" and "\x. x:A \ B(x) type" and "\x y. \x:A; y:B(x)\ \ C(x,y) type" - shows "?a : \h: (\x:A. \y:B(x). C(x,y)). - (\f: (\x:A. B(x)). \x:A. C(x, f`x))" + shows "?a : (\x:A. \y:B(x). C(x,y)) \ (\f: (\x:A. B(x)). \x:A. C(x, f`x))" apply (intr assms) (*Must not use add_mp as subst_prodE hides the construction.*) apply (rule ProdE [THEN SumE])