changeset 60555 | 51a6997b1384 |
parent 59780 | 23b67731f4f0 |
child 60754 | 02924903a6fd |
--- a/src/CTT/CTT.thy Mon Jun 22 19:22:48 2015 +0200 +++ b/src/CTT/CTT.thy Mon Jun 22 20:36:33 2015 +0200 @@ -29,7 +29,7 @@ (*Unions*) inl :: "i\<Rightarrow>i" inr :: "i\<Rightarrow>i" - when :: "[i, i\<Rightarrow>i, i\<Rightarrow>i]\<Rightarrow>i" + "when" :: "[i, i\<Rightarrow>i, i\<Rightarrow>i]\<Rightarrow>i" (*General Sum and Binary Product*) Sum :: "[t, i\<Rightarrow>t]\<Rightarrow>t" fst :: "i\<Rightarrow>i"